vb6.0 + access查询出错
--------------------编程问答-------------------- 信息太不全，无法判断，可能是Textxm.Text里含有单引号吧。 --------------------编程问答--------------------Dim sql As String--------------------编程问答-------------------- sql = "select * from client where 姓名 like '%" & trim(Textxm.Text) & "%'" --------------------编程问答-------------------- 还是无法查询~！按查询按钮 没有反应！ --------------------编程问答--------------------
Dim rs As New ADODB.Recordset
If Textxm.Text = "" Then
MsgBox "请输入程序关键字！"
Exit Sub
End If
sql = "select * from client where 姓名 ='" & trim(Textxm.Text) & "'"
rs.Open sql, cnn, adOpenKeyset, adLockPessimistic
If rs.RecordCount = 0 Then
MsgBox " 查无此人！", 48, "starsystem"
Else
rs!地址 = Trim(Textdz.Text)
rs!城市 = Trim(Textcs.Text)
rs!邮编 = Trim(Textyb.Text)
rs.update
End If
rs.Close
End Sub
Private Sub Command1_Click()
Dim RS As New ADODB.Recordset
Dim sql As String
If Texttel.Text = "" Then
MsgBox "请输入程序关键字！"
Exit Sub
End If
sql = "select * from client where tel like '" & Texttel.Text & "'"
RS.Open sql, cnn, adOpenKeyset, adLockPessimistic
If Not RS.EOF Then
RS!nom = Trim(Textnom.Text)
RS!adr = Trim(Textad.Text)
RS!ville = Trim(Textvl.Text)
RS!cp = Trim(Textps.Text)
RS!bat = Trim(Textbt.Text)
RS!soci = Trim(Textsc.Text)
RS!etage = Trim(Textet.Text)
Else
MsgBox "对不起！没有你查询的记录！"
End If
RS.Close
End Sub
RS.Close报错 --------------------编程问答-------------------- 报什么错？
不过，更新字段后似乎应该有 RS.Update。 --------------------编程问答--------------------
没有反应就对了；看看你的代码，当然没有可以直接看到反应，除非在没有关键字或查无此人的时候，反应在数据库中，你到数据库中，对比，数据是否已经更新 --------------------编程问答-------------------- 想不通为何要给RS赋值呢 你不是要select并且把RS里的值写道XXXX.text里去吗
你把xxxx.text里的值写道RS里去要干什么 你要UPDATE？
我晕的一塌糊涂 --------------------编程问答--------------------
同意！楼主明明说的是查询呀？！
有两个地方要注意：一、查询语句like应该是%吧；
二、是否要考虑iif(isnull(),,) --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/1644211 --------------------编程问答--------------------
繁体字看起来比较费劲！还是看大陆的好
补充：VB , VBA
