未发现数据源名称并且未指定默认驱动程序的问题,求助
Private Sub cmdQuery_Click()Dim strSQL As String
If Trim(txtName.Text) = "" Then
MsgBox "查询结果不能为空!", vbOKOnly + vbExclamation, "警告!"
txtName.SetFocus
Exit Sub
End If
strSQL = "Select*From product Where 名称 like +" '"+replace(replace(trim(txtname.Text),"'"),""")+"%'"
= adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
End Sub
程序运行时显示未发现数据源名称并且未指定默认驱动程序的问题,点确定显示对象refresh的iadodc1方法失败。我明明连上数据库了,但点查询按钮时
出现以上情况