CRIAR CONTROL ARRAY NO VB.

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

CRIAR CONTROL ARRAY NO VB.

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#490111 - 21/08/2019 10:29:01

F4B10
SAO PAULO
Cadast. em:Fevereiro/2010


Ol a todos! Senhores, atingi o nmero limite de controles em um formulrio no Vb6. Ento acabei acatando a sugesto do Vb em criar um control array. Ele cria os control array como txt_teste(1), txt_teste(2), e assim por diante. Ou seja, ele vai indexando. Existe alguma forma de criar control array no VB6 sem ele utilizar esses parnteses indexadores? Esses parnteses esto atrapalhando a minha funo de gravar no banco de dados mysql.
Veja o exemplo abaixo:
sSQL = []Insert into tab_rel_serv(Secao,CodSec,NumRel,AnoRel,Periodo1,Periodo2,DiaSemana,ChefeCosepe,OficialCosepe,TotalEfetivo,[]
sSQL = sSQL & []txt_pres,txt_pres1,txt_pres2,txt_pres3,txt_pres4,txt_pres5,txt_saida_pres,txt_saida_pres1,txt_saida_pres2,txt_saida_pres3,txt_saida_pres4,txt_saida_pres5,[]
sSQL = sSQL & []txt_vtr(25)) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] & Combo5.Text & [][],[][] & Text18.Text & [][],[][] & Text19.Text & [][],[]
sSQL = sSQL & [][][] & txt_pres.Text & [][],[][] & txt_pres1.Text & [][],[][] & txt_pres2.Text & [][],[][] & txt_pres3.Text & [][],[][] & txt_pres4.Text & [][],[][] & txt_pres5.Text & [][],[][] & txt_saida_pres.Text & [][],[][] & txt_saida_pres1.Text & [][],[][] & txt_saida_pres2.Text & [][],[][] & txt_saida_pres3.Text & [][],[][] & txt_saida_pres4.Text & [][],[][] & txt_saida_pres5.Text & [][],[]
sSQL = sSQL & [][][] & txt_vtr(25).Text & [][])[]
cnn.Execute (sSQL)
cnn.Execute []Insert Into num_rel (Num) VALUES ([][] & Text4.Text & [][])[]
cnn.Close
MsgBox []Registro salvo com sucesso![], , []Registro salvo[]

Meu problema est na linha destacada em vermelho, que o control array que o Vb criou, esses parnteses do txt_vtr(25) o que me est atrapalhando de gravar. Se eu tirar essa referncia, ele grava normal.

[]O mundo h de sofrer no pela maldade das pessoas ms, e sim, pela omisso das pessoas de bem.[]

#490123 - 21/08/2019 14:22:17

MEYB JULLYS
FAZENDA NOVA
Cadast. em:Janeiro/2004


O parenteses esta no lugar errado:
o seu: sSQL = sSQL & []txt_vtr(25)) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] &

o correto: sSQL = sSQL & txt_vtr(25) &[]) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] &

Meyb Jullys
Se te ajudei me pontue, faa um gordinho feliz, ajude-me a aumentar minhas estrelinhas.

#490128 - 21/08/2019 15:47:19

F4B10
SAO PAULO
Cadast. em:Fevereiro/2010


Citação:
:
O parenteses esta no lugar errado:
o seu: sSQL = sSQL & []txt_vtr(25)) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] &

o correto: sSQL = sSQL & txt_vtr(25) &[]) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] &

Segui a sua dica, mas continua dando erro de sintaxe sql. Acredito que os parnteses do control array txt_vtr(25) est conflitando com os parnteses da instruo sql. Pior que precisarei utilizar os control arrays do vb6, pois j estourei o limite de controles do Form.

[]O mundo h de sofrer no pela maldade das pessoas ms, e sim, pela omisso das pessoas de bem.[]

#490153 - 23/08/2019 09:34:52

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


sSQL = sSQL & txt_vtr(25) &[]) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] &

Qual o texto que vc inseriu no txt_vtr(25)???
Qual o texto da string sSQL?????

____________________________________________________________________
Episcopal Studios


#490154 - 23/08/2019 09:46:02

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


sSQL = []Insert into tab_rel_serv(Secao,CodSec,NumRel,AnoRel,Periodo1,Periodo2,DiaSemana,ChefeCosepe,OficialCosepe,TotalEfetivo,[]
sSQL = sSQL &

Seu erro pode estar aqui ...
[]txt_pres,txt_pres1,txt_pres2,txt_pres3,txt_pres4,txt_pres5,txt_saida_pres,txt_saida_pres1,txt_saida_pres2,txt_saida_pres3,txt_saida_pres4,txt_saida_pres5,[]

O certo
txt_press & [],[] & txt_pres1 ..... etc .... vc devera concatenar o texto do textbox ...


sSQL = sSQL & []txt_vtr(25)) values([][] & Combo2.Text & [][],[][] & Combo3.Text & [][],[][] & Text4.Text & [][],[][] & Text6.Text & [][],[][] & Text16.Text & [][],[][] & Text17.Text & [][],[][] & Combo4.Text & [][],[][] & Combo5.Text & [][],[][] & Text18.Text & [][],[][] & Text19.Text & [][],[]
sSQL = sSQL & [][][] & txt_pres.Text & [][],[][] & txt_pres1.Text & [][],[][] & txt_pres2.Text & [][],[][] & txt_pres3.Text & [][],[][] & txt_pres4.Text & [][],[][] & txt_pres5.Text & [][],[][] & txt_saida_pres.Text & [][],[][] & txt_saida_pres1.Text & [][],[][] & txt_saida_pres2.Text & [][],[][] & txt_saida_pres3.Text & [][],[][] & txt_saida_pres4.Text & [][],[][] & txt_saida_pres5.Text & [][],[]
sSQL = sSQL & [][][] & txt_vtr(25).Text & [][])[]

____________________________________________________________________
Episcopal Studios


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


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário