ADO
Publicado por Silvia (3 intervenciones) el 08/07/2005 03:53:27
Instale el Oracle y me pasaron un .sql para crear tablas, lo ejecute desde el PLSQL, y ahora intento conectarme por VB y no se que dato corresponde en "Data Source=?????"
Cómo puedo averiguarlo. Soy nueva en esto. Gracias
Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Dim user As String
Dim pass As String
Dim sitio As String
Private Sub Conectar_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim cadenaConexion As String
cadenaConexion = "Provider=msdaora;" & _
"Data Source=" & sitio & ";" & _
"User Id=" & user & ";" & _
"Password=" & pass
MsgBox cadenaConexion
cn.Open cadenaConexion
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM s_emp"
Set Text1.DataSource = rs
Text1.DataField = "table_name"
Set Text2.DataSource = rs
Text2.DataField = "table_type"
End Sub
Cómo puedo averiguarlo. Soy nueva en esto. Gracias
Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Dim user As String
Dim pass As String
Dim sitio As String
Private Sub Conectar_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim cadenaConexion As String
cadenaConexion = "Provider=msdaora;" & _
"Data Source=" & sitio & ";" & _
"User Id=" & user & ";" & _
"Password=" & pass
MsgBox cadenaConexion
cn.Open cadenaConexion
rs.ActiveConnection = cn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM s_emp"
Set Text1.DataSource = rs
Text1.DataField = "table_name"
Set Text2.DataSource = rs
Text2.DataField = "table_type"
End Sub
Valora esta pregunta


0