VB 从数据库中读出的记录怎样分别取得其各个字段的值

答案:3 悬赏:20 手机版

解决时间 2021-11-16 00:44

提问者网友：聂風
2021-11-15 17:53

最佳答案

五星知识达人网友：时间的尘埃
2021-11-15 19:02

给你一个例子看一下就应该懂了
Private Sub cmdRead_Click()
Dim RS As ADODB.Recordset
Dim tSql As String
Dim I As Integer
Set RS = New ADODB.Recordset
tSql = "Select * From TestUser Where XueHao=" & Trim(txtID.Text)
RS.Open tSql, CN, adOpenStatic, adLockOptimistic
If RS.RecordCount > 0 Then
txtName.Text = RS.Fields("XingMing")
txtScore.Text = RS.Fields("ChengJi")
Else
MsgBox "数据库中未找到相应记录", vbOKOnly, "提示"
End If
Set RS = Nothing
End Sub

Private Sub Form_Load()
Set CN = New ADODB.Connection
'QQ.mdb需要指定全路径，如C:\qq.mdb，具体位置自己修改。
CN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\QQ.mdb;Uid=Admin;Pwd="
txtID.Text = "": txtName.Text = "": txtScore.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set CN = Nothing
End Sub

全部回答

1楼网友：何以畏孤独
2021-11-15 21:42

text1.text=rs.fileds("序号")

2楼网友：思契十里
2021-11-15 20:14

text1.text = data1.recordset.fields(index),index为字段序号
互帮互助，共同提高

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息