gravar dados do flexgrid no banco de dados...


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: gravar dados do flexgrid no banco de dados...

junio
não registrado

Postada em 18/06/2006 16:22 hs

Olá, pessoal, por favor me ajudem. Estou usando o for e next para gravar os dados do flexgrid no bando de dados, só que ele grava apenas o primeiro registro do flex a quantidade de registro existente no flex. EX: 10 registro, ele grava apenas o primeiro registro do flex 10 vezes no banco de dados.

Alguem pode me ajudar? Como faço para gravar os outros registro tambem? Ele lê normalmente todos os registro, mas grava apenas o primeiro.

Se alguem puder me ajudar, agradeço desde já....

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 18/06/2006 18:08 hs

passa ai como vc ta fazendo....

junio
não registrado

ENUNCIADA !

Postada em 19/06/2006 08:26 hs

o codigo usado por mim é este:

For Contador = 1 To RegistroTotal
TBCompra.AddNew
MSFlexGrid1.Col = 1 'à partir da 1ª coluna
MSFlexGrid1.Row = 2 'à partir da 2ª linha
TBCompra("NCodigo") = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
TBCompra("numero") = MSFlexGrid1.Text
MSFlexGrid1.Col = 3
TBCompra("Codigo") = MSFlexGrid1.Text
MSFlexGrid1.Col = 4
TBCompra("Produto") = MSFlexGrid1.Text
MSFlexGrid1.Col = 5
TBCompra("Unitario") = MSFlexGrid1.Text
MSFlexGrid1.Col = 6
TBCompra("Quantidade") = MSFlexGrid1.Text
MSFlexGrid1.Col = 7
TBCompra("Total") = MSFlexGrid1.Text
MSFlexGrid1.Row = MSFlexGrid1.Row + 1 'pula uma linha
TBCompra.Update
Next

Cardoso G

PATOS DE MINAS
MG - BRASIL

Postada em 19/06/2006 08:37 hs

essas duas linhas tem que ficar antes do for senao sempre volta pra linha 2

MSFlexGrid1.Col = 1 'à partir da 1ª coluna

MSFlexGrid1.Row = 2 'à partir da 2ª linha

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 19/06/2006 08:54 hs

For I = 1 To RegistroTotal

TBCompra.AddNew

TBCompra("NCodigo") = me.Grid.TextMatrix(I, 1)

TBCompra("numero") = me.Grid.TextMatrix(I, 2)

TBCompra("Codigo") = me.Grid.TextMatrix(I, 3)

TBCompra("Produto") = me.Grid.TextMatrix(I, 4)

TBCompra("Unitario") = me.Grid.TextMatrix(I, 5)

TBCompra("Quantidade") = me.Grid.TextMatrix(I, 6)

TBCompra("Total") = me.Grid.TextMatrix(I, 7)

TBCompra.Update

Next I

tenta agora, só observa o numero das colunas pra ver se tao certas...

TÓPICO EDITADO

Junio
não registrado

ENUNCIADA !

Postada em 19/06/2006 14:34 hs

olá pessoal, agradeço as dicas recebidas acima, realmente resolveu o problema, obrigado, valeu mesmo a todos......

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR