Adodc1.CommandType = adCmdTextAdodcDataSource.username = sa
  AdodcDataSource.RecordSource = "select * from " & DataName & " where idyh='" & name & "'"

解决方案 »

  1.   

    AdodcDataSource.ConnectionString = "DSN = mqgd" '检查一下这个数据源是否存在,或者拼写有什么问题!
      AdodcDataSource.Password = sa
      AdodcDataSource.RecordSource = "select * from " & DataName
      AdodcDataSource.RecordSource = "select * from " & DataName & " where idyh='" & name & "'"你给的DataName,如果是text控件,你最好用trim来去掉空格!
    分步运行一下吧,这样可以看得更清楚些,看看变量的值是否与预期目的一致!
      

  2.   

    TO  pl5th2001(白牙)
    我的程序改为这样。但是还是提示同样的错误,这是怎么回事?
    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
      

  3.   

    color99 (木头人) 你好!为什么不用 ado 呢??ado连接更方便好用啊!强烈推荐啊!!!!
      

  4.   

    To saiko(小新)  那我这种是什么连接呢?