Problema: Repetição Insert em Grid (VB6)

[Felipe Porto]

Oi,

Eu estou tendo um problema no VB6 quando eu faço insert de mais de um campo de grid

Explicando melhor...

Quando eu faço insert de uma grid com 1 campo

ele funciona perfeitamente

Porém

se faço insert com 2 ou mais campos ele faz o seguinte

faz insert no campo 1, quando vai fazer no campo 2 ele faz o 1 e o 2, e quando fazer o campo 3 ele faz o 1, 2 e o 3

o que seria:

1

2

3

fica

1

1

2

1

2

3

Não sei se consegui explicar bem o problema

strSQL = ""
    strSQL = strSQL & " declare @fone int"
    For j = 1 To gridtel.Rows - 1
        strSQL = strSQL & " select @fone = IsNull(MAX(COD_FONE_CLIENTE), 0) + 1 from tblCLIENTE_FONE"
        strSQL = strSQL & " insert into tblCLIENTE_FONE (cod_fone_cliente, cod_tipo_fone, cod_cliente, fone)"
        strSQL = strSQL & " values (@fone, '" & gridtel.TextMatrix(j, 3) & "', '" & cliente & "', '" & gridtel.TextMatrix(j, 1) & "')"
       Call Executa_Comando(strSQL)
    Next j

bom esse é o cód

estou meio perdido

Obrigado

[kuroi]

é, você não esta limpando a variavel strSQL, então toda vez ele executa os codigos anteriores antes do proximo.

coloque essas linhas dentro do For q deve resolver:

strSQL = ""
strSQL = strSQL & " declare @fone int"[/code]