关于ADO方面的部题，请求帮助。谢谢

Question

前面还需要什么代码吗？你指的是connect代码吗？我在数据库那个设计器中已写入
Private Sub condata_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection) mydata.condata.Properties("Data Source") = App.Path & "\data.mdb"
 
End Sub我看的那个例子代码也是这样写的，他那个就没问题，我这个怎么回事？

Answer 1

写错啦，应该是。
Private Sub DataEnvironment_Initialize()
  mydata.condata.Properties("Data Source") = App.Path & "\data.mdb"
End Sub
但我将实例程序中的上面这行屏掉，试例程序运行不出错。
证明与此无关  数据环境已在VB中进行了定义    mydata
       |
        --condata
              |
              |-表名
              |-表名
              |-表名
     请各位帮帮忙，万分感谢。

Answer 2

对于数据库记录操作 我是这样用的
set rs=连接.execute(sql)(查询)
连接.execute(sql)(插入\修改\删除)

Answer 3

连接
Global ConnHotel As New ADODB.Connection
Sub Main()
    Dim strConn As String   
    'sql server ***************
    strConn = "Provider=SQLOLEDB;Data Source=" & 服务器名或ip   & ";Initial Catalog=" & 数据库名 & "; User ID=" & UsrID & ";Password=" & 密码 & ";"
   'access************************
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "User ID=Admin;Data Source=" & DataBaseName & ";" & _
        "Jet OLEDB:Database Password='password';"
    With ConnHotel
        .CommandTimeout = 15
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        .CursorLocation = adUseClient
    End With
    frmMain.Show
exit sub 查询:   
    StrMySQL = "select ........"
    Set myRs = ConnHotel.Execute(StrMySQL)    If Not (myRs.BOF And myRs.EOF) Then
        do while myRs.eof             myRs.movenext
        loop
    else
        msgbox"没有符合条件的记录"
    End If
    myRs.Close
    Set myRs = Nothing

Answer 4

谢谢。一会我试试。我不明白为什么不能用OPEN呢？我看的那个试例程序就可以用OPEN，而且没问题的。
请各位多多指教。

Answer 5

数据链接我已在VB的DataEnvironment中进行了设置啦。
总是出  在一个已关闭的或无效连接的对象参照上操作不被允许。这样类似的错误，怎么回事？

Answer 6

我一般这样用
dim cn as ADODB.connection
dim rs as adodb.recordset
set cn =New adodb.connection
set rs =New adodb.recordset
'用cn连接好数据库后
rs.Activeconnection=cn
rs.Locktype=adOptio      '是定义乐观锁
rs.source="select * from temp "
rs.open
记不清了，多试试吧

Answer 7

各位，我的问题我自己已经解决啦。有劳大家啦，谢谢。只需要在OPEN语句前加一句
mydata.condata.Open     
一切搞定。  唉~~~~~~~~~ 分我也不加啦。