Cómo accedo al contenido de una tabla en visual basic?
!hola!
Resulta que tengo una variable servidor de tipo SQLServer2, una variable BDatos de tipo Database2 y una variable tabla de tipo Table2.
Una vez que yo hago la conexión con el servidor y todo eso, mi objetivo es poder detectar si en la tabla, en la segunda columna aparece la palabra "Error". ¿Como puedo ver el contenido de la tabla?
Muchas gracias
Resulta que tengo una variable servidor de tipo SQLServer2, una variable BDatos de tipo Database2 y una variable tabla de tipo Table2.
Una vez que yo hago la conexión con el servidor y todo eso, mi objetivo es poder detectar si en la tabla, en la segunda columna aparece la palabra "Error". ¿Como puedo ver el contenido de la tabla?
Muchas gracias
Una vez que tengas la conexión debes crearle un recordset.
supongamos que tu conexión de llama cnConexión y que ya está funcionando.
Haces lo siguiente:
Dim rs As Recordset
With rs
.Source = "SELECT Columna2 FROM Tabla"
.ActiveConnection = cnConexión
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rs.Open Options:=adCmdText
y conectas tu tabla (supongamos que tienes un grid en el form) con el recordset así
Set Grid.Datasource=rs
Grid.Refresh
Luego debes recorrer el recordset hasta encontrar la palabra Error:
Do Until rs.EOF
If rs.Fields(0).Value = "Error" Then
Exit Sub
End If
Loop
Saludos!
Bartolom
Chile
supongamos que tu conexión de llama cnConexión y que ya está funcionando.
Haces lo siguiente:
Dim rs As Recordset
With rs
.Source = "SELECT Columna2 FROM Tabla"
.ActiveConnection = cnConexión
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With
rs.Open Options:=adCmdText
y conectas tu tabla (supongamos que tienes un grid en el form) con el recordset así
Set Grid.Datasource=rs
Grid.Refresh
Luego debes recorrer el recordset hasta encontrar la palabra Error:
Do Until rs.EOF
If rs.Fields(0).Value = "Error" Then
Exit Sub
End If
Loop
Saludos!
Bartolom
Chile