Question

VB中将DataGrid的数据更新到数据库，如图按下Command1后可以将DataGrid1中的数据更新到ACCESS的表cas中

VB中将DataGrid的数据更新到数据库，如图按下Command1后可以将DataGrid1中的数据更新到ACCESS的表cas中

Answer 1

'数据更新代码
rs.UpdateBatch
DataGrid1.Refresh

数据库连接采用代码连接，创建连接模块：

Public Sub condb()
Dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "kcdb.mdb"
conn.Open str
conn.CursorLocation = adUseClient
End Sub


' 窗体加载时候绑定数据
call condb()
Dim Sqlstr As String
Sqlstr = "select * from 类目录"
rs.Open Sqlstr, conn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs

'程序开始声明
Private rs As New ADODB.Recordset
'工程引用microsoft ActiveX Data Objects 2.8

'窗体退出代码
If rs.State <> adStateClosed Then
DataGrid1.Enabled = False
rs.Close
End If

Set rs = Nothing

 数据库、表名称需要你实际修改一致

追问

额额不知道哪出错了

追答

工程引用里面添加ADO2.8，确保数据库在根目录

追问

这边又跳了···

追答

conn没有声明
Public conn As New ADODB.Connection