rodrigotnoma Postado Setembro 13, 2006 Denunciar Share Postado Setembro 13, 2006 Esta dando erro no insert, na tabela o campo numerocopias esta como numerico.Private Sub Command4_Click()Set cn = New ADODB.Connectionconnstring = "provider=microsoft.jet.oledb.4.0;data source=c:\print.mdb;"cn.Open connstringcd.ShowPrinterpaginainicial = cd.FromPagepaginafinal = cd.ToPagenumerocopias = cd.CopiesFor i = 1 To numerocopiasPrinter.Print "teste"Printer.EndDocNextSet rs = cn.Execute("insert into tb_numerocopias(numerocopias)values("&numerocopias&")")End SubOnde esta o erro?Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 kuroi Postado Setembro 13, 2006 Denunciar Share Postado Setembro 13, 2006 qual a descricao do erro?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
rodrigotnoma
Esta dando erro no insert, na tabela o campo numerocopias esta como numerico.
Private Sub Command4_Click()
Set cn = New ADODB.Connection
connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\print.mdb;"
cn.Open connstring
cd.ShowPrinter
paginainicial = cd.FromPage
paginafinal = cd.ToPage
numerocopias = cd.Copies
For i = 1 To numerocopias
Printer.Print "teste"
Printer.EndDoc
Next
Set rs = cn.Execute("insert into tb_numerocopias(numerocopias)values("&numerocopias&")")
End Sub
Onde esta o erro?
Obrigado
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.