gus
20 de Agosto del 2003

Hola estoy haciendo una aplicación en visual que enlaza con una base de datos de access mediante ADO. Son varios formularios MDI. Esta enlazado bien puesto que veo los datos de las tablas desde los formularios. Para añadir registros ala base de datos desde un formulario tengo puesto lo siguiente:

Private Sub boton_añadir_Click()
Set db1 = OpenDatabase("discos.mdb")
Set rdiscos = db1.OpenRecordset("Discos", dbOpenDynaset)
If codigo_disco.Text <> "" And precio.Text <> 0 Then
rdiscos.AddNew
rdiscos!codigo_disco = codigo_disco.Text
rdiscos!titulo = titulo.Text
rdiscos!autor = autor.Text
rdiscos!precio = precio.Text
rdiscos!discografica = discografica.Text
rdiscos.Update
rdiscos.Bookmark = rdiscos.LastModified
MsgBox "Registro Añadido"
Else: MsgBox "Introduce los datos"

End If
End Sub

Me da un error, no puede encontrar el archivo discos.mdb. He reparado y compactado la base de datos y me da el mismo error, y si pongo la ruta de la base de datos tambien me da error.
Si teneis la solucion para eliminar y añadir registro....decidmela o pasadmela please.
Gracias a todos y un saludo

[email protected]
20 de Agosto del 2003

Hola sabes el error es que tienes que darle la direccion donde se encuentra tu base de datos y se encuentra dentro de la misma carpeta que tienes el proyecto usa app.path +".discos.mdb" , si la tienes en otra parte de tu disco dale la direccion correspondiente y hay se t arregla al problema
adios