我在oracle里建了个表，想用vb编程，我怎么用odbc连接啊？

Question

数据库连接方式可选用的：
1 ODBC
2 RDO
3 ADO
4 ORACLE OLE Object for visual basic

Answer 1

--VB连接oracle adodb
--模块Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.CommandPublic Function DBPath() As String
    'DBPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inventory_MS.mdb"
    DBPath = "Provider=MSDAORA.1;Password=romasys;User ID=apps;Data Source=demo;Persist Security Info=True"
End Function
--界面:
Private Sub Form_Load()
    On Error GoTo Err
    Dim ConnStr As String  '字符串
    ConnStr = DBPath
    With Conn
        .ConnectionString = ConnStr
        .ConnectionTimeout = 10
        .CursorLocation = adUseClient
        .Open
    End With
    Set cmd.ActiveConnection = Conn
    cmd.CommandText = "select * from t_User"
    rs.CursorLocation = adUseClient
    rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
    rs.MoveFirst
    Exit Sub
Err:
    MsgBox ("连接数据库失败!")
    End
End Sub
--DSN
Private Sub Form_Load()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conn.ConnectionString = "DSN=DSN名;UID=用户;PWD=密码"
    conn.Open
    strsql = "select * from T_user"
    rs.Open strsql, conn, adOpenStatic, adLockReadOnly
    Do While rs.EOF = False
        If rs.Fields(1).Value = "dinya" Then
            Me.Text1.Text = rs.Fields(0).Value & rs.Fields(1).Value
        End If
        rs.MoveNext
    Loop
End Sub