ERRO: SINTAXE INCORRETA PROXIMA A

KERPLUNK 20/09/2013 17:18:27
#429108 Resposta escolhida

1 - Você postou no forum errado, isso é VB.NET e você postou em VB/VBA
2 - Pare de concatenar string para formar query, use parametrização.

ADAURI 20/09/2013 17:40:16
#429109

Amigão, quando executo no SQL dá certo, quando executo no visual studio dá esse erro de sintaxe.

Private Function Salvar_Itens() As Boolean

StrSalvarItem = [Ô]INSERT INTO Tab_ClientesItem (Id_Cod, Cod_Cli, Operacao, Modelo, Serie, DataInicio, Prazo, DataFim, Qtde, Tx_Fixa, Vr_MonoTF, Vr_CorTF, Franquia_Mono, Franquia_Cor, Vr_MonoF, Vr_CorF, VrExc_Mono, VrExc_Cor, M_O, Pecas, Papel, Toner, Cilindro, Revelador, Obs_Item) VALUES([ô]436[ô],[ô]3910[ô],[ô]VEN[ô],[ô]MOD[ô],[ô]SERIE[ô],[ô]20/09/2013[ô],[ô]12[ô],[ô]20/09/2014[ô],[ô]1[ô],[ô]195,00[ô],[ô]0,035[ô],[ô]0[ô],[ô]0[ô],[ô]0[ô],[ô]0[ô],[ô]0[ô],[ô]0[ô],[ô]0[ô],[ô]S[ô],[ô]S[ô],[ô]N[ô],[ô]S[ô],[ô]S[ô],[ô]S[ô],[ô]OBS[ô])[Ô]

Con = New SqlConnection(StrCon)
cmd = New SqlCommand(StrSalvarItem, Con)

Try

Con.Open()
cmd.ExecuteNonQuery()
Return True

Catch ex As Exception

MsgBox([Ô]Erro ao conectar o banco de dados, segue detalhes do erro:[Ô] & vbCrLf & ex.ToString(), MsgBoxStyle.Exclamation, [Ô]ERRO AO CONECTAR[Ô])
Limpa_Campos()
Return False

Finally
Con.Close()
cmd.Dispose()

End Try

Return False

End Function

KERPLUNK 20/09/2013 18:25:47
#429112

Citação:

Amigão, quando executo no SQL dá certo, quando executo no visual studio dá esse erro de sintaxe.

é o que estou dizendo. Por causa da concatenação, algum dos valores está causando erro de sintaxe. Use parametrização que não vai ter esse problema.