Visual Basic - insert into con errores vacios

Life is soft - evento anual de software empresarial
   
Vista:

insert into con errores vacios

Publicado por Juanpe (2 intervenciones) el 31/03/2008 12:50:21
hola amig@s tengo este code con los siguientes problemas , me da de alta correctamente el nuevo cliente pero en los campos de texto me los carga vacios sin cadenas o valores , alguna solucion :
--------------------------------------------------------------------

Textcampo(6).SetFocus
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:insert into con errores vacios

Publicado por Juanpe (2 intervenciones) el 31/03/2008 13:16:14
Textcampo(6).SetFocus
With cmd
.ActiveConnection = adocnn
.CommandText = ordensql
'.Prepared = True
.CommandType = adCmdText
'.Parameters(nombre) = Textcampo(6)
'.Parameters(nif) = Textcampo(7)
'.Parameters(postal) = Textcampo(8)
'.Parameters(población) = Textcampo(9)
'.Parameters(dirección) = Textcampo(10)
'.Parameters(provincia) = Textcampo(11)
'.Parameters(telefono1) = Textcampo(12)
'.Parameters(telefono2) = Textcampo(13)
'.Parameters(fax) = Textcampo(14)
'.Parameters(movil) = Textcampo(15)
'.Parameters(email) = Textcampo(16)
'.Parameters(web) = Textcampo(17)
'.Parameters(observaciones_cliente) = Textcampo(18)
End With
ordensql = "insert into clientes (nombre,población,nif,postal,dirección,provincia,telefono1,telefono2,fax,movil,email,web,observaciones_cliente)" _
& "Values ('" & Textcampo(6) & "', '" & Textcampo(9) & "','" & Textcampo(7) & "','" & Textcampo(8) & "','" & Textcampo(10) _
& "','" & Textcampo(11) & "','" & Textcampo(12) & "','" & Textcampo(13) & "','" & Textcampo(14) & "','" & Textcampo(15) _
& "','" & Textcampo(16) & "','" & Textcampo(17) & "','" & Textcampo(18) & "')"

cmd.Execute ordensql
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