vb数据库中用select*form能查询到记录了 但是怎么把查到的记录显示到特定的表里

来源:百度知道 编辑:UC知道 时间:2024/06/16 20:22:13
我没有接触过数据库,不会写代码。我能做出数据库里的表,现在也能用select查出来记录了,但是不知道怎么让这条记录显示出来。告诉我代码 ,假如 我的表的名字是A系统,查询的是B和C字段,能得到一条记录,这条记录包含E、F、G三个字段,我需要用3个textbox把这3个字段显示出来(就这一条属性)我该怎么写代码,就55分了 全给了
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
大概思路是这样

<