'保存表格中的数据到数据库
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(值),前后()内字段数目和值数目必须相等。
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。