Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'" Data1.RefreshIf Data1.Recordset.RecordCount = 0 Then MsgBox "数库据没有记录" Exit Sub End If
Data1.RecordSource = "select * from 广告数据 where (合同号 LIKE '" & hetong.Text & "')" 试一下看
将 Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'" 变为:Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & trim(hetong.Text) & "%'" 试试
你用SQL查讯器看看具体的Sql语句是啥? 然后帖出来或者自己搞定咯
其实我仔细想了想, 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 & "'"
你试一下: 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必须是结果集。
语句没问题如果改只有up qhzxcz(audio) 你可以把语句放到数据库中调试。
如果是SQL SERVER,就没错。 Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'" 是ACCESS,改成: 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)
但后面的循环少了Data1.Recordset.MoveNext
试一下看
变为:Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & trim(hetong.Text) & "%'"
试试
然后帖出来或者自己搞定咯
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 & "'"
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必须是结果集。
qhzxcz(audio) 你可以把语句放到数据库中调试。
Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '%" & hetong.Text & "%'"
是ACCESS,改成:
Data1.RecordSource = "select * from 广告数据 where 合同号 LIKE '*" & hetong.Text & "*'"
ADO的通配符是%