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 número limite de controles em um formulário no Vb6. Então acabei acatando a sugestão 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 parênteses indexadores? Esses parênteses estão atrapalhando a minha função 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 parênteses do txt_vtr(25) é o que me está atrapalhando de gravar. Se eu tirar essa referência, ele grava normal.

"O mundo há de sofrer não pela maldade das pessoas más, e sim, pela omissão 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, faça 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 parênteses do control array txt_vtr(25) está conflitando com os parênteses da instrução sql. Pior que precisarei utilizar os control arrays do vb6, pois já estourei o limite de controles do Form.

"O mundo há de sofrer não pela maldade das pessoas más, e sim, pela omissão 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