vb.net 将DataGridView数据写到access数据库

Question

我用SqlClient控件把数据库3W条数据读取fill到DataGridView里面,想把这些数据写到ACCESS数据库里面,应该怎么写?查询了好多百度,但是找到都是凤毛麟角,以前一直用易语言编程,现在学VB.net,请懂的朋友,给个比较实用的代码,复制复制过来就不要回答了,因为我已经百度很多了.

下面是百度出来的,我也参考过,但是不会写,C#代码(参考)我用的是VB.net
http://blog.163.com/zl_zhang_lin@yeah/blog/static/124255113201091151951517/

Answer 1

我用的是VB6.0，你可以引用这两个，用来创建数据库和操作数据库，具体操作参考ADO帮助

类似如下：

Dim dbName As String
    Dim xStr As String
    Dim mdbPassword As String
    Dim I As Long
    Dim cadx As New ADOX.Catalog
    Dim ccn As ADODB.Connection
    Dim lTb As ADODB.Recordset
   
   
    '检查文件是否存在，存在是否可以覆盖，代码省略

        xStr = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Engine Type=6;Data source=" & dbName & ";"
        cadx.Create xStr
        Set cadx = Nothing
        xStr =  "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFileName & ";Persist Security Info=False"
        Set ccn = New ADODB.Connection
        ccn.ConnectionString = xStr
        ccn.CommandTimeout = 30
        ccn.Mode = conMode
        ccn.Open
        xStr = "CREATE TABLE TAB1(FD1 LONG,FD2 TEXT(10),FD3 TEXT(12),FD4 LONG)"
        ccn.Execute xStr
        Set lTb=New ADODB.Recordset
        lTb.Open "TAB1", ccn, adOpenKeyset, adLockPessimistic, adCmdTable
        For I = 1 To J
            lTB.AddNew
            lTB.Fields("FD1") = ...
            lTB.Fields("FD2") = ...
            lTB.Fields("FD3") = ...
            lTB.Fields("FD4") = ...
            lTB.Update
        Next
        lTb.Close
        set lTb=nothing
        ccn.close
        set ccn=nothing

追问

谢谢你的回答!但是没有解决到我问题