Crear consulta SQL en VB

ger1539
18 de Febrero del 2004
como puedo crear una consulta SQL medianta el Adodc y para luego mostrarlo en un DataGrid

Gracias!

Juanpi
18 de Febrero del 2004
Hola, yo tb necesito saber eso. si alguien sabe por favor que lo explique :-) Gracias

LGA
18 de Febrero del 2004
Ok. Les mando una funcion que crea el Recordset mediante adodb.
Lo que tienes que hacer es mandarle por parametro la consulta y el nombre de Recorset.
///Funcion en un Modulo///
Public Function rs(querry As String, Recordset As ADODB.Recordset) As Recordset
On Error GoTo DBase
Set Recordset = New ADODB.Recordset
Recordset.CursorType = adOpenDynamic
Recordset.CursorLocation = adUseClient
Recordset.LockType = adLockOptimistic
Recordset.Open querry, NombreConexion
Set rs = Recordset
Exit Function
sincon:
If Err.Number = 3709 Then
MsgBox "No existe conexión con la Base de Datos", vbExclamation, Aplicacion
Unload frmError
Exit Function
End If
End Function

En el Formulario que necesite realizar la consulta
sub ....
Dim RstCons as adodb.recordset
rs"select * from clientes order by nom_cli",rstCons
/*/*/ Lista ya te cargo el recordset RstCons con el resultado de la consulta o sea todos los clientes ordenados por nombre.
end sub

Espero que les sirva si quieres mandame un mails con lo que no entiendas.
[email protected]
PD: Indica en el Asunto el tema y de donde viene sino no los leo. (programacion.com)