QUEBRA DE LINHA

 Tópico anterior Próximo tópico Novo tópico

QUEBRA DE LINHA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#488826 - 11/05/2019 23:06:24

LUCS
BALNEARIO CAMBORIU
Cadast. em:Novembro/2018


  Boa noite!
Tentei quebrar a linha neste código e não consegui!
Como faria, alguém poderia me ajudar, por gentileza

dbLocal.Execute ("CREATE TABLE Tb7ImprimirParc (NumReg Int, NDoc VARCHAR(50), FormaPgto VARCHAR(100), NParc VARCHAR(5), ValorParc VARCHAR(30), DataVenc VARCHAR(20), NomeCliente VARCHAR(255), Cpf VARCHAR(30), DataVenda VARCHAR(20))")

Gostaria neste exemplo abaixo
dbLocal.Execute ("CREATE TABLE Tb7ImprimirParc (NumReg Int, NDoc VARCHAR(50), _
FormaPgto VARCHAR(100), NParc VARCHAR(5), ValorParc VARCHAR(30) _
DataVenc VARCHAR(20), NomeCliente VARCHAR(255), Cpf VARCHAR(30), DataVenda VARCHAR(20))")

Normalmente, faço desta forma, mas tentei em todos os pontos possíveis e não deu...








Resposta escolhida #488827 - 12/05/2019 00:12:13

MARIOANDRADE
SANTO ANTONIO DE JESUS
Cadast. em:Abril/2012


dbLocal.Execute ("CREATE TABLE Tb7ImprimirParc (NumReg Int, NDoc VARCHAR(50), " & _
FormaPgto VARCHAR(100), NParc VARCHAR(5), ValorParc VARCHAR(30), DataVenc " & _
"VARCHAR(20), NomeCliente VARCHAR(255), Cpf VARCHAR(30), DataVenda VARCHAR(20))")

O segredo é colocar as aspas antes e comercial e só depois colocar o underline.
Espero ter ajudado.

    Cursos de Excel e VB6:
    www.cursoexcelvba.com.br



#488831 - 13/05/2019 10:53:00

LUIZCOMINO
SAO PAULO
Cadast. em:Maio/2009


Talvez um pouco mais elegante...

Dim sSQL as String
sSQL =" CREATE TABLE Tb7ImprimirParc ( "
sSQL = sSQL & " NumReg Int,"
sSQL = sSQL & " NDoc VARCHAR(50),"
sSQL = sSQL & " FormaPgto VARCHAR(100),"
sSQL = sSQL & " NParc VARCHAR(5),"
sSQL = sSQL & " ValorParc VARCHAR(30),"
sSQL = sSQL & " DataVenc VARCHAR(20),"
sSQL = sSQL & " NomeCliente VARCHAR(255),"
sSQL = sSQL & "Cpf VARCHAR(30),"
sSQL = sSQL & " DataVenda VARCHAR(20)"
sSQL = sSQL & " )"

dbLocal.Execute (sSQL)


"E conhecereis a verdade, e a verdade vos libertará. João 8:32"


#488832 - 13/05/2019 13:53:08

OMAR2007
MONTES CLAROS
Cadast. em:Maio/2019


Então onde está o
dbLocal.BeginTrans
dbLocal.CommitTrans  
dbLocal.RollbackTrans .



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por LUCS em 13/05/2019 20:54:49