Visual Basic - error (800040e7)

Life is soft - evento anual de software empresarial
   
Vista:

error (800040e7)

Publicado por jorge (3 intervenciones) el 05/06/2008 19:01:05
hola a todos
tengo un pequeño mas interesante problema vb 6 error que dice: no coinsiden los tipos de datos en la expresion de criterios.

y este es el codigo
Select Case ACCION
Case EDITAR_REGISTRO

cnn.Execute "UPDATE GuiasEscort Set Nombre = '" & Text1(1) & _
"', ApellidoP = '" & Text1(2) & _
"', ApellidoM = '" & Text1(3) & _
"', puesto = '" & Combo1.Text & _
"', direccion = '" & Text1(4) & _
"', TelPart = '" & MaskEdBox1(0) & _
"', TelCell = '" & MaskEdBox1(1) & _
"', FechaIng = '" & MaskEdBox1(2) & _
"', VenCredencial = '" & MaskEdBox1(3) & _
"', Nacimiento = '" & MaskEdBox1(4) & _
"', Identificacion = '" & Text1(5) & _
"', Email = '" & Text1(6) & _
"', Observaciones = '" & Text1(7) & _
"', Radio = '" & Check1(0).Value & _
"', Cargador = '" & Check1(1).Value & _
"', PilaEx = '" & Check1(2).Value & _
"', Contador = '" & Check1(3).Value & _
"', Termometro = '" & Check1(4).Value & _
"', Silvato = '" & Check1(5).Value & _
"', Carpeta = '" & Check1(6).Value & _
"', Sombrero = '" & Check1(7).Value & _
"', Uniforme = '" & Check1(8).Value & _
"' Where Clave = " & IdRegistro
Case AGREGAR_REGISTRO

cnn.Execute "INSERT INTO GuiasEscort (Nombre,ApellidoP,ApellidoM,puesto,direccion,TelPart,TelCell,FechaIng,VenCredencial,Nacimiento,Identificacion,Email, Observaciones, Radio, Cargador, PilaEx, Contador, Termometro, Silvato, Carpeta, Sombrero, Uniforme,Clave) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Combo1.Text & "','" & _
Text1(4) & "','" & _
MaskEdBox1(0) & "','" & _
MaskEdBox1(1) & "','" & _
MaskEdBox1(2) & "','" & _
MaskEdBox1(3) & "','" & _
MaskEdBox1(4) & "','" & _
Text1(5) & "','" & _
Text1(6) & "','" & _
Text1(7) & "','" & _
Check1(0).Value & "','" & _
Check1(1).Value & "','" & _
Check1(2).Value & "','" & _
Check1(3).Value & "','" & _
Check1(4).Value & "','" & _
Check1(5).Value & "','" & _
Check1(6).Value & "','" & _
Check1(7).Value & "','" & _
Check1(8).Value & "','" & _
Text1(0) & "')"
End Select
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:error (800040e7)

Publicado por fede (189 intervenciones) el 06/06/2008 15:05:05
ese error se da porque no coincide el tipo de dato con lo q ingresas es decir:

fijate de que tipo son los campos(numerico,texto,fecha,etc) ya que para campos numericos debes insertar datos comillas y text con comillas simples ej:

nroingreso=" & txtnro & "
descripcion='" & txdescri & "'

fijate y avisa
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:error (800040e7)

Publicado por jorge (3 intervenciones) el 09/06/2008 17:31:53
ok muchas gracias por tomar tu tiempo y contestar el problema era que tengo campos fecha en la base de datos el formato que se tiene con los maskedit es el mismo del campo y es donde dice que los criterios no son iguales al momento que cambie los campos de fecha a text no existio ningun ploblema el detalle es que a hora quite los maskedit coloque dtpicker y tanto con campos texto, como fecha marca error al querer al macenar los datos en la base de datos ese es es el proble que no acepta como lo mando almacenar el formato de la fecha es elmismo.

si puedes ayudar un poco te lo agradesco
gracias.
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:error (800040e7)

Publicado por FEDE (189 intervenciones) el 09/06/2008 19:12:16
NO HACE FALTA Q CAMBIES EL FORMATO DEL CAMPO FECHA XQ AMI ME FUNCIONA BIEN LO QUE SI PONELE A LOS MASKEDIT .TEXT ES DECIR

cnn.Execute "INSERT INTO GuiasEscort (Nombre,ApellidoP,ApellidoM,puesto,direccion,TelPart,TelCell,FechaIng,VenCredencial,Nacimiento,Identificacion,Email, Observaciones, Radio, Cargador, PilaEx, Contador, Termometro, Silvato, Carpeta, Sombrero, Uniforme,Clave) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Combo1.Text & "','" & _
Text1(4) & "','" & _
MaskEdBox1(0).TEXT & "','" & _ ' XQ ALOMEJOR TE TOMA OTRA PRPIEDAD DEL OBJ COMO MASK O OTRA
MaskEdBox1(1).TEXT & "','" & _
MaskEdBox1(2).TEXT & "','" & _
MaskEdBox1(3).TEXT & "','" & _
MaskEdBox1(4).TEXT & "','" & _
Text1(5) & "','" & _
Text1(6) & "','" & _
Text1(7) & "','" & _
Check1(0).Value & "','" & _
Check1(1).Value & "','" & _
Check1(2).Value & "','" & _
Check1(3).Value & "','" & _
Check1(4).Value & "','" & _
Check1(5).Value & "','" & _
Check1(6).Value & "','" & _
Check1(7).Value & "','" & _
Check1(8).Value & "','" & _
Text1(0) & "')"
End Select
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:error (800040e7)

Publicado por jorge (3 intervenciones) el 09/06/2008 19:22:41
gracias por tu pronta contestacion asi es cuando relizo la consulta me la accepto con mask ya que al poner maskedit1(i).text me carca error teniendo el campo fecha en corta

de esta forma los cargo.

'SE CARGAN LOS DEMAS TEXTBOX
b = 6
For k = 0 To 4
.MaskEdBox1(k).Mask = LV.SelectedItem.ListSubItems(b).Text
b = b + 1
Next

y al momento de mandarlos guardar al modificar o un nuevo registro y con .text marca el error de criterios
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