Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Ayuda BD en VB con ADO y Access

Life is soft - evento anual de software empresarial
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Ayuda BD en VB con ADO y Access

Autor:SirKronos (1 intervención)
Fecha:07/06/2009 18:37:15
Tengo un problema con este codigo me sale que no coiciden los tipos de datos con la expresion de criterios .... les pego el codigo de antemano muchas gracias :)




Select Case ACCION
Case EDITAR_REGISTRO
cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
"', Apellido = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"', Direccion = '" & Text1(4) & _
"', Sexo = '" & CmbSexo.ListIndex & _
"', A2008 = '" & a1 & _
"', A2009 = '" & a2 & _
"', A2010 = '" & a3 & _
"', A2011 = '" & a4 & _
"' where Id = " & IdRegistro & ""
Case AGREGAR_REGISTRO

cnn.Execute "INSERT INTO Personas " & "(Nombre,Apellido,Telefono,Direccion,Sexo,FechaDeAlta,A2008,A2009,A2010,A2011) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Text1(4) & "','" & _
CmbSexo.ListIndex & "','" & _
Check1 & "','" & _
Check2 & "','" & _
Check3 & "','" & _
Check4 & "','" & _
Format(Date, "dd/mm/yyyy") & "')"


End Select

rs.Requery


Call CargarListView(FrmPrincipal.LV, rs)

DoEvents
Unload Me

-------------------------------------------------------------------------------------------------------------------------------

Muchas gracias por su ayuda :)
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Ayuda BD en VB con ADO y Access

Autor:cmgcharli (91 intervenciones)
Fecha:08/06/2009 09:46:17
Si no lo he entendido mal ACCION sera una variable tipo String por lo que cuando haces el case deberia ir entre parentesis case "EDITAR_REGISTRO" o case "AGREGAR_REGISTRO"
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Ayuda BD en VB con ADO y Access

Autor:SirKronos (1 intervención)
Fecha:08/06/2009 20:42:00
Option Explicit

Enum EACCION
AGREGAR_REGISTRO = 0
EDITAR_REGISTRO = 1
End Enum

Public IdRegistro
Public ACCION As EACCION
Public a1, a2, a3, a4 As String

-------------------------------------------------------------------------------------------------------

asi es komo tengo las variables deklaradas
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Ayuda BD en VB con ADO y Access

Autor:Pedro Luis (869 intervenciones)
Fecha:08/06/2009 12:04:59
Además de lo anterior si el telefono se ha definido como numérico no necesita comillas, asi como los check que se guardan como 0 y 1.
Comentar