请大家帮忙看看Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"有错吗？

Question

没有错，但是最好把hetong.Text 换成 Replace(hetong.Text "'", "''")否则你的代码会有致命bug
事实上很多人写语句时都忘了这点，所以如果有数据中有 "'" 出现，他们的代码会崩溃或者结果不对

Answer 1

Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"
Data1.RefreshIf Data1.Recordset.RecordCount = 0 Then
   MsgBox "数库据没有记录"
   Exit Sub
 End If
  
  Data1.Recordset.MoveFirst
   Do While Not Data1.Recordset.EOF
aa(c) = Data1.Recordset("刊出时间")
bb(c) = Data1.Recordset("付款时间")
cc(c) = Data1.Recordset("合同号")
dd(c) = Data1.Recordset("广告客户")
ee(c) = Data1.Recordset("代理商")
loop
hetong.Text = aa0)
kehu.Text = bb(0)
daili.Text = cc(0)
dizhi.Text = dd(0)
dinhua.Text = ee(0)

Answer 2

你的前一段代码没有问题，
但后面的循环少了Data1.Recordset.MoveNext

Answer 3

Data1.RecordSource = "select * from 广告数据 where (合同号 LIKE '" & hetong.Text & "')"
试一下看

Answer 4

 将 Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"
  变为：Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & trim(hetong.Text) & "%'"
 试试
  

Answer 5

你用SQL查讯器看看具体的Sql语句是啥?
然后帖出来或者自己搞定咯

Answer 6

其实我仔细想了想，
sql语句执行时没出错，
你的条件也写全了，
那可能是数据库的问题了.
试一下 data.recordsource="select * form 广告数据 where 广告数据.合同号 Like '%" & 
trim(hetong.text) & "%'"
或 
data.Recordset.Close
data.recordsource="select * from 广告数据)
data.Refresh
data.recordsource.findfirst "合同号 Like '" & hetong.text & "'"

Answer 7

你试一下：
sql="select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"
If rs.State = adStateOpen Then rs.Close
    rs.Open sql, cn, adOpenDynamic, adLockPessimistic
Set data1.DataSource = rs
Data1.Refresh
当然，rs必须是结果集。

Answer 8

语句没问题如果改只有up
qhzxcz(audio) 你可以把语句放到数据库中调试。

Answer 9

如果是SQL SERVER，就没错。
Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"
是ACCESS，改成：
Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '*" & hetong.Text & "*'"

Answer 10

DAO的通配符是*
ADO的通配符是%