Visual Basic - Conexión VB6 a Oracle no regresa datos

Life is soft - evento anual de software empresarial
   
Vista:

Conexión VB6 a Oracle no regresa datos

Publicado por omar (2 intervenciones) el 02/12/2013 21:23:06
Hola a todos. Soy nuevo por aquí. Actualmente estoy desarrollando una pequeña aplicación para mi empresa y
quisiera pedirles de su apoyo para saber porque razón cuando hago mi conexión a Oracle no me trae datos, ya sea por ADO o por el component ADODC al hacer las consultas no regresa ningun registro, lo curioso es que no me muestra error alguno. La tabla (mitabla) que tengo tienen 137 registros en total, los cuales al momento de consultar en TOAD (usando los mismos datos de acceso que en la conexión desde vb) si aparecen pero cuando hago la consulta con el recordset o en el datagrid por medio del ADODC no me regresa dato alguno.
Esta es mi conexión: strCadena = "Provider=OraOLEDB.Oracle.1;Password=mipassword;User ID=miusuario;Data Source=miservicio;Persist Security Info=True"
cn.ConnectionString = strCadena
cn.Open
strSQL = "SELECT * from mitabla"
Set rs = New Recordset
With rs
.Source = "" 'Inicialización de la variable
'Configuación de parametros para realizar la consulta
.Source = strSQL
.ActiveConnection = cn
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockReadOnly 'Bloqueo del registro solo lectura
End With

rs.Open Options:=adCmdText 'Ejecución de la consulta
Debug.Print "CONEXION ORACLE = " & cn.State & " --- REGISTROS " & rs.RecordCount

Esta es la configuracion de miservicio en el tnsnames de oracle

miservicio=
(DESCRIPTION_LIST=
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server1)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=miservicio1)
)
)
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server2)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=misercivio2)
)
)
(DESCRIPTION=
(ADDRESS=(PROTOCOL=tcp)(HOST=server3)(PORT=1530))
(CONNECT_DATA=
(SERVICE_NAME=miservicio)
(INSTANCE_NAME=miservicio3)
)
)
)

Espero esta información sea suficiente y les agradezco el apoyo que me puedan brindar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Conexión VB6 a Oracle no regresa datos

Publicado por El Viejo Charles (261 intervenciones) el 03/12/2013 22:24:07
Hola Omar
Bueno yo nunca he realizado una conexión con Oracle, asumo que tendrá el mismo principio de cuando conecto Mysql, SQL Server, Access, por tanto prueba con esto a ver si te funciona, esto es lo que utilizo para interactuar con las bases de datos mencionadas. No olvides agregar la referencia "Microsoft ActiveX Data Objects 2.8 o superior"

Private Sub Form_Load()
Dim cn As New ADODB.Connection, Rs As New ADODB.Recordset, sSql As String
cn.Open = "Provider=OraOLEDB.Oracle.1;Password=mipassword;User ID=miusuario;Data Source=miservicio;Persist Security Info=True"
Rs.ActiveConnection = cn
Rs.CursorLocation = adUseClient
sSql = "SELECT * from mitabla"
Rs.Open sSql
If Not Rs.EOF Then
MsgBox Rs(0), vbInformation, "Resultado"
End If
Rs.Close
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Conexión VB6 a Oracle no regresa datos

Publicado por omar (2 intervenciones) el 04/12/2013 16:06:38
Gracias estimado Charles. Te comento que ya probé la conexión y aún así me sigue regresando 0 registros. El día de hoy pregunté a personal de sistemas de mi empresa y me comentaron que el servicio miservicio de oracle apunta a un servidor de produccion y a otros 2 clones. Lo que se me ocurre es que no este haciendo una replicación de manera correcta en algún servidor clon, aunque sigo con la duda porque TOAD si regresa datos y visual no. De hecho ya probé con otras consultas y los resultados que arrojan toad y visual son correctos, el problema es únicamente con esta tabla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar