高校问答墨瑟铝门窗品牌:vb 如何实现datagrid中数据的修改和添加
来源：百度文库 编辑：高校问答 时间：2024/04/28 01:27:35
我用的是ADODB的连接方式
用的是动态连接方式，不是在属性栏里设置的，是用代码编写的。想在问一下，又是如何删除的？
Dim MdbConn As New ADODB.Connection
Dim MdbRs As New ADODB.Recordset
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select 姓名,出生日期,固定电话,传真,移动电话,电子邮件,地址,职务 from txl where user='" + curuser + "' and 类型='重要人士'", Conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = MdbRs
用的是动态连接方式，不是在属性栏里设置的，是用代码编写的。想在问一下，又是如何删除的？
Dim MdbConn As New ADODB.Connection
Dim MdbRs As New ADODB.Recordset
Dim str As String '定义
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
MdbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=043687;Data Source=" & str & "jytxldb"
'联接超时时间
MdbConn.ConnectionTimeout = 30
'打开联接
MdbConn.Open
MdbRs.CursorLocation = adUseClient
MdbRs.Open "select 姓名,出生日期,固定电话,传真,移动电话,电子邮件,地址,职务 from txl where user='" + curuser + "' and 类型='重要人士'", Conn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = MdbRs
修改绑定给DataGrid的数据源表，就是对DataGrid的修改。你再仔细看看DataTable 的用法吧