ADODB的问题

[dyy830606]

Private Sub Text1_Change()
A = "'" & Trim(Text1.Text) & "'"
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
Dim str As String
str = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=stell;Data Source=CHINESE-7DA58CE"
conn.CursorLocation = adUseClient
conn.Open str
sql = "select * from smelt where smelt like '%" & A & "%'"
rs.Open sql, conn ', adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
现在一运行报错
实时错误
第一行‘1’附近有语法错误

[迈克揉索芙特]

A = "'" & Trim(Text1.Text) & "'"
修改为：
A = Trim(Text1.Text)

[dbcontrols]

好象不是这个问题吧
[Quote=引用 1 楼 Modest 的回复:]
A = "'" & Trim(Text1.Text) & "'"
修改为：
A = Trim(Text1.Text)
[/Quote]

[-晴天]

似乎没有语法错误...

[pcwe2002]

A没有定义

[dyy830606]

vb貌似可以不定义吧

[温飞_会员]

Provider=SQLOLEDB.1 中的1 是什么东西啊

[yefeng835]

都告诉你了“第一行1附近有语法错误”了。。。找出所有“1”的相关句子，再看下

[dyy830606]

Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=stell;Data Source=CHINESE-7DA58CE"
Adodc1.RecordSource = "select * from smelt where smelt like '%Trim(Text1.Text)%'"
Set DataGrid1.DataSource = Adodc1
End Sub
这个是ADODC的，里边也有1，但是不报错，不过貌似弄不出来信息

[dyy830606]

Private Sub Command1_Click()
A = Trim(Text1.Text)
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=stell;Data Source=CHINESE-7DA58CE"
Adodc1.RecordSource = "select * from MAN WHERE NAME like '%A%'"
Set DataGrid1.DataSource = Adodc1
End Sub


这样也不行，老师把所有的项都弄出来，like没起作用，把a前面的%去掉，则什么都差不多出来

[dyy830606]

Private Sub Text1_Change()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=stell;Data Source=CHINESE-7DA58CE"
Adodc1.RecordSource = "Select * From smelt_route Where smelt_route like '%" & Trim(Text1.Text) & "%'"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
终于出来了，我现在想把他用在datalist和datagrid的组合框里，有人会么