标题:求助:sql如何适用宏替换?
只看楼主
cqpgx
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-2-7
 问题点数:0 回复次数:3 
求助:sql如何适用宏替换?

Dim aaa As String

aaa = Trim(TextBox1.Value)
MsgBox "参保人员为 " & Format(aaa) & " ", vbOKOnly + vbInformation, "信息提示"

Set cnn = CreateObject("ADODB.connection")
cnn.connectionstring = "Driver={SQL Server};server=shbx;uid=sa;pwd=sa;database=cqgls"
cnn.Open
Set rs = cnn.Execute("Select * from t01_05 where t0105 like ('+aaa+')") '查询不到记录
如改成 Set rs = cnn.Execute("Select * from t01_05 where t0105 like ('张三')") '完全能查询到记录

If Not rs.EOF Then
rs.movefirst
i = 3
j = 0
While Not rs.EOF
' If Trim(Rs(15).Value) = Trim(TextBox1.Value) Then
'For j = 0 To Rs.Fields.Count - 1
Cells(i, 2).Value = Trim(rs(7).Value)
Cells(i, 3).Value = Trim(rs(13).Value)
Cells(i, 4).Value = Trim(rs(14).Value)
Cells(i, 5).Value = rs(15).Value
Cells(i, 6).Value = rs(16).Value
Cells(i, 7).Value = rs(17).Value
Cells(i, 8).Value = rs(18).Value
rs.MoveNext
i = i + 1
Wend
Else
MsgBox "没有符合符合条件的记录", vbOKOnly + vbInformation, "检测"
End If


cnn.Close
Set cnn = Nothing
Set rs = Nothing

[此贴子已经被作者于2007-10-21 0:21:40编辑过]

搜索更多相关主题的帖子: sql 
2007-10-21 00:20
cqpgx
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-2-7
得分:0 
每人知道吗?
2007-10-21 10:52
cqpgx
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-2-7
得分:0 
2007-10-21 10:52
cqpgx
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2007-2-7
得分:0 
再顶
2007-10-21 10:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-179429-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.078003 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved