Programación General > Visual Basic 6.0 e inferiores

 Manejar Varias Tablas...

<< < (2/2)

Widark:
Hola Rony.

Este es un modulo para la conexion con ADO

Dim Cnx As ADODB.Connection
Dim rsUnidad as ADODB.Recordset

Function Coneccion(strRuta As String)
    Set Cnx = New ADODB.Connection
    Cnx.CursorLocation = adUseClient
    Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strRuta & ";Jet OLEDB:Database Password=Pass;"
    'Ejemplo de abertura de un recordset
    Set rsUnidad = New ADODB.Recordset
    rsUnidad.Open "Select * From unidades", Cnx, adOpenStatic, adLockOptimistic
End Function

En cuanto a las consultas de actualizacion e insercion no las utilizo mucho pero podrias guiarte por la ayuda de Visual Basic.  :comp:

Navegación

[0] Índice de Mensajes

[*] Página Anterior