Private Sub CmdSalvar_Click()
valor = 0
If ListView1.ListItems.Count > 0 Then
       Dim X As Integer
       Dim axsql As String
       For X = 1 To ListView1.ListItems.Count
       axsql = axsql & "INSERT INTO ProOsCorretiva (CodOs, CodProduto, Unidade, QTD, PreUnitario, PreTotal) " & _
                             "VALUES('" & TxtCodOs & "','" & ListView1.ListItems.Item(X) & "', " & _
                              ListView1.ListItems.Item(X).SubItems(2) & ", " & _
                              ListView1.ListItems.Item(X).SubItems(3) & ", " & _
                              ListView1.ListItems.Item(X).SubItems(4) & ", " & _
                              ListView1.ListItems.Item(X).SubItems(5) & ") "
        valor = valor + (ListView1.ListItems.Item(X).SubItems(5))
        conexao.BeginTrans
        conexao.Execute axsql
        conexao.CommitTrans
    Next
     TxtValorTotal = valor
End If
End Sub

 

quando clico para salvar dah o seguinte erro

 

missing semicolon (;) at and of sql statement

 

agradeço desde jah!!

????

Cara,

Dá um print da variável axsql na janela de immediate(crtl+g), assim podemos ver o que está sendo executado... 

Mas acho que o problemas está na linha:  axsql = axsql & "INSERT... , desta forma cada vez que o seu loop rodar essa variável vai sendo concatenada, assim vc vai ter vários inserts dento dela na hora da execução. Tente colocar axsql = "INSERT...

já que vc executa o insert a cada loop.

 

[]´s

Tbs