Reto a Concatenar

[360]

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.

[cesar_nava]

Iniciado por 360

cn.Execute "insert into preventivo set tienda='" &

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

La sintaxis correcta del Insert es:

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

[darkasecas]

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?

Iniciado por cesar_nava

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

La sintaxis correcta del Insert es:

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

No es necesario poner los nombres de los campos si vas a insertar en todos los campos.

[360]

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.

[darkasecas]

Creo que ya vi el error

Código:

"', ins='" & Combo21 & " '," & _
"' ,c_dicom='" & Text18

Parece que tienes una comilla y una coma de mas

[360]

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.

[360]

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.

[jose58]

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??

[darkasecas]

Cambia

Código:

"', ins='" & Combo21 & " '," & _
"' ,c_dicom='" & Text18

por

Código:

"', ins='" & Combo21 & _
"' ,c_dicom='" & Text18

[360]

GRACIAS GRACIAS GRACIAS Y MAS GRACIAS
PROBLEMA SOLUCIONADO

GRACIAS POR TU AYUDA!

360.

[5v5]

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