Problemas en consulta en ADO

Guillermo
01 de Diciembre del 2003

Hola a todos
Aguienpodria ayudarme en visual basic 6 la verdad no se mucho, Estoy haciendo una aplicacion para convertir un archivo *.txt a una base de datos, bueno ya logre meter todos los datos a la tabla, pero tengo ploblemas cuando quiero consultar un campo, por decir quiero consultar el numero 13, me muestra el primer registro pero aun en la tabla existen otros reg. iguales con el mismo numero pero ya no me carga, si alguien pudiera ayudarme se lo agradeseria mucho ya que soy novato en esto, es untrabajo de escuela.

rafa
01 de Diciembre del 2003
Hola Guillermo.
Si puedes mostrar tu codigo te echare una mano.
Un saludo

Baltasar
01 de Diciembre del 2003
Estoy completamente de acuerdo con Rafa. Si al hacer la pregunta se expone el código que se tenga hecho, ahorraríamos muchísimo tiempo, ya que primero hemos de adivinar hasta qué punto conoce el que pregunta el visual basic. Bueno, no me enrollo más, que mejor poner mucho texto que poco.

cmikel
01 de Diciembre del 2003
Option Explicit
Dim conConexion As New Connection

'A ver si esta porción de código te es de utilidad
Private Function consigueTransacciones() As String
Dim recCodigos As New Recordset
Dim sqlCodigos As String
sqlCodigos = "SELECT COD_TX_BDBBD, NOM_TX_BDBBD, ESTADO, DESCRIPCION, " & _
"TRANSACCION, CAMPO1, CAMPO2, CAMPO3, ETC " & _
"FROM T_CODIGO_TRANSACCION " & _
"WHERE COD_TX_BDBBD = '????????'"
Set recCodigos = getRecordsetReadOnly(sqlCodigos, conConexion)
If recCodigos.RecordCount > 0 Then
recCodigos.MoveFirst
While Not recCodigos.EOF
If Len(Trim(consigueTransacciones)) = 0 Then
'de esta manera puedes accesar al campo que desees ver del registro
'en el que te encuentres
consigueTransacciones = "'" & recCodigos("COD_TX_BDBBD").Value & "'"
'De la misma manera podría ver los demás campos
MsgBox recCodigos("DESCRIPCION").Value & " - " & recCodigos("CAMPO1").Value
MsgBox recCodigos("CAMPO3").Value & " - " & recCodigos("ETC").Value
Else
consigueTransacciones = consigueTransacciones & ", '" & recCodigos("COD_TX_BDBBD").Value & "'"
End If
recCodigos.MoveNext
Wend
Else
consigueTransacciones = ""
End If
recCodigos.Move 10 'Esto me llevaría al décimo registro
End Function

Public Function getRecordsetReadOnly(ByVal query As String, ByRef objConexion As Connection) As Recordset
Dim recTemp As New Recordset
recTemp.CursorLocation = adUseClient
recTemp.Open query, objConexion, adOpenStatic, adLockReadOnly
Set getRecordsetReadOnly = New Recordset
Set getRecordsetReadOnly = recTemp
End Function

'1 Inicio
Private Sub Form_Load()
conectarBD conConexion, "169.174.76.52", "bd_prueba", "usuario", "password"
consigueTransacciones
End Sub

Public Function conectarBD(ByRef objConexion As Connection, servidorIP As String, nombreBD As String, usuario As String, pass As String) As Boolean
objConexion.CommandTimeout = 0
objConexion.ConnectionTimeout = 5
If Trim(usuario) = "" Or Trim(pass) = "" Then
objConexion.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI" & _
";Persist Security Info=False;Initial Catalog=" & nombreBD & _
";Data Source=" & servidorIP
Else
objConexion.ConnectionString = "Provider=SQLOLEDB.1;password={" & pass & _
"};Persist Security Info=True;User ID=" & usuario & _
";Initial Catalog=" & nombreBD & ";Data Source=" & servidorIP
usuarioBD = LCase(usuario)
End If
objConexion.Open
If objConexion.State = adStateOpen Then
conectarBD = True
Else
conectarBD = False
End If
End Function