Fóruns
Microsoft Excel - 2...
2024 - Integração E...
Urgente Quebra linh...
 
Notifications
Clear all

Urgente Quebra linha de código rstBanco.Open "SELECT Código,

 
2024 - Integração Excel & Access 2024
Post Recente por Henry-Systems 12 anos atrás
4 Posts
2 Usuários
0 Reactions
1,332 Visualizações
RSS
 Henry-Systems
(@henry-systems)
Posts: 9
Active Member
Topic starter
 

Buenas a todos.

Tenho a linha de código ( rstBanco.Open "SELECT CódigoDoFornecedor, NomeDaEmpresa, NomeDoContato, CargoDoContato, Endereço, Cidade, Região, CEP, País, Telefone, Fax, HomePage FROM Fornecedores", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText) que está funfando beleza.

Estou precisando incrementar 68 tabelas nessa linha mas não estou conseguindo quebrar a linha de código conforme abaixo, fica dando erro de compilação - Era esperado : fim da instrução:
(rstBanco.Open "SELECT CódigoDoFornecedor, NomeDaEmpresa, NomeDoContato, CargoDoContato, Endereço, Cidade, Região, CEP, País, Telefone, Fax, _
HomePage FROM Fornecedores", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText)

Alguém pode dar uma luz por gentileza.

Agradeço muitoooo preciso terminar um projeto e empaquei nessa questão.

Abraços

 
Postado : 03/11/2012 1:58 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Henry-Systems,

Boa Tarde!

Uma alternativa para esse problema é você criar uma variável do tipo String e depois usar a variável no comando, tipo assim:

Dim Comando As String
Comando = "SELECT CódigoDoFornecedor, NomeDaEmpresa, NomeDoContato, CargoDoContato, Endereço, Cidade, Região, CEP, País, Telefone, Fax" & VbCrlf
Comando = Comando & "HomePage FROM Fornecedores", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
(rstBanco.Open(Comando)

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 03/11/2012 2:46 pm
 Henry-Systems
(@henry-systems)
Posts: 9
Active Member
Topic starter
 

Salve Amigo Wagner!

Grato pela respostas.

Consegui fazer funcionar de outra forma... mas ainda vou testar a sua ideia.

A minha solução:

rstBanco.Open "SELECT * FROM Entrevista", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText

No caso substitui todos os campos por * e funfou... já fiz vários testes e até agora está ok.

Também irei disponibilizar o cadastro totalmente pronto e funcional.

Abraços

Henry-Systems,

Boa Tarde!

Uma alternativa para esse problema é você criar uma variável do tipo String e depois usar a variável no comando, tipo assim:

Dim Comando As String
Comando = "SELECT CódigoDoFornecedor, NomeDaEmpresa, NomeDoContato, CargoDoContato, Endereço, Cidade, Região, CEP, País, Telefone, Fax" & VbCrlf
Comando = Comando & "HomePage FROM Fornecedores", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
(rstBanco.Open(Comando)
 
Postado : 03/11/2012 10:12 pm
 Henry-Systems
(@henry-systems)
Posts: 9
Active Member
Topic starter
 

Salve Amigo Wagner!

Grato pela respostas.

Consegui fazer funcionar de outra forma... mas ainda vou testar a sua ideia.

A minha solução:

rstBanco.Open "SELECT * FROM Entrevista", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText

No caso substitui todos os campos por * e funfou... já fiz vários testes e até agora está ok.

Também irei disponibilizar o cadastro totalmente pronto e funcional.

Abraços

Henry-Systems,

Boa Tarde!

Uma alternativa para esse problema é você criar uma variável do tipo String e depois usar a variável no comando, tipo assim:

Dim Comando As String
Comando = "SELECT CódigoDoFornecedor, NomeDaEmpresa, NomeDoContato, CargoDoContato, Endereço, Cidade, Região, CEP, País, Telefone, Fax" & VbCrlf
Comando = Comando & "HomePage FROM Fornecedores", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
(rstBanco.Open(Comando)
 
Postado : 04/11/2012 6:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico