RE:Buscar en Visual Basic con el adodc
Bueno, aunque no es un foro de VB:
Global cn As ADODB.Connection
Global cmd1 As ADODB.Command
Global rsset As ADODB.Recordset
Const BLOCKSIZE As Long = 4096
Private Sub Form_Activate()
Dim ConnectString As String
Dim anerror As ADODB.Error
Dim Sql As String
Dim i As Integer
'Para el control de errores
On Error GoTo handler
ConnectString = "uid=operaciones;pwd=sendbip;server=ADN_BIPER;" & _
"driver={SQL Server};database=REUNE;" & "DSN='';"
'Ejecuto un procedimiento
Sql = "EXEC pr_RVReporteHora"
'Ejecuto un Select
Sql = "SELECT * FROM PUBS WHERE PUBID = 12345"
Set cn = New ADODB.Connection
cn.ConnectionString = ConnectString
cn.Open
Set rsset = New ADODB.Recordset
rsset.Open Sql, cn, adOpenStatic, adLockReadOnly
i = 0
While Not rsset.EOF
rtfConsulta.Text = rtfConsulta.Text & rsset(0) & vbCr
rsset.MoveNext
Wend
Exit Sub
handler:
For Each anerror In cn.Errors
Debug.Print anerror.Number & ": " & anerror.Description & " - " & anerror.SQLState
Next anerror
End Sub