Visual Basic - Agregar registros a una base de datos access

Life is soft - evento anual de software empresarial
   
Vista:

Agregar registros a una base de datos access

Publicado por Betty (5 intervenciones) el 18/06/2008 02:03:05
Buenas tardes, siento mucho molestarlos pero necesito ayuda.Soy muy nueva en esta cuestión de la programación y mi problema es el siguiente:

tengo dos aplicaciones en visual basic, en las dos ocupo agregar registros a una base de datos y en una de ellas lo hace bien pero en la otra (que es la que me importa) me marca un error utilizando el mismo código que es el siguiente:

Dim db As Database
Dim rs As Recordset
Const sPathBase As String = "C:Documents and SettingsOwnerDesktopCLMFCLMF.mdb"

Private Function mostrardatos()
Set db = OpenDatabase(sPathBase)
(ESTA ES LA LÍNEA QUE MARCA EL ERROR ) Set rs = db.OpenRecordset("SELECT * FROM Anticipos ORDER BY Nombre", dbOpenDynaset)
End Function

Private Sub Cmd_Agregar_Click()

With mostrardatos
Do While Not .EOF
If Txt_Nombre = .Fields("Nombre") Then
MsgBox "Introduzca el nombre del operador"
Txt_Nombre.Text = ""
Txt_Nombre.SetFocus
Exit Sub
End If
.MoveNext
Loop
.AddNew
.Fields("Nombre") = Txt_Nombre
.Fields("Cheque") = Txt_Cheque
.Fields("Importe") = Txt_Importe
.Fields("Fecha") = Meb_Fecha
.Update
Call Cmd_Limpiar_Click
MsgBox "Anticipo Agregado"

End With
End Sub

Cuando presiono el botón agregar aparece el error 13 los tipos no coinciden. No sé si es el código correcto, espero haberme explicado bien y agradezco su ayuda de antemano. Que tengan bonito día.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Agregar registros a una base de datos access

Publicado por Pedro Luis (878 intervenciones) el 18/06/2008 12:43:04
O estas intentando introducir texto en un campo numerico, o una fecha incorrecta o un blanco en un campo de fecha.
Revisa la definicion de campos en la base de datos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar registros a una base de datos access

Publicado por lolo (163 intervenciones) el 18/06/2008 13:27:04
No!, no es por esa razón, pues no ves que el error salta al definir el recordset y no al actualizar?

El problemas es que en la aplicación que no le funciona, tiene referencias a ADO y a DAO y el recordset no sabe cual cojer.

Para Betty (espero que no seas la fea) :

Simplemente declara el recordset así:
Dim rs as DAO.Recordset

y se acabó el problema.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar registros a una base de datos access

Publicado por Betty (5 intervenciones) el 19/06/2008 01:56:15
Muchísimas gracias a los dos por responder. Lolo declaré el recordset como me dijiste e hice otros pequeños cambios y listo solucioné mi problema (Y no seré la más bonita pero tampoco la fea). Mil gracias de nuevo a ambos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Agregar registros a una base de datos access

Publicado por Victor (1 intervención) el 21/07/2008 00:25:26
Ah, me parece que en la parte donde asignas el valor a los campos te falta.
ejemplo de Txt_Nombre.Text para que no haya error de tipos.

Espero te ayude en algo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar