MSHFLEXGRID E TABELA ACCESS

NEREU1301 21/08/2009 13:38:13
#320561
Vamos ver se fiz certo
é pra ser meu form
http://img190.imageshack.us/i/form4a.mp4/

ASH
depois de fazer as correçoes retornou o erro [Ô]nenhum valor foi forn para um ou mais param nec[Ô]
NEREU1301 21/08/2009 13:47:01
#320564
ASH
tentei com a tua ultima ideia e retornou erro
dizendo que nenhum valor foi fornecido para um ou mais parametros nec.
For i = 0 To GrdIncluiPec.Rows - 2
With cnnComando
.ActiveConnection = cnnCetecInfServiços
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]INSERT INTO Oficina1[Ô] & _
[Ô](Data_Inicio_Servico, Hora_Inicio_Servico, Numero_OS, Nome, Produto, Prog, Reg, MaqAcid, GrAlim, ConjTecl, MaqTranc, PlBsEletr, CjEntr, GrDis, GrImpr, CjEsc, Pint, RevGer, Mon, CjLeit, Lubr, CjTab, CabImpr, Desm, AlimEscr, LavTratFer, RevGrMot, Lacr, RetCilCar, RevEletr, Solda, Outros, CodPeca, NomePeca, Quant, Valor, TotLinha, Obs, Data_Term_Serv, Hora_Term_Serv) Values([ô][Ô] & _
TxtDataInicioServico.Text & [Ô][ô], [ô][Ô] & TxtHoraInicioServico.Text & [Ô][ô], [Ô] & _
TxtNumOS.Text & [Ô], [ô][Ô] & TxtNomeCliente.Text & [Ô][ô], [ô][Ô] & TxtProduto.Text & [Ô][ô], [Ô] & _
ChkProg.Value & [Ô], [Ô] & ChkReg.Value & [Ô], [Ô] & ChkMaqAcid.Value & [Ô], [Ô] & ChkGrAlim.Value & [Ô], [Ô] & _
ChkConjTecl.Value & [Ô], [Ô] & ChkMaqTranc.Value & [Ô], [Ô] & ChkPlBsEletr.Value & [Ô], [Ô] & _
ChkCjEntr.Value & [Ô], [Ô] & ChkGrDis.Value & [Ô], [Ô] & ChkGrImpr.Value & [Ô], [Ô] & ChkCjEsc.Value & [Ô], [Ô] & _
ChkPint.Value & [Ô], [Ô] & ChkRevGer.Value & [Ô], [Ô] & ChkMon.Value & [Ô], [Ô] & ChkCjLeit.Value & [Ô], [Ô] & _
ChkLubr.Value & [Ô], [Ô] & ChkCjTab.Value & [Ô], [Ô] & ChkCabImpr.Value & [Ô], [Ô] & ChkDesm.Value & [Ô], [Ô] & _
ChkAlimEscr.Value & [Ô], [Ô] & ChkLavTratFer.Value & [Ô], [Ô] & ChkRevGrMot.Value & [Ô], [Ô] & _
ChkLacr.Value & [Ô], [Ô] & ChkRetCilCar.Value & [Ô], [Ô] & ChkRevEletr.Value & [Ô], [Ô] & _
ChkSolda.Value & [Ô], [Ô] & ChkOutros.Value & [Ô], [Ô] & _
CDbl(GrdIncluiPec.TextMatrix(i, 0)) & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 1) & [Ô], [Ô] & _
CDbl(GrdIncluiPec.TextMatrix(i, 2)) & [Ô], [Ô] & CDbl(GrdIncluiPec.TextMatrix(i, 3)) & [Ô], [Ô] & _
CDbl(GrdIncluiPec.TextMatrix(i, 4)) & [Ô], [ô][Ô] & _
Txtobs.Text & [Ô][ô], [ô][Ô] & _
TxtDataTermServ.Text & [Ô][ô], [ô][Ô] & TxtHoraTermServ.Text & [Ô][ô]);[Ô]
.Execute
End With
Next i

Nao estou conseguindo mandar meu form atraves da pagina certa(ImageShack) porque nao disponibiliza o arquivo certo e nem anexando aqui porque nao libera o colar
onde que se liga a luz do fim do tunel, por favor
ASHKATCHUP 21/08/2009 14:17:39
#320578
Você tem numero com virgula no grid, certo?
Acho que pode ser isso.

Sem o form fica dificil de ajudar, mas tenta fazer


replace(CDbl(GrdIncluiPec.TextMatrix(i, 0)),[Ô],[Ô],[Ô].[Ô]) & [Ô], [Ô] & GrdIncluiPec.TextMatrix(i, 1) & [Ô], [Ô] & _
replace(CDbl(GrdIncluiPec.TextMatrix(i, 2)),[Ô],[Ô],[Ô].[Ô]) & [Ô], [Ô] & replace(CDbl(GrdIncluiPec.TextMatrix(i, 3)),[Ô],[Ô],[Ô].[Ô]) & [Ô], [Ô] & _
replace(CDbl(GrdIncluiPec.TextMatrix(i, 4)),[Ô],[Ô],[Ô].[Ô]) & [Ô], [ô][Ô]
NEREU1301 21/08/2009 14:26:24
#320583
Cara
to querendo anexar o o form mas nao to conseguindo

Nao estou conseguindo mandar meu form atraves da pagina certa(ImageShack) porque nao disponibiliza o arquivo certo e nem anexando aqui porque nao libera o colar

Da uma luz ai meu camarada
ASHKATCHUP 21/08/2009 14:31:28
#320586
Tenta usar o replace. Se não funcionar, coloca o form em um arquivo ZIP. Ai o forum aceita.
NEREU1301 21/08/2009 14:40:25
#320589
Citação:

ASHKATCHUP escreveu:
Tenta usar o replace. Se não funcionar, coloca o form em um arquivo ZIP. Ai o forum aceita.



Retornou o mesmo erro

quanto o arquivo, ja zipei mas estou conseguindo anexar ao forum, nao aceita arrastar e nem colar
ASHKATCHUP 21/08/2009 14:54:18
#320592



http://img197.imageshack.us/img197/9816/anexo.jpg
NEREU1301 21/08/2009 15:03:51
#320594
O pior cego é o que nao encherga mesmo.
é inacreditavel nao ter visto.
ASHKATCHUP 21/08/2009 15:23:01
#320596
Cara, uma pergunta: vc usa RecordSet?
Se sim, dá pra fazer de outra maneira, se ter que colocar INSERT e se perder nessa zona...
NEREU1301 21/08/2009 15:25:10
#320597
Fiz um teste agora e acontece o seguinte:
se eu lanço um produto só, quer dizer uma linha só do grid ele vai até o fim e dá mensagem que a inclusao houve só que nao grava os dados na tabela
isto é
2 ou mais linhas da mensagem de erro
1 linha nao dá erro mas não grava nenhum dado na tabela, não só os do grid
Página 3 de 6 [58 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar