Adodc1.CommandType = adCmdTextAdodcDataSource.username = sa
AdodcDataSource.RecordSource = "select * from " & DataName & " where idyh='" & name & "'"
AdodcDataSource.RecordSource = "select * from " & DataName & " where idyh='" & name & "'"
AdodcDataSource.Password = sa
AdodcDataSource.RecordSource = "select * from " & DataName
AdodcDataSource.RecordSource = "select * from " & DataName & " where idyh='" & name & "'"你给的DataName,如果是text控件,你最好用trim来去掉空格!
分步运行一下吧,这样可以看得更清楚些,看看变量的值是否与预期目的一致!
我的程序改为这样。但是还是提示同样的错误,这是怎么回事?
Public Function Query(DataName As String, Name As String, AdodcDataSource As Adodc) As Boolean
AdodcDataSource.CommandType = adCmdText
AdodcDataSource.username = sa
AdodcDataSource.ConnectionString = "DSN = mqgd"
AdodcDataSource.Password = sa
AdodcDataSource.RecordSource = "select * from " + DataName
AdodcDataSource.RecordSource = "select * from "+DataName+" where idyh='"+name+"'"
AdodcDataSource.Refresh
If AdodcDataSource.Recordset.RecordCount = 0 Then
Query = False
Else
Query = True
End If
End Function