Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

concatenando Multiliineas de comando

Estas en el tema de concatenando Multiliineas de comando en el foro de Visual Basic clásico en Foros del Web. Amigos: Tengo un formulario en Visual Basic que contiene muchos campos de texto y algunos List, y me entere por ahi que hay una manera ...
  #1 (permalink)  
Antiguo 22/05/2007, 14:07
360
 
Fecha de Ingreso: marzo-2002
Mensajes: 307
Antigüedad: 22 años, 1 mes
Puntos: 1
Mensaje concatenando Multiliineas de comando

Amigos:

Tengo un formulario en Visual Basic que contiene muchos campos de texto y algunos List, y me entere por ahi que hay una manera de concatenar las lineas de comando, y al momento de correr el codigo en el boton de guardar me manda un mensaje que el campo "tecs" es demaciado largo, estube revisando en MySQL y todo esta correcto no entiendo donde podria estar el error.

Les pongo el codigo para cualquier referencia:


cn.Execute "insert into preventivo set tienda='" & Text1 & "', direccion='" & Text2 & "', telefono= '" & Text3 & "', nom_enca='" & Text4 & "', e_marca='" & Text5 & "', no_eco='" & Text6 & "', fec_ser= '" & Format(DTPicker1, "YYYY-MM-DD") & "', modelo='" & Text10 & "', serie='" & Text11 & "', cliente='" & Text12 & "', rumbo='" & Text13 & "', zona= '" & Text14 & "', tecs='" & Text8 & "'" & _
"', dicom='" & List1 & "', calca='" & List2 & "', ventila='" & List3 & "', pintex='" & List4 & "', pintin='" & List5 & "', basgab='" & List6 & "', parrilla='" & List7 & "', inter='" & List8 & "', lampara='" & List9 & "', balastra='" & List10 & "', micromo='" & List11 & "', compresor='" & List12 & "', motopro='" & List13 & "', puert='" & List14 & "', jal='" & List15 & "', marco='" & List16 & "', sello='" & List17 & "', cri='" & List18 & "', eva='" & List19 & "', micro='" & List20 & "', ins='" & List20 & "'" & _
"', c_dicom='" & Text18 & "', c_calca='" & Text19 & "', c_ventila='" & Text20 & "', c_pintex='" & Text21 & "', c_pintin='" & Text22 & "', c_basgab='" & Text23 & "', c_parrilla='" & Text24 & "', c_inter='" & Text25 & "', c_lampara='" & Text26 & "', c_balastra='" & Text27 & "', c_micromo='" & Text28 & "', c_compresor='" & Text29 & "', c_motopro='" & Text30 & "', c_puert='" & Text31 & "', c_jal='" & Text32 & "', c_sello='" & Text34 & "', c_cri='" & Text35 & "', c_eva='" & Text36 & "', c_micro='" & Text37 & "', c_ins='" & Text38 & "'"
Adodc1.Refresh
DataGrid1.Refresh
MsgBox "Registrado con Exito"
limpiar


Gracias.

360.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:28.