Question

VB6.0中 like 中用到变量语法写法

Dim a As String
a = 60488
Form1.Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Form3.Text1.Text & ";Persist Security Info=False"
Form1.Adodc2.CommandType = adCmdText
Form1.Adodc2.RecordSource = "select * from paidanbiao " '设置ADO查询语句
Form1.Adodc2.Refresh
' .Filter = "型号 like '%" & Target.Value & "%'"
' Form1.Adodc2.Recordset.Filter = "型号 like '%& a &%'"
Form1.Adodc2.Recordset.Filter = "型号 like '%60488%'"

Set DataGrid1.DataSource = Adodc2
DataGrid1.Refresh
上面代码中用' ' Form1.Adodc2.Recordset.Filter = "型号 like '%& a &%'" 这句中用变量a代替60488的语法怎么写 就是等于' Form1.Adodc2.Recordset.Filter = "型号 like '%60488%'"的
谢谢大神了.

Answer 1

1、vb6没有字符变量，只有字符串变量(string)。
2、vb6可以不定义变量而使用变量，使用字符串也可以放入不定义不加$符的变量中，如：
a="abcd"，a被自动定义为variant变量。
3、如果不定义而使用a$,a变量被自动定义为字符串变量。
a$="abcd"
4、要养成先定义变量，再使用变量的好习惯：
dim a as string
a="abcd"

Answer 2

Form1.Adodc2.Recordset.Filter = "型号 like '%" & a & "%'"

顺便提一句：在Access中匹配任意字符的通配符并不是%，而是*。所以如果你用的是Access(因为你用的Jet.OLEDB驱动)，这句代码应该是
Form1.Adodc2.Recordset.Filter = "型号 like '*" & a & "*'"