Dim CON
Dim RSPrivate Sub Form_Load()
Set CON = CreateObject("adodb.connection")
CON.Open "UID=CDITS;PWD=CDITS;driver={Microsoft ODBC for Oracle};SERVER=CDITS;"
Dim mysql As String
mysql = "select distinct(vid) from HTELEFEEINFORMATION where driverid=0 "
CON.Execute mysql
Set RS = CON.Execute(mysql)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("vid") & Chr(13) & Chr(10)
RS.MoveNext
LoopEnd Sub

解决方案 »

  1.   

    http://www.jinesc.com/myweb/disp.asp?idd=91&room=40里面有用ADO连接各种数据库的  
    你上面的问题是MDB版本太高了,  改用VB自带的东西建库,或者转成97的格式的数据库
      

  2.   

    Access:未知的数据库格式。你的数据库引擎不支持Access2000
    打Sp5
      

  3.   

    Access2000 的连接字符串:
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
    应为4.0;
    data默认为:3.51
      

  4.   

    不好意思,太弱了
    请问 ding_alading()
    连接字符串在什么地方设。
      

  5.   

    DATA又不要设的, 又不是ADO控件
      

  6.   

    如果我用连接字符串,来连接Access2000要如何写?repository 对象是什么?如何创建?
      

  7.   

    我看了一个例子是
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                       "Data Source=c:\somepath\myDb.mdb;" & _
                       "User Id=admin;" & _
                       "Password=;"其中的oConn 是什么控件?或对象?
      

  8.   

    引用ADODC和DATAGRID控件.
    先选用MICROSOFT ADO DATA CONTROL 6.0(OLEDB) 
          MICROSOFT DATAGRID CONTROL 6.0 (OLEDB)在ADODC控件的属性中选择数据驱动涵数.
      

  9.   

    现在我想这样做:
    代码如下:Dim oConn As ADODB.Connection
    Dim rs1 As ADODB.recordseSet rs1 = New ADODB.recordse
    Set oConn = New ADODB.Connection
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                       "Data Source=.\test.mdb;" & _
                       "User Id=admin;" & _
                       "Password=;"
        strsql = "Select * from name"
        rs1.Open strsql, oConn, 3, 3
            rs1.AddNew
            rs1.Fields("Name") = MyName
            
            rs1.Update
    在Dim rs1 As ADODB.Recordse 这句报错
    error message is “用户类型未定义”请指教!!
      

  10.   

    to lutaiyk:
    使用ADO时,要在“工程”菜单的“引用”中选中Microsoft ActiveX Data Objects 2.x Library 和 Microsoft ActiveX Data Objects Recordset 2.x。
    另外你的“Dim rs1 As ADODB.recordse”应改为:"Dim rs1 As ADODB.recordset",下同。