请问最近在VB中使用ADO时,来报错,搞的我莫明其妙,帮帮我.

Question

Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "FileDSN=hotel.dsn;UID=sa;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function
 Dim i As Integer
    Dim j As Integer
    Dim sSql As String
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
  
    txtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = False Then
        With mrc
            Do While Not .EOF
                cboYear(0).AddItem .Fields(0)
                .MoveNext
            Loop
        End With
        
        cboYear(0).ListIndex = 0
        
        For j = 1 To 12
            cboMonth(0).AddItem j
        Next j
        cboMonth(0).Text = Month(Now())
        
        For j = 1 To 31
            cboDay.AddItem j
        Next j
        cboDay.Text = Day(Now())
        
    Else
        cmdOk.Enabled = False
    End If
    mrc.Close
在mrc.EOF = False 处出错，说什么对象未定义。可是我明明定义了。
在前面加上dim mrc as adodb.recordset

Answer 1

在使用mrc的时候加一句，set mrc=new adodb.recordset 应该就可以了，因为对象定义的对象需要设置

Answer 2

没有环境测试,不过你是否在
Set mrc = ExecuteSQL(txtSQL, MsgText)
改成
Set mrc=new adodb.recordset
Set mrc=executesql(txtsql,msgtext)

Answer 3

你最好在查询分析器中看看
"select distinct datepart(yy,indate) from bookin where ammount = '0' "
是否正确，在某些条件下distinct需要加上group by

Answer 4

前面的几种方法，我用过了，
set mrc = new adodb.recordset
加了这个也没有用，
照样出，变量未定义，
真的很怪啊。

Answer 5

Set mrc = ExecuteSQL(txtSQL, MsgText)这句里的MsgText是干什么用的？去了不行吗？

Answer 6

与加不加"set mrc = new adodb.recordset"無關,加了反而是多餘的代碼,因為如果ExecuteSQL()能正常的返回,它本身就是一個新的實例。問題是你的查詢條件,如果不滿足,ExecuteSQL()返回的是一為Nothing 的RecordSet對像,用到它的.Eof,當然會出錯。應先判斷 mrc is or not  nothing 再寫下面的代碼。

Answer 7

首先声明，此答案在其它帖子中用过，但是似乎对你有用处。目前关于数据库的问题用 ADO 的比较多，这里提供一个完整的方法，是根据 Access 的数据库驱动作的，且调试过。　　ADO 是一个引用控件，所以，第一步是在工程中引用 Microsoft ActiveX Data Objects 2.0 Library(MSADOnn.DLL，nn 是版本号，目前已有 2.6 版本)，然后需要打开连接和记录集。代码:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=g:\vbr\vbr.mdb"
conn.Open connStrrs.CursorLocation = adUseClient
rs.Open "SELECT * FROM [参数表]", conn, adOpenKeyset, adLockPessimistic
　　这样，rs 就成为了一个数据集，可以象正常的 DAO 一样操作了。至于连接和数据集对象前面的 ADODB 是为了和 DAO 进行区分，如果程序中没有使用 DAO 的话，可以省略。
　　如果要使得数据集和控件绑定的话，VB 会在工程中自动引用 Microsoft Data Binding Collection VB 6.0(MSBIND.DLL)，这里以文本框(TextBox)为例说明绑定的方法。假定有 Text1 和 Text2 两个控件，分别绑定字段“参数名”和“参数值”，则绑定的方法是:代码:
Set Text1.DataSource = rs.DataSource
Text1.DataField = "参数名"
Set Text2.DataSource = rs.DataSource
Text2.DataField = "参数值"　　这样，当你控制记录位置(MoveFirst, MoveLast, MovePrevious, MoveNext 等等)时，控件中的数据会随记录位置自动变化。
但是更多的情况是：你需要程序生成数据库和表，这样你就需要引用 Microsoft ADO Ext. 2.5 for DDL and Security(MSADOX.DLL)。下面是两个示例：创建数据库示例：代码:
Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=g:\vbr\vbr.mdb"数据库创建时就占用了这个文件，如果要关闭，可以用 Set cat = Nothing 来完成，这样就可以使用其它的功能，例如打开等等。创建表示例：代码:
Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog ' 打开目录。
cat.ActiveConnection = _
   "Provider=Microsoft.Jet.OLEDB.3.51;" & _
   "Data Source=g:\vbr\vbr.mdb;"
tbl.Name = "MyTable"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl还有关键字、过程、视图、索引等创建方法，一般情况下上面提到的两个引用都必须同时使用，有关详细的资料可以在 MSDN 中找到。
总的来说，似乎 ADO 是对已有数据库表的使用，ADOX 则似乎是对 ADO 创建方面的扩充。

Answer 8

让面朋友们说的我都做了。
可是不行，MyLf(風之子) 你说的，有道理，
可是怎么判断mrc不为空呢？？
具体怎么做？

Answer 9

怎么做？你可以这样试试：if mrc.recordcount=0 then
   msgbox "记录集为空！！！"
end if如上面的不行，你可将执行SQL语句的函数的结束部分的:
Set rst = Nothing  改为：rst.close能后你在主程序中用：　
if mrc.State =adStateClosed then
   exit sub
else
   你自己写的代码
end if

Answer 10

首先你给的这段代码，是很多实例书上的代码。我原来研究过，并且对你说的这个问题也进行过思考。
我的答案是，你的sql查询是错的（不行可以放到查询分析器里面去看，得到的将会是null）。
一个recordcount里面没有记录的话，不就等于
是recordcount的objiect＝nothing，对象为nothing不就等于没有构造对象，不就等于没有定义。
别老是相信实例上的东西，要抱着研究的态度看实例上的东西

Answer 11

在你的代码
    txtSQL = "select distinct datepart(yy,indate) from bookin where ammount = '0' "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF = False Then
        With mrc
            Do While Not .EOF
                cboYear(0).AddItem .Fields(0)
                .MoveNext
            Loop
        End With
中加上下面做好做成异常的处理
If (mrc Is Nothing) 
    Debug.Print Err.Number & vbCrLf & Err.Description
    Exit Sub
Else
......
End If