ERRO NO INSERT

GAZEVEDO 03/05/2013 17:25:38
#422913
Boa-Tarde,Galera !!

Estou fazendo um programinha em VB e na hora que estou tentando gravar meus dados esta dando um erro no INSERT o que posso estar errando,ME AJUDEM !!!!

For i = 1 To grdObra.Rows - 1
.CommandText = [Ô]INSERT INTO Obra [Ô] & _
[Ô](Codigo,NomeObra,Local,TipoObra,TipoContrato,Cliente,DataInicio,DataFinal,Dim1,Dim2,AreaTotalTerreno,AreaConstruida,NumPavimento,PeDireito,Matricula,LocalTerreno,Numeto,Lote,Quadra,Cadastro,Setor,Loteamento,Cidade,Condominio,DatAlvenaria,DatAseentamentoAzj, [Ô] & _
[Ô]DatBatente,DatConcentro,DatContraPiso,DatEletrica,DatEmbosso,DatHidraulica,DatImpermeabilizacao,DatPintAlvenaria,DatPintPorta,DatReboco,DatRevestCeram,DatSerralheria,DatVidro) VALUES ([Ô] & _
txtCodigo.Text & [Ô],[ô][Ô] & txtObra.Text & [Ô][ô],[ô][Ô] & cboLocal & [Ô][ô],[ô][Ô] & txtTipoObra.Text & [Ô][ô],[Ô] & _
cboTipoContrato.Text & [Ô][ô],[Ô] & txtCod_Cliente.Text & [Ô],[Ô] & txtDataInicio.Text & [Ô],[Ô] & txtDataFinal.Text & [Ô],[ô][Ô] & _
txtDim1.Text & [Ô],[Ô] & txtDim2.Text & [Ô],[ô][Ô] & lblAreaTerreno.Caption & [Ô][ô],[ô][Ô] & txtAreaConst.Text & [Ô][ô],[ô][Ô] & _
txtPavimento.Text & [Ô][ô],[ô][Ô] & txtPe.Text & [Ô][ô],[ô][Ô] & grdObra.TextMatrix(i, 0) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 1) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 2) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 3) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 4) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 5) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 6) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 7) & [Ô][ô],[ô][Ô] & _
grdObra.TextMatrix(i, 8) & [Ô][ô],[Ô] & _
chkAlvenaria.Value & [Ô],[Ô] & chkAzuleijos.Value & [Ô],[Ô] & chkBatentes.Value & [Ô],[Ô] & chkConcreto.Value & [Ô],[Ô] & chkContraPiso.Value & [Ô],[Ô] & _
chkEletrica.Value & [Ô],[Ô] & chkEmbosso.Value & [Ô],[Ô] & chkHidraulica.Value & [Ô],[Ô] & chkImp.Value & [Ô],[Ô] & chkPinturaAlv.Value & [Ô],[Ô] & _
chkPinturaPort.Value & [Ô],[Ô] & chkReboco.Value & [Ô],[Ô] & chkRevCeram.Value & [Ô],[Ô] & chkSerralheria.Value & [Ô],[Ô] & chkVidro.Value & [Ô]);[Ô]
Next i
OMAR2011 03/05/2013 17:54:20
#422916
Sinto muito mas, você precisa DIVIDIR sua tabela.
KERPLUNK 03/05/2013 18:13:32
#422919
O primeiro erro, é não usar parâmetros para seu comando SQL. Parametrize a query que fica tudo mais simples.
FELLIPEASSIS 03/05/2013 21:24:18
#422930
um exemplo de paametros
[Ô]INSERT INTO TABELA (CODIGO,NOME,DATANASC,CONTATO) VALUES (@CODIGO,@NOME,@DATANASC,@CONTATO)[Ô]

cmd.Parameters.AddWithValue([Ô]@nome[Ô], txtNome.Text.Trim())
cmd.Parameters.AddWithValue([Ô]@codigo[Ô], txtNome.Text)
cmd.Parameters.AddWithValue([Ô]@datanasc[Ô], CDate(maskDataNasc.Text))
GAZEVEDO 03/05/2013 22:44:37
#422933

Como Parametrizo a query por favor ... Kerplunk
Faça seu login para responder
Voltar