Problema al guardar registro
Publicado por Mauricio (28 intervenciones) el 24/02/2016 19:49:17
amigos, estoy desarrollando un programita de administracion de documentos y en primera instancia el modulo guardaba sin problema, pero despues de hacer el modulo de update me comenzo a indicar un error este es ("no coinciden los tipos de datos en la expresion de criterios"), adjunto el codigo con el que guardo los datos a la base de datos Access 2010 con Visual estudio 2010, desde ya gracias:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Try
conexion()
Dim cmd As New OleDbCommand("insert into man_equipos values(@idEnvio, @fecha, @tipoEquipo, @marca, @modelo, @kw, @rpm, @caudal, @otro, @planta, @equipo, @contratista, @diagnostico, @estado, @fechaEntrega, @guiaDespacho, @observaciones, @user)", conex)
cmd.Parameters.Add(New OleDbParameter("@idEnvio", envio))
cmd.Parameters.Add(New OleDbParameter("@fecha", TxtFecha.Text))
cmd.Parameters.Add(New OleDbParameter("@tipoEquipo", tipo))
cmd.Parameters.Add(New OleDbParameter("@marca", CbMarca.Text))
cmd.Parameters.Add(New OleDbParameter("@modelo", UCase(TxtModelo.Text)))
cmd.Parameters.Add(New OleDbParameter("@kw", CbKw.Text))
cmd.Parameters.Add(New OleDbParameter("@rpm", CbRpm.Text))
cmd.Parameters.Add(New OleDbParameter("@caudal", UCase(TxtCaudal.Text)))
cmd.Parameters.Add(New OleDbParameter("@otro", UCase(TxtOtro.Text)))
cmd.Parameters.Add(New OleDbParameter("@planta", CbPlanta.Text))
cmd.Parameters.Add(New OleDbParameter("@equipo", CbEquipos.Text & " - " & CbEquipos2.Text))
cmd.Parameters.Add(New OleDbParameter("@contratista", CbContratista.Text))
cmd.Parameters.Add(New OleDbParameter("@diagnostico", TxtDiagnos.Text))
cmd.Parameters.Add(New OleDbParameter("@estado", estado))
cmd.Parameters.Add(New OleDbParameter("@fechaEntrega", "-"))
cmd.Parameters.Add(New OleDbParameter("@guiaDespacho", "-"))
cmd.Parameters.Add(New OleDbParameter("@observaciones", "-"))
cmd.Parameters.Add(New OleDbParameter("@user", TxtUser2.Text))
conex.Open()
cmd.ExecuteNonQuery()
MsgBox("El envio se ha almacenado satisfactoriamente", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
conex.Close()
End Try
Valora esta pregunta
0
