|
#2
ZHRXJR2017-06-16 10:27
看来你使在其他地方拷贝的吧
 程序代码：Private Sub Command3_Click() Dim sql As String Text5.Text = "" 'Text5已经置空了，你怎么查询，这一条语句要删除，而且在点击 Command3 时，Text5 文本框必须有值！！ sql = "select * from customer where customer_name like'%" & Text5.Text & "%'" '这个语句有点问题，注意下面给你的语句，特别是在 like 的后面有空格。 sql = "select * from customer where customer_name like '%" & Text5.Text & "%'" = adCmdText Adodc3.RecordSource = sql '如果 Adodc3已经连接了数据库，这里应该没有问题，即已经有 Adodc3.ConnectionString = "连接数据库字符串语句" 这个语句 Adodc3.Refresh '1、Text5.Text = Adodc3.Recordset("customer_name") '2、Set DataGrid3.DataSource = sql '3、DataGridRows = sql.RecordCount '将上面三个语句修改为下面的语句 Set DataGrid3.DataSource = Adodc3 'OK了 End Sub |
Private Sub Command3_Click()
Dim sql As String
Text5.Text = ""
sql = "select * from customer where customer_name like'%" & Text5.Text & "%'"
= adCmdText
Adodc3.RecordSource = sql
Adodc3.Refresh
Text5.Text = Adodc3.Recordset("customer_name")
Set DataGrid3.DataSource = sql
DataGridRows = sql.RecordCount
End Sub