收录日期:2018/09/20 15:52:44 时间:2016/05/18 03:14:53 标签:数据库(包含打印,安装,报表)
请教如何用ADO的RECORDSET在DATAGRID上删除与添加,注意删除是要在指定行上删除,添加是在原有数据项的后面添加(附代码,麻烦帮我看一下
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "DSN=BIBLIO"
Set rs = New ADODB.Recordset
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Source = "Publishers"
    rs.ActiveConnection = cn
    rs.Open "Select * from Publishers "
    rs.AddNew
    rs.Fields("Name") = "King Steven"
    rs.Fields("Company Name") = SUN
    rs.Update
    DataGrid1.Refresh
   ' rs.Close
    'cn.Close
    'Set cn = Nothing
    'Set rs = Nothing
End Sub

Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "DSN=BIBLIO"
Set rs = New ADODB.Recordset
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Source = "Publishers"
    rs.ActiveConnection = cn
    rs.Open
     
    rs.Delete adAffectCurrent
    rs.Update
    DataGrid1.Refresh
End Sub
ado的刷新语句好象你没写呢
vb数据库向导不是可以生成ado+datagrid的窗体吗,生成一个看看就得了
楼上的大哥,请问vb数据库向导在哪里?

我怎么找不到
在“新建”对话框中
窗口内有多种选择“标准.exe“等等什么的
在“添加窗体”里面,有“vb数据库程序向导”