Cómo enlazar una base de datos com Visual Basic 6?

C?r D? G?
18 de Septiembre del 2004
Cómo puedo enlazar una base de datos creada en Acces con Visual Basic 6? necesito un ejemplo por favor. De antemano le agradezco su atención.

Jorge
18 de Septiembre del 2004
bájate el manual de visual basic de
http://www.networksoftware-latam.com

Anahis
18 de Septiembre del 2004
PUEDE SER CON UNA DATA CONTROL O CON EL SIGUIENTE CODIGO
Dim NOM_BD As Database

Set NOM_BD = OpenDatabase("RUTA DONDE C ENCUENTRA LA BD")

Cristina Hern?ez
18 de Septiembre del 2004
'Determinas la conexion y el recordset q vas a utilizar
Dim Conn As New ADODB.Connection
Dim rsConexiones As New ADODB.Recordset

'Aqui abres la conexion cambiando la direccion donde esta la base de datos
'Si tu base de datos no tiene password kita el ;Jet OLEDB:Database Password=100257 '<-Aqui va el pass de tu base de datos
'al final de la linea
Public Sub Connect()
On Error Resume Next
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (App.Path & "Costos.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=100257")
End Sub


'Aqui esta un ejemplo de como agregas informacion a una tabla de tu base de datos
Public Sub Agregar_Tab()
Call Connect
rsConexiones.Open "Select * From Tab", Conn, adOpenStatic, adLockOptimistic
With rsConexiones
.Find "Clave like '" & clave$ & "'"
If .EOF And frmtab.Caption = "Agregar Tabulador" Then
.AddNew
.Fields(0) = clave$
.Fields(1) = frmtab.txtconcepto.Text
.Fields(2) = frmtab.txtunidad.Text
.Fields(3) = frmtab.txtprecio.Text
.Update
MsgBox "Se ha grabado el tabulador", vbInformation, "Tabuladores"
ElseIf Not .EOF And frmtab.Caption = "Modificar Tabulador" Then
.Fields(1) = frmtab.txtconcepto.Text
.Fields(2) = frmtab.txtunidad.Text
.Fields(3) = frmtab.txtprecio.Text
.Update
MsgBox "Se ha modificado el tabulador", vbInformation, "Tabuladores"
ElseIf frmtab.Caption = "Modificar Tabulador" Then
MsgBox "Necesita Dar de Alta el Tabulador", vbExclamation, "Tabuladores"
End If
End With
'Esto sirve para cerrar la base de datos
Set rsConexiones = Nothing
Set Conn = Nothing
End Sub

Ojala te sirvan mis garabatos
Byes!!!!