vb数据库中用select*form能查询到记录了 但是怎么把查到的记录显示到特定的表里
来源:百度知道 编辑:UC知道 时间:2024/06/16 20:22:13
2楼的代码 中间有问题。rs_addjilu.Open sql, conn, adOpenKeyset, adLockPessimistic 提示说是没有为命令对象设置命令
你的意思是添加记录吧一个cmd三个text对吧
Private Sub Command1_Click()
Dim rs_addjilu As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim sql As String
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\数据库名.mdb"
sql = "select * from A系统 where 主键字段='" & 要添加的主键字段的text.Text & "'"
rs_addjilu.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_addjilu.EOF Then
rs_addjilu.addnew
rs_addjilu.Fields(0) = Trim(Text1.Text)'字段1对应表1
rs_addjilu.Fields(1) = Trim(Text2.Text)
rs_addjilu.Fields(2) = Trim(Text3.Text)
rs_addjilu.Fields(3) = 0
rs_addjilu.Update
MsgBox "添加读者信息成功!", vbOKOnly, ""
rs_addjilu.Close
Else
MsgBox "主键字段重复!", vbOKOnly + vbExclamation, ""
主键字段Text.SetFocus
rs_addjilu.Close
Exit Sub
End If
End Sub
大概思路是这样