lzuniga
26 de Julio del 2004

Pido disculpas pero necesito su ayuda , por favor como puedo hacer la conexxion deuna base de datos de acces y luego trabajar sus registros y campos individualmente desde Visual Basic por favor, espero entiendan la pregunta y gracias espero su ayuda

krizall
26 de Julio del 2004

en un modulo bas

'agregar referencia Microsoft activex data objects 2.1 o superior

dim Cn as adodb.connection
public Rs as adodb.recordset

public sub Conectar(byval Ruta as string)
'este procedimiento habre la conexion a una bd 2000, pide la ruta de la bd
set cd=new adodb.connection
cn.connectionstrign="provider=microsoft.jet.oledb.4.0;data source=" & ruta & "persist security info=false"
cn.open
end sub

public sub Consultarrs(byval sSql as string)
'pide la sentencia sql a ejecutar
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sSql, Conn, adOpenStatic, adLockOptimistic
end sub

Public Sub CerrarRsConn()
'procedimiento que cierra el reocordset y la conexion
On Error Resume Next
If rs.State = 1 Then
rs.Close
End If
If Conn.State = 1 Then
Conn.Close
End If
Set rs = Nothing
Set Conn = Nothing
Err.Clear
End Sub

lo llamas asi desde un form nomal, y lo puedes utilizar desde cualquir form

conectar(c:mibase.mdb)
consultarrs("select campo from tabla where condiciones")
if not rs.eof then
si hay registros
else
no hay registros
end if
cerrarrsconn
ahora solo haces lo que quieras con el o los registros seleccionados

bueno, por el momento es todo pero si necesitas alguna otra informacion no dudes en escribirme

espero poder ayudarte