VB连接ORACLE

Question

用VB连接ORACLE数据库,请大家提供一些例子或者是连接字符串谢谢

Answer 1

看看：（连接字符）
http://community.csdn.net/Expert/topic/3588/3588453.xml?temp=.2525751

Answer 2

实例：
http://community.csdn.net/Expert/topic/3417/3417245.xml?temp=.3961298

Answer 3

其实就一个连接字符串的问题，其他的跟连sql server没什么两样
http://www.connectionstrings.com/

Answer 4

'========================================
'建立与Oracle数据库的连接
'========================================
Public Function Conn_Oracle(strConn As String) As Boolean
       On Error GoTo err1
       Dim i As Long
       
       If Not Conn Is Nothing Then Set Conn = Nothing
       
       Set Conn = New ADODB.Connection
'*************************************************************
'       Operator = "aaa(111)"
'       UserName = "WWW"
'       PassWord = "www"
'       ServerName = "ORACLE1_LSC"'
'       strConn = ""
'       strConn = strConn & "Provider=OraOLEDB.Oracle;"
'       strConn = strConn & "Data Source=" & ServerName & ";"
'       strConn = strConn & "User ID=" & UserName & ";"
'       strConn = strConn & "PassWord=" & PassWord & ";"
'*************************************************************
      ' Debug.Print strConn
       Conn.ConnectionString = strConn
       Conn.CommandTimeout = 60
       Conn.CursorLocation = adUseClient
       Conn.Open
       
       '建立表空间
       'Conn.Execute "CREATE TABLESPACE ""FLYINGZFX"" DATAFILE 'D:\flyingzfx.dbf' SIZE 5m autoextend on", , adCmdText
       '删除表空间(其中一步)
       'Conn.Execute "alter database 'D:\flyingzfx.dbf' offline drop", , adCmdText
       
       '添加字段
       'Conn.Execute "ALTER TABLE FLYINGZFX.TEMPTEST ADD(CC VARCHAR2(50))"
       '修改字段类型
       'Conn.Execute "ALTER TABLE FLYINGZFX.TEMPTEST MODIFY(A VARCHAR2(50))"
       '删除字段
       'Conn.Execute "ALTER TABLE FLYINGZFX.TEMPTEST DROP (A, B) CASCADE CONSTRAINTS"
       '删除主键
       'Conn.Execute "ALTER TABLE FLYINGZFX.TEMPTEST DROP CONSTRAINT BB CASCADE"
       '删除表
       'Conn.Execute "DROP TABLE xxxx TRUNCATE CASCADE"
       
       Debug.Print "Connection Success!!!" & " (Conn_Oracle)"
       Conn_Oracle = True
       Exit Function
       
err1:
       Conn_Oracle = False
       
       
       Debug.Print Err.Description
       Err.Clear
       
       If Not Conn Is Nothing Then
              If Conn.State <> 0 Then Conn.Close
              Set Conn = Nothing
       End If
       
End Function