注册 登录
编程论坛 VB6论坛

vb MSHFlexGrid 连接数据库问题

mengyanshg 发布于 2015-06-21 10:12, 625 次点击
我通过下程序可以成功显示记录
Private Sub Command1_Click()
Dim MyCnn As New ADODB.Connection
Dim MyRs As New ADODB.Recordset
  
   MyCnn.Open "Driver={MySQL ODBC 3.51 Driver};Server=117.41.***.**;Database=sqlfanchunmy;User=fanchun; Password=fan1238765chun;Option=3;"
MyRs.Open "select * from biao where name = 'fanqi '", MyCnn, adOpenKeyset, adLockOptimistic
 
  Set MSHFlexGrid1.DataSource = MyRs
  MSHFlexGrid1.ColWidth(0) = 300
End Sub


  但是程序使用了文本框作为条件就无法显示记录。请问是什么问题

Private Sub Command1_Click()
Dim MyCnn As New ADODB.Connection
Dim MyRs As New ADODB.Recordset
  Dim temp As String

 temp = Text1.Text
   MyCnn.Open "Driver={MySQL ODBC 3.51 Driver};Server=117.41.***.**;Database=sqlfanchunmy;User=fanchun; Password=fan1238765chun;Option=3;"
MyRs.Open "select * from biao where name = 'temp '", MyCnn, adOpenKeyset, adLockOptimistic
 
  Set MSHFlexGrid1.DataSource = MyRs
  MSHFlexGrid1.ColWidth(0) = 300
End Sub

文本框内容就是fanqi

初上本站,新手,不懂规矩,请包涵

是不是数据库中设计表时有什么问题没有注意?

[ 本帖最后由 mengyanshg 于 2015-6-21 10:27 编辑 ]
1 回复
#2
wmf20142015-06-21 12:29
据说是要做字符串运算拼接的,如下:
MyRs.Open "select * from biao where name = '" & temp &  "'", MyCnn, adOpenKeyset, adLockOptimistic

建议楼主加强基础学习。
1