GRAVAR CONTROL ARRAY NO MYSQL COM VB6.

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

GRAVAR CONTROL ARRAY NO MYSQL COM VB6.

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#489965 - 13/08/2019 10:44:08

F4B10
SAO PAULO
Cadast. em:Fevereiro/2010


Olá a todos! Estava com limite de controles em um Form do VB6, daí resolvi usar control array. Porém, quando vou tentar gravar os dados que estão na textbox array, dá erro e não grava as informações. Quando debugo, ele mostra erro na instrução sql, porém se tirar as referências de textbox em forma de array, ele grava direitinho. Será que alguém poderia me ajudar a resolver esse problema? A instrução que mostra um erro é essa:
sSQL = sSQL & "'" & txt_vtr(1).Text & "','" & txt_vtr(2).Text & "','" & txt_vtr(3).Text & "','" & txt_vtr(4).Text & "','" & txt_vtr(5).Text & "','" & txt_vtr(6).Text & "','" & txt_vtr(7).Text & "','" & txt_vtr(8).Text & "','" & txt_vtr(9).Text & "','" & txt_vtr(10).Text & "','" & txt_vtr(11).Text & "','" & txt_vtr(12).Text & "','" & txt_vtr13.Text & "','" & txt_vtr14.Text & "','" & txt_vtr15.Text & "','" & txt_vtr16(0).Text & "')"
Coloquei a linha acima como exemplo, se eu tirar as referências txt_vtr(), e deixar as referências txt_vtr13,14,15,16, a instrução grava corretamente, se mantiver as referências txt_vtr(), não efetua a gravação.

"O mundo há de sofrer não pela maldade das pessoas más, e sim, pela omissão das pessoas de bem."

#489968 - 13/08/2019 11:31:53

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Última edição em 13/08/2019 11:32:53 por EPISCOPAL

Será que o txt_vtr() não tem uma virgula inserida ou qualquer caractere que impede a gravação ou extrapola os campos no banco de dados?


____________________________________________________________________
Episcopal Studios




#489974 - 13/08/2019 14:44:32

F4B10
SAO PAULO
Cadast. em:Fevereiro/2010


Citação:
:
Será que o txt_vtr() não tem uma virgula inserida ou qualquer caractere que impede a gravação ou extrapola os campos no banco de dados?

Boa Tarde! Então, EPISCOPAL, o problema está nos parênteses () do controle array, exemplo txt_vtr(2), esse parêntese é o que está impossibilitando a gravação no BD. Porém, esses parênteses é o próprio VB que cria, para indexar o control array. Não faço ideia de como contornar isso. Quando eu tiro os control arrays da instrução sql, o VB grava de boa, mas quando tento colocá-los, ele não deixa eu gravar.

"O mundo há de sofrer não pela maldade das pessoas más, e sim, pela omissão das pessoas de bem."

Resposta escolhida #490008 - 14/08/2019 17:45:55

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


sSQL = sSQL & "'" & txt_vtr(1).Text & "','" & txt_vtr(2).Text & "','" & txt_vtr(3).Text & "','" & txt_vtr(4).Text & "','" & txt_vtr(5).Text & "','" & txt_vtr(6).Text & "','" & txt_vtr(7).Text & "','" & txt_vtr(8).Text & "','" & txt_vtr(9).Text & "','" & txt_vtr(10).Text & "','" & txt_vtr(11).Text & "','" & txt_vtr(12).Text & "','" & txt_vtr13.Text & "','" & txt_vtr14.Text & "','" & txt_vtr15.Text & "','" & txt_vtr16(0).Text & "')"

Citação:
Coloquei a linha acima como exemplo


Então poste o original de seu código.

____________________________________________________________________
Episcopal Studios




#490009 - 14/08/2019 17:51:09

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Citação:
o problema está nos parênteses () do controle array, exemplo txt_vtr(2), esse parêntese é o que está impossibilitando a gravação no BD


Controle array não retorna parenteses, vai ver sua geração da string SQL teve ter alguma string que vc mesmo colocou e não percebeu. Poste o codigo .... e não um exemplo.

____________________________________________________________________
Episcopal Studios




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


Tópico encerrado, respostas não sao permitidas
Encerrado por F4B10 em 19/08/2019 09:50:30