如何把Check4(i).Caption加入到Access的数据表中的某个列中

Question

把Check4(i).Caption加入到Access的数据表中的某个列中,请问具体的方法

Answer 1

在工程的引用里面添加 Microsoft ADO 2.x ，然后就可以用下面的函数了
Private Sub Insert2DB(i As Integer)
    Dim Cn As New ADODB.Connection
    
    Dim Sql As String
    '如果该数据库不存在,则建之
On Error GoTo OnError
    
    '打开源
    Sql = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\myaccess.mdb;"
    Cn.Open Sql
    
    '处理单行数据
    
    Sql = "INSERT INTO TABLENAME (COLINDEX,COLCAPTION) VALUES(" & i & ",'" & Check4(i).Caption & "')"
    Cn.Execute Sql
    Cn.Close
    Set Cn = Nothing
    Exit Sub
OnError:
    MsgBox "插入数据库时出错！" & Err.Number & Err.Description
    Set Cn = Nothing
    Debug.Print Sql
    Debug.Print Err.Description
End Sub
我是假定你的ACCESS里面有个表TABLENAME,它有两列 COLINDEX (INT),COLCAPTION(CHAR)