conexion con oracle desde visual basic.¿ como hacerlo?
Buen dia necesito solucionar un problema: necesito saber como enlazar mi aplicacion en visual basic con oracle necesito generar reportes. ¿como establecer las conexiones con oracle? por favor espero su respuesta.
Aqui te va un pequeño ejemplo de como conectarte a Oracle desde Visual Basic.
'Declaracion de variables para acceso ADO
Dim Conexion As ADODB.Connection
Dim resultSet As ADODB.Recordset
Dim ssql As String
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=KHI ; User Id=VJPQ; Password=VJPQ"
Conexion.Open
ssql = "select SYSDATE, user FROM DUAL"
Set resultSet = New ADODB.Recordset
Set resultSet = Conexion.Execute(ssql)
MsgBox "Fecha: " & resultSet!sysdate.Value & " Usuario: " & resultSet!user.Value, vbInformation + vbOKOnly, "Form002"
Conexion.Close
P.D. tienes que tener instaldo el cliente de oracle y configurar la conexión, o por lo menos lo Drivers de OLEDB y configurar la conexión.
Tambien tienes que revizar que el en Menu de:
PROJECT / References tengas seleccionado
OLE Automation y
Microsoft Activex Data Objetcs 2.7 Library
'Declaracion de variables para acceso ADO
Dim Conexion As ADODB.Connection
Dim resultSet As ADODB.Recordset
Dim ssql As String
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "Provider=OraOLEDB.Oracle; Data Source=KHI ; User Id=VJPQ; Password=VJPQ"
Conexion.Open
ssql = "select SYSDATE, user FROM DUAL"
Set resultSet = New ADODB.Recordset
Set resultSet = Conexion.Execute(ssql)
MsgBox "Fecha: " & resultSet!sysdate.Value & " Usuario: " & resultSet!user.Value, vbInformation + vbOKOnly, "Form002"
Conexion.Close
P.D. tienes que tener instaldo el cliente de oracle y configurar la conexión, o por lo menos lo Drivers de OLEDB y configurar la conexión.
Tambien tienes que revizar que el en Menu de:
PROJECT / References tengas seleccionado
OLE Automation y
Microsoft Activex Data Objetcs 2.7 Library
