Query Grande

[Guest --Wolf --]

Boa tarde.

Estou fazendo uma query insert, so que ela fica muito grande e continua em outro paragrafo, so que da erro, como faço para continuar a minha query em outra linha sem dar erro, ou seja, da forma correta.

A query é esta:

Set rs = cn.Execute("insert into tb_hist(data,cliente,campo1,campo2,campo3,campo4,campo5,campo6,campo7,campo8,campo9,campo10,campo11,campo12,campo13,campo14,campo15,campo16,campo17,campo18,campo19,campo20) values('" & DTPicker1.Value & "','" & Combo1.Text & "','" & valor1 & "','" & valor2 & "','" & valor3 & "','" & valor4 & "','" & valor5 & "','" & valor6 & "','" & valor7 & "','" & valor8 & "','" & valor9 & "','" & valor10 & "','" & valor11 & "','" & valor12 & "','" & valor13 & "','" & valor14 & "','" & valor15 & "','" & valor16 & "','" & valor17 & "','" & valor18 & "','" & valor19 & "','" & valor20 & "')")

Obrigado

Wolf

[raphael_suporte]

use o _

ficaria assim

"Set rs = cn.Execute("insert into tb_hist(data,cliente,campo1,campo2,campo3,campo4,campo5,campo6,campo7,campo8,cam

po9,campo10,campo11,campo12,campo13,campo14,campo15,campo16,campo17,campo18,camp

o19,campo20) values('" & DTPicker1.Value & "','" & Combo1.Text & "','" & valor1 & "','" & valor2 & "','" & valor3_

& "','" & valor4 & "','" & valor5 & "','" & valor6 & "','" & valor7 & "','" & valor8 & "','" & valor9 & "','" & valor10 &_

"','" & valor11 & "','" & valor12 & "','" & valor13 & "','" & valor14 & "','" & valor15_

& "','" & valor16 & "','" & valor17 & "','" & valor18 & "','" & valor19 & "','" & valor20 & "')")"

[Guest Visitante]

Não deu certo amigão, fica vermelho e não roda o fonte.

Se puder dar uma força novamente..

Obrigado

[raphael_suporte]

Set rs = cn.Execute("insert into tb_hist(data,cliente,campo1,campo2,campo3,campo4,campo5,campo6,campo7,campo8,cam

po9,campo10,campo11,campo12,campo13,campo14,campo15,campo16,campo17,campo18,camp

o19,campo20) values('" & DTPicker1.Value & "','" & Combo1.Text & "','" & valor1 & "','" & valor2 & "','" & valor3 _

& "','" & valor4 & "','" & valor5 & "','" & valor6 & "','" & valor7 & "','" & valor8 & "','" & valor9 & "','" & valor10 & _

"','" & valor11 & "','" & valor12 & "','" & valor13 & "','" & valor14 & "','" & valor15 _

& "','" & valor16 & "','" & valor17 & "','" & valor18 & "','" & valor19 & "','" & valor20 & "')")"

desculpe é porque tá encostado o Underline na função de um espaço e tenta

[ToPronto N'Area]

Use um string antes

Dim Sql as string

sql = "insert into tb_hist(data,cliente,campo1,campo2,campo3,campo4,campo5,campo6,campo7,campo8,campo9,"

sql = sql & "campo10,campo11,campo12,campo13,campo14,campo15,campo16,campo17,campo18,campo19,"

sql = sql & "campo20) values('" & DTPicker1.Value & "','" & Combo1.Text & "','" & valor1 & "','" & valor2 & "','" & valor3 & "','" "

sql = sql & "& valor4 & "','" & valor5 & "','" & valor6 & "','" & valor7 & "','" & valor8 & "','" & valor9 & "','" & valor10 & "','" "

sql = sql & "& valor11 & "','" & valor12 & "','" & valor13 & "','" & valor14 & "','" & valor15 & "','" & valor16 & "','" & valor17 & "','" "

sql = sql & "& valor18 & "','" & valor19 & "','" & valor20 & "')")"

Set rs = cn.Execute(sql)

Saca!

A ideia é escrever o que tu iria escrever na query antes em uma string daí tu vai juntando ela e depois manda executa a string!

bom aqui funciona, só da uma conferida nos finais das linha pra ver se vai terminar da forma que tinha de continuar se fosse na mesma linha!

Abraços!

[raphael_suporte]

o lance do underline não funciona não?

aqui comigo funciona!!

[ToPronto N'Area]

o lance do underline não funciona não?

aqui comigo funciona!!

Tambem funciona só que eu prefiro este, prq o underline não entra em qualquer local da expressão!

já a concatenação funciona em qualquer parte!