PROBLEMA GRAVACAO DATAGRID

ADHEL 05/05/2010 15:25:05
#341008
Pessoal preciso gravar o conteudo do datagrid no banco de dados Mysql
Com a ajuda do pessoal do site
fiz assim


sqlInsert = [Ô]Insert Into Rotacao(Codigo,Nome,ValorUnitario)Values([ô][Ô] & dgvVendas.Item([Ô]Column1[Ô], i).Value & [Ô][ô],[ô][Ô] & dgvVendas.Item([Ô]Column2[Ô], i).Value & [Ô][ô],[ô][Ô] & _
dgvVendas.Item([Ô]Column3[Ô], i).Value & [Ô][ô])[Ô]

Comando = New MySqlCommand(sqlInsert, Conexao)
Comando.ExecuteNonQuery()

O problema é grava apenas a primeira linha

Então coloquei a query dentro de um laço

Dim i As Integer
For i = -1 To dgvVendas.Columns.Count


sqlInsert = [Ô]Insert Into Rotacao(Codigo,Nome,ValorUnitario)Values([ô][Ô] & dgvVendas.Item([Ô]Column1[Ô], i).Value & [Ô][ô],[ô][Ô] & dgvVendas.Item([Ô]Column2[Ô], i).Value & [Ô][ô],[ô][Ô] & _
dgvVendas.Item([Ô]Column3[Ô], i).Value & [Ô][ô])[Ô]

Comando = New MySqlCommand(sqlInsert, Conexao)
Comando.ExecuteNonQuery()
Next

Aparece essa mensagem

Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Obrigado a todos
KILLER 05/05/2010 15:48:09
#341010 Resposta escolhida
troca o -1 por 0 assim

For i = 0 To dgvVendas.Columns.Count -1
ADHEL 05/05/2010 16:00:08
#341011
Killer boa tarde
Fiz como você disse
Ele grava todas as linhas só que o Mesmo erro continua aparecendo
KILLER 05/05/2010 16:08:03
#341013
tenta assim

For i = 0 To dgvVendas.Rows.Count -1
ADHEL 05/05/2010 16:25:22
#341015
Killer
Valeu por mais essa
Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar