如何用VB连ORACLE

Question

如何用VB通过ADO连接ORACLE数据库？求用SCOTT用户连EMP表的源码
散分

Answer 1

使用odbc
Set Conn = Server.CreateObject("ADODB.Connection")
rem Conn.Open "DSN=153web;uid=internal;pwd=oracle"

Answer 2

Public Function OpenOracle(strServerName As String, strUserName As String, strUserPwd As String) As Boolean
 
    On Error GoTo errH
    
    OpenOracle = False
    With gcnOracle
        If .State = adStateOpen Then .Close
        .Provider = "MSDataShape"
        .Open "Driver={Microsoft ODBC for Oracle};Server=" & strServerName, strUserName, strUserPwd
        If Err <> 0 Then
            MsgBox "连接失败！（请确保用户名与密码输入无误）", vbInformation, gstrSysName
            Exit Function
        End If
    End With
    OpenOracle = True    Exit Function
errH:
    If ErrCenter = 1 Then Resume
    
End Function

Answer 3

http://expert.csdn.net/Expert/topic/1461/1461366.xml

Answer 4

有以下三种方法
oConn.Open "Driver={Microsoft ODBC for Oracle};" & _　　　　　　　　　 "Server=OracleServer.world;" & _　　　　　　　　　 "Uid=myUsername;" & _　　　　　　　　　 "Pwd=myPassword;"
 
OLE DB Provider for Oracle (from Microsoft) 　 oConn.Open "Provider=msdaora;" & _　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _　　　　　　　　　 "Password=myPassword;"
 
OLE DB Provider for Oracle (from Oracle) oConn.Open "Provider=OraOLEDB.Oracle;" & _　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _　　　　　　　　　 "Password=myPassword;"
For Standard Security:

Answer 5

Oracle数据库 [PROVIDER=MSDASQL;] DRIVER={Driver Name}; SERVER=server; databasename=database; databasefile=path; DSN=; UID=user; PWD=password; 例如： cnnd.ConnectionString = “PROVIDER=MSDASQL; ” + “DRIVER={Microsoft ODBC for Oracle};” + “SERVER=Webserver;” + “DSN=;” + “databasename=dataall;” + “databasefile=d:\data\;” + “UID=dba;” + “PWD=killer” 

Answer 6

有以下三种方法
oConn.Open "Driver={Microsoft ODBC for Oracle};" & _　　　　　　　　　 "Server=OracleServer.world;" & _　　　　　　　　　 "Uid=myUsername;" & _　　　　　　　　　 "Pwd=myPassword;"
 
OLE DB Provider for Oracle (from Microsoft) 　 oConn.Open "Provider=msdaora;" & _　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _　　　　　　　　　 "Password=myPassword;"
 
OLE DB Provider for Oracle (from Oracle) oConn.Open "Provider=OraOLEDB.Oracle;" & _　　　　　　　　　 "Data Source=MyOracleDB;" & _ 　　　　　　　　　 "User Id=myUsername;" & _　　　　　　　　　 "Password=myPassword;"

Answer 7

装了客户端的话，可以直接创建oracle的对象

Answer 8

首先你确定你已经装了Oracle的客户端Set Cn = New ADODB.Connection
    Cn.CursorLocation = adUseClient
    Cn.Mode = adModeReadWrite
    Cn.ConnectionString= "Provider=MSDAORA.1;Password=psw;" & _
    "UserID=uid;Data Source=???;Persist Security Info=True"
    Cn.Open注释：uid为你所访问的数据库中的一个用户名，（一定要确定该数据库中有此用户并有连接权限）psw为该用户的密码，???为本地的服务名,就是你用oracle的net configrationg assitant配置的那个

Answer 9

引用microsoft activex data object 2.X library
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
rs.open "select * from 表" ,cn
debug.print rs.fields(0)

Answer 10

看看
http://expert.csdn.net/Expert/topic/2166/2166516.xml?temp=.4279596