Reto a Concatenar
 

Amigos:

estoy tratando de concatenar las siguientes lineas:

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='" & Combo1 & "', calca='" & Combo2 & "', ventila='" & Combo3 & "', pintex='" & Combo4 & "', pintin='" & Combo5 & "', basgab='" & Combo6 & "', parrilla='" & Combo7 & "', inter='" & Combo8 & "', lampara='" & Combo9 & "', balastra='" & Combo10 & "', micromo='" & Combo11 & "', compresor='" & Combo12 & "', motopro='" & Combo13 & "', puert='" & Combo14 & "', jal='" & Combo15 & "', marco='" & Combo16 & "', sello='" & Combo17 & "', cri='" & Combo18 & "', eva='" & Combo19 & "', micro='" & Combo20 & "', ins='" & Combo21 & " '," & _
"' ,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 & "'"


al momento de mandarla al sql me manda un error que aun no he descubrido,
para determinar si alguna linea estaba mal expresada guarde linea por linea sin concatenar y todas se almacenan en mi BD creo que el problema esta en la concatenacion, supuestamente ya hice todo lo que me han dicho pero aun sigue el erro al momento de guardar los campos.. espero puedan encontrar el error porque yo ya tengo mas de 4 semanas y aun no doy con el.

Gracias 360.

Re: Reto a Concatenar
 

Segun yo, desde la primera linea esta mal tu sentencia.

La sintaxis correcta del Insert es:

Insert Into Tabla (Campo1, Campo2,...) Values (Valor1, Valor2,...)

Re: Reto a Concatenar
 

Ya probaste guardado esa consulta en una variable, hacer un debug.print variable y copiar lo que salga en tu administrador de bd a ver que error te marca?
No es necesario poner los nombres de los campos si vas a insertar en todos los campos.

Re: Reto a Concatenar
 

haber.... como que desde la primera linea, si ponemos la primera linea tal y cual esta sin la expresion para concatenar me guarda los campos, el problema es que cuando pongo mas de una linea ya no guarda los campos.

Re: Reto a Concatenar
 

Creo que ya vi el error
Parece que tienes una comilla y una coma de mas

Re: Reto a Concatenar
 

Uno de los problemas es que cuando escribimos toda la cadena de campos en VB esta llega hasta un punto en el cual ya no puedes escribir, por ejemplo:

campo1, campo2, campo2....... campo20 (suponiengo que aqui quiero poner 30 campos el VB solo me deja escribir hasta el 20) entonces tengo que concatenar los campos que me faltan y es ahi donde esta el problema.:'(

Re: Reto a Concatenar
 

donde esta el HORROR ?:'( , no veo lo que me dices o sera qu eya de tantas vueltas que le he dado ya no lo visualizo.

Re: Reto a Concatenar
 

jeje voy a provechar que estan hablando de los mismo aver sime ayudan aqui yo tengo estes codigo en el cual consulto pero que sucede que cuando me consulta me duplica los datos en las cajas de texto
ejemplo me duplica asi

||jose peres||jose peres
||18519744||18519744
||venezuela||venezuela
y asi sucesivamente
y el codigo que uso es eeste

Private Sub Command3_Click()
Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "F:\visual\modelo.mdb")
buscar = Text1.Text
SQL = "SELECT * FROM RECIPIENTE WHERE CEDULA LIKE '" & buscar & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text2.Text = Text2.Text & vbCrLf & RS("NOMBRE")
Text3.Text = Text3.Text & vbCrLf & RS("FECHADEINGRESO")
Text5.Text = Text5.Text & vbCrLf & RS("SUPERVISOR")
Text6.Text = Text6.Text & vbCrLf & RS("SKILL")
Text7.Text = Text7.Text & vbCrLf & RS("JPHONE")

RS.MoveNext
Loop


End Sub

donde esta el error que hace eso??

Re: Reto a Concatenar
 

Cambiapor

Re: Reto a Concatenar
 

GRACIAS GRACIAS GRACIAS Y MAS GRACIAS:si:
PROBLEMA SOLUCIONADO

GRACIAS POR TU AYUDA!

360.

Re: Reto a Concatenar
 

Hola...que no seria mas facil con un addnew.....update...