Hola, tengo un programa en vb 6.0 con una base de datos acces 97 y el programa es un sistema automatizado con imagenes y esta conectada con (data) y cuando le agrego imagenes se pone lento el programa.... mi pregunta es como yo enlazo mi base de datos acces.... con una carpeta eh leido que es la mejor forma de trabajarlo pero no se como aqui les dejo mi codigo para que porfavor me digan a donde se ingresan y si tiene algun error........ soy nuevo programando y no se ayudaaaaaaa................????????????
aqui les dejo mis codigosss........
este consta con una barra de menu que lleva los siguientes botones... desplegables
Nuevo
Editar
Buscar y Salir
Private Sub CE_Click()
Dim ID As Long
ID = Val(InputBox("Introduce la Cedula que buscas"))
Data1.Recordset.FindFirst "CEDULA=" & ID
If Data1.Recordset.NoMatch Then
MsgBox "La Cedula numero: " & ID & "No esta en la base de datos", vbInformation, "id"
End If
End Sub
Private Sub Command1_Click()
dialogo.ShowOpen
Image3.Picture = LoadPicture(dialogo.FileName)
End Sub
Private Sub Command2_Click()
Data1.Recordset.MoveFirst
MsgBox "Primer registro de toda la Base de datos", vbInformation
End Sub
Private Sub Command3_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
MsgBox " Se está en el registro anterior ", vbInformation
End If
End Sub
Private Sub Command4_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
MsgBox " Se está en el ultimo registro ", vbInformation
End If
End Sub
Private Sub Command5_Click()
Data1.Recordset.MoveLast
MsgBox "Ultimo registro de toda la base de datos", vbInformation
End Sub
Set db = DBEngine.OpenDatabase(App.Path & "\BD.mdb")
Set rst = db.OpenRecordset(" Select * from BD3")
Data1.DatabaseName = App.Path & "\BD.mdb"
Set Data1.Recordset = rst
End Sub
