保存MSHFlexGrid表格中的数据到数据库

'保存表格中的数据到数据库

   Dim CN As ADODB.Connection

   Set CN = New ADODB.Connection

   CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\ManInfo.mdb"

    With Me.MSHFlexGrid1

    Dim m As Integer

    Dim N As Integer

    For m = 1 To .Rows - 1

    If .TextMatrix(m, 1) = "" Then Exit For '以第一个字段为关健字。

    CN.Execute "INSERT INTO 996 values('" & .TextMatrix(m, 1) & "','" & .TextMatrix(m, 2) & "','" & .TextMatrix(m, 3) & "','" & .TextMatrix(m, 4) & "','" & .TextMatrix(m, 5) & "','" & .TextMatrix(m, 6) & "','" & .TextMatrix(m, 7) & "','" & .TextMatrix(m, 8) & "','" & .TextMatrix(m, 9) & "','" & .TextMatrix(m, 10) & "','" & .TextMatrix(m, 11) & "','" & .TextMatrix(m, 12) & "','" & .TextMatrix(m, 13) & "','" & .TextMatrix(m, 14) & "','" & .TextMatrix(m, 15) & "','" & .TextMatrix(m, 16) & "') "

    Next m

    End With

    Set CN = Nothing

注意：INSERT INTO 表（字段） values（值），前后（）内字段数目和值数目必须相等。