vb.net 将DataGridView数据写到access数据库 vb.net将DataGridView中的数据保存到SQL数...

vb.net\u4e2d\u600e\u6837\u4eceDataGridView\u7684\u6570\u636e\u63d2\u5165\u5230ACCESS\u4e2d

Dim strConn As String = "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" &
Application.StartupPath & "\ACCESS.MDB"

Dim cn As New OdbcConnection(strConn)
cn.Open()
Dim da As New OdbcDataAdapter("Select * From \u8868\u540d", cn)
Dim ds As New DataSet
da.Fill(ds, "\u8868\u540d")
Dim cmdBuilder As New OdbcCommandBuilder(da)
da.InsertCommand = cmdBuilder.GetInsertCommand

With ds.Tables("\u8868\u540d")
For i = 0 to DataGridView1.Rows.Count - 1
Dim dr As DataRow = .NewRow
dr("\u5217\u540d1") = DataGridView1\u4e2d\u7684\u503c
.
.
.
dr("\u5217\u540dn") = DataGridView1\u4e2d\u7684\u503c
.Rows.Add(dr)
next
End With
da.Update(ds.Tables("\u8868\u540d"))
cn.Close()
\u5982\u679c\u4e0d\u660e\u767d\u7ee7\u7eed\u95ee

Dim ap As SqlClient.SqlDataAdapter'\u8fd9\u4e2a\u53d8\u91cf\u5f88\u91cd\u8981 Private Function Save_Data() As Boolean '\u4fdd\u5b58\u6570\u636e\u5e93\u7684\u64cd\u4f5c Try Me.DataGridView1.EndEdit() ' Me.BindingSource1 = Me.DataGridView1.DataSource Me.BindingSource1.EndEdit() Dim bd As New SqlClient.SqlCommandBuilder(ap) ap.UpdateCommand = bd.GetUpdateCommand ap.Update(Me.BindingSource1.DataSource) Find(str_cmd) Return True Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function

我用的是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

扩展阅读：www.sony.com.cn ... applestore官网入口 ... java入门网站 ... www.agoda.com ... paperpass免费入口 ... nativeばん手办官网 ... burberry日本官网 ... javascript入门 ... vb下载安装 ...