Question

vb+access问题。大家帮帮忙，谢谢

窗体有Text1。Text2。姓名。
有数据库d:\a.mdb。表users。字段名称“编号”。“姓名”
我在Text1输入“编号”。按Command1时，判断是否存在，不存在并提醒
存在的话，Text2显示“姓名”

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "d:\a.mdb;Persist Security Info=False"
sql = "select 姓名 from users where 编号 = " & Trim(Text1.Text)
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有此用户", vbCritical, "提示"
Else
Text2.Text = rs.Fields("姓名")
End If
End Sub
'简单的一个代码流程，希望是你想要

追问

谢谢你的帮助。
这我试过了，有些不足，当Text1为空时，出现“如图”
还有第一次输入“编号”还可以运行，第二次输入“编号”运行就不行了。
你能帮我修改吗？

追答

晕，条件的判断自己也不会呀？
你再试下一下的代码，也不全，常见问题处理了
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Or Not IsNumeric(Trim(Text1.Text)) Then
MsgBox "编号为空或不正确！"
Else
sql = "select 姓名 from users where 编号 = " & Trim(Text1.Text)
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有此用户", vbCritical, "提示"
Else
Text2.Text = rs.Fields("姓名")
End If
If rs.State = adStateOpen Then
rs.Close
Set rs = Nothing
End If
End If
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\a.mdb;Persist Security Info=False"
End Sub

Private Sub Form_Unload(Cancel As Integer)
If cn.State = adStateOpen Then
cn.Close
Set cn = Nothing
End If
End Sub