我窗口中放了text控件，和cmdgo的按钮控件，想实现如下功能：输入牌号无误后，能够连接“碳素结构钢及优质碳素结构钢”数据库，访问“材料用途”表，把符合要求的结果显示到MSHFlexGrid中。


Private Sub cmdgo_Click()
If Trim(Text1.Text) < 1 Then
    MsgBox "牌号不能为空！", vbInformation
    Text1 = ""
End If
   Dim objcn As New ADODB.Connection
   With objcn
     .Provider = "SQLOLEDB"
     .ConnectionString = "user ID=ls;PWD=123456;Data source=(local);" & _
                           "initial catalog=碳素结构钢及优质碳素结构钢"
     .Open
     
   End With
   Dim rs1 As New ADODB.Recordset
   rs1.Open "select * from 材料用途 where 牌号 like" & "'"& Text1.Text&"'", objcn, adOpenKeyset, adLockOptimistic
   Set MSHFlexGrid1.DataSource = rs1


End Sub

运行后，红色那一行显示 编译错误，语法错误，但控件查询，按说应该就是这样啊，请高人指点！！

rs1.Open "select * from 材料用途 where 牌号 like " & "'" & Text1.Text & "'", objcn, adOpenKeyset, adLockOptimistic
比较一下与你原句的区别,空格是必须的，不象asp哦

收到的鲜花

• qinfy880114 于 2010-10-03 17:47 送鲜花  1朵   附言：感谢你的帮助，确实改好就对了！！