Alberto Mota

Prezados colegas, estou usando o Rave 5 e o Delphi7 na implementação de Boletos Bancários. Coloquei o Code128BarCode1 por achar ser mais apropriado. Criei o relatório em modo design. Na visualização os numeros aparecem junto com o código de barras. Gostaria que eles não saissem junto. Apenas seu código. Como faço isso? E gostaria de saber, se possivel, se o Code128BarCode1 de fato é o correto para boletos bancários. Desde já obrigado.

Bom pessoal, resolvi meu problema. Coloquei apenas o controle DataMemo. Estou conhecendo o rave aos poucos e confesso que estou muito entusiasmado. Ele é fantástico!

Prezados colegas, estou com um problema ao utilizar o rave 5 no Delphi 7. No campo observação gostaria que as informações fossem para a linha de baixo quando chegasse a largura que estipulei. No quickreport consigo isso arrastando para baixo o QRDBText Nenhuma das propriedades atende o que preciso. Como faço isso no Rave? Como resolvo esse problema? Desde já obrigado.

Prezado Jhonas através da HostNet hospedei meu site lá. Eles me forneceram os parametros gerais: Smtp, username, senha e ate porta. E há conexão normal. Só que agora a mensagem de erro mudou Agora é: Socket Error #10061 Connection refused Agradeço a atenção.

Prezados colegas, adaptei um exemplo do Jhonas para envio de Email do Delphi 7 e da erro de socket #11004. Segui a risca os passos e não sei como resolver. Desde já agradeço. Segue o código: procedure TFrmEnviaEmail.BitBtn1Click(Sender: TObject); var Anexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.Subject := edtAssunto.Text; IdMessage.Body := mmMensagem.Lines; //Manipulando os Anexos for Anexo := 0 to lbxAnexos.Items.Count-1 do TIdAttachment.Create(idmessage.MessageParts, TFileName(lbxAnexos.Items.Strings[Anexo])); IdSMTP.Connect; try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; end; Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK); end;

Jhonas, obrigado pela atenção. Obtive sucesso após pesquisar pela NET. Que sufoco! Eis o código correto. Um abraço. procedure TFrmRecebimentos.BitBtn5Click(Sender: TObject); var DataI, DataF: TDatetime; begin DataI:=strtodate(MaskEdit1.text); ADOQuery1.Close; ADOQuery1.sql.Clear; ADOQuery1.sql.Add('Update TblDuplicatas Set DtPgto = '+#39+FormatDateTime('mm/dd/yyyy',DataI)+#39+' where RegDet='+DbGrid8.fields[0].text); ADOQuery1.ExecSQL; showmessage('Operação de pagamento concluída!'); maskedit3.Text := ''; Duplicatas.close; Duplicatas.open; end;

Prezados colegas, há tempo não consigo obter sucesso para atualizar um pagamento Utilizo o Delphi 7 com sql server express 2005 O código executa dando a mensagem de operação concluida, porém não faz a devida baixa, atualização Nada acontece a não ser a mensagem . Segue o código e desde já obrigado. procedure TFrmRecebimentos.BitBtn5Click(Sender: TObject); var wrddia, wrdmes, wrdAno: word; DtVcto: TDateTime; StrAno : string; begin DtVcto:= strtodate(maskedit1.Text); DecodeDate(Date, wrdAno, WrdMes, WrdDia); StrAno := IntTostr(wrdAno); StrAno := Copy(StrAno,3,2); TblDuplicatas.Close; TblDuplicatas.sql.Clear; TblDuplicatas.sql.Add('Update TblDuplicatas Set DtPgto =:DtVcto where RegDet=:Codigo'); TblDuplicatas.Parameters.ParamByName('Codigo').Value := StrToInt(edit9.text); TblDuplicatas.ExecSQL; TblDuplicatas.close; Duplicatas.Close; Duplicatas.open; showmessage('Operação de pagamento concluída!'); maskedit3.Text := ''; end;

Iniciei um tópico com o mesmo nome e o mesmo problema logo abaixo. Acredito que resolverá sua questão, pois coloquei o código completo no final. Não custa nada conferir. Um abraço.

(Resolvido). Andreia, muito obrigado!!! você tinha razão. Mudei para: Response.Write "<a href=paginacao.asp?pagina="&intpagina + 1&"&txttipo="&filtro&">Próxima</a>" Funcionou. Sua ajuda foi inestimável. Há mais ou menos 2 anos você me ajudou no Insert Into que estava tendo problemas. E agora com esse problemão. Ia te pedir ajuda como ordenar também, mas resolvi me dedicar um pouco e consegui. Segue o código ok para quem precisar. Até a próxima! <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim filtro filtro = request("txttipo") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Paginação</title> </head> <body> <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("data/artefato.mdb") Conn.open Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 3 SQL = "select * from Pessoais where tipo="& filtro &" order by nome" RS.Open SQL,Conn,3,3 IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF response.write RS("Nome") & " - " & RS("E-mail") & " - " & RS("tipo") & "<BR>" '--------------------------------------------------------------------------------------------- RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then Response.Write "<a href=paginacao.asp?pagina="&intpagina - 1&"&txttipo="&filtro&">Anterior</a>" %> <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then Response.Write "<a href=paginacao.asp?pagina="&intpagina + 1&"&txttipo="&filtro&">Próxima</a>" %> <% END IF %> </body> </html>

Andreia tentei de várias formas e surge esse erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'tipo='. /omega/paginacao.asp, line 22 Que é essa aqui: SQL = "SELECT * FROM Pessoais where tipo="& filtro No navegador acima na barra de endereços aparece http://localhost/omega/paginacao.asp?pagina=2&tipo=2 Agradeço a paciência e mais uma vez obrigado. Eis o código completo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim filtro filtro = request("txttipo") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Paginação</title> </head> <body> <% Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("data/artefato.mdb") Conn.open Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 3 SQL = "SELECT * FROM Pessoais where tipo="& filtro RS.Open SQL,Conn,3,3 IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF response.write RS("Nome") & " - " & RS("E-mail") & " - " & RS("tipo") & "<BR>" '--------------------------------------------------------------------------------------------- RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then Response.Write "<a href=paginacao.asp?pagina="&intpagina + 1&"&tipo="&filtro&">Próxima</a>" %> <% END IF %> </body> </html>

Andreia desculpe a demora por retornar. Segui sua sugestão e deu um novo erro Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03FB) 'Loop' esperado /omega/paginacao10.asp, line 111 É nesse trecho: <% rsBuscaProdutos.MoveNext 'Loop intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> Tive que mudar o código que você me deu para este abaixo pois aparecia o numero 1 e não Proxima. E tanto este quanto o seu surge a mensagem de erro acima. Mais uma vez obrigado por me ajudar. <% Response.Write " <a href=paginacao10.asp?pagina="&proxima + 1&"&tipo="&filtro&">Proxima</a>" %> Esse é o seu: Response.Write " <a href=paginacao10.asp?pagina="&proxima + 1&"&tipo="&filtro&">"&proxima + 1&"</a> " Envio novamente o código completo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim filtro filtro = Request("txttipo") %> <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("data/artefato.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM Pessoais where tipo=" & filtro rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 20 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Tutorial de Paginação</title> <style> /* Criei estas CSSs somente para melhorar o layout da Tabela de Paginação. Vocês podem modificar ao seus gostos... usem e abusem...:) */ .TProdutos{ border: 1px solid #666666; margin: 2px 0px 2px 0px; background: #FFFFFF; border-collapse:collapse; width: 500px; text-align:center; } .TProdutos td { border: 0px solid #666666; border-collapse:collapse; } .TProdutos td#Titulo { border: 0px solid #666666; font: 7pt Verdana, Arial, Helvetica; height: 17px; background: #063d97; color:#FFFFFF; } .TProdutos td#Dados { border: 1px solid #CCCCCC; font: 7pt Verdana, Arial, Helvetica; height: 18px; background: #EAEFFF; color: #666666; } </style> </head> <body> <table border="0" align="center" class="TProdutos"> <tr> <td width="190" id="Titulo">Nome</td> <td width="134" id="Titulo">Email</td> <td width="160" id="Titulo">Cidade</td> </tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <tr> <td id="Dados"><div align="left"><%=rsBuscaProdutos("Nome")%></div></td> <td id="Dados"><div align="left"><%=rsBuscaProdutos("E-mail")%></div></td> <td id="Dados"><%=rsBuscaProdutos("Cidade")%></td> </tr> <% rsBuscaProdutos.MoveNext 'Loop intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td id="Dados"><div align="left"> </div> </td> <td id="Dados"><% Response.Write " <a href=paginacao10.asp?pagina="&proxima + 1&"&tipo="&filtro&">Proxima</a>" %></td> <td id="Dados"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <% end if 'rsBuscaProdutos.close 'Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html>

Andreia estou tentando atraves de session, parece ser o correto Pego o session do form <% Session("tipo") = Request.Form("txttipo") tipo = Session("tipo") %> Ele me filtra a primeira pagina. Quando clico no proximo surge essa mensagem. Se puder me orientar, agradeço. Microsoft JET Database Engine (0x80040E14) Erro de sintaxe (operador faltando) na expressão de consulta 'tipo='. /omega/paginacao.asp, line 19 Onde linha 19 é: strBuscaProdutos = "SELECT * FROM Pessoais where tipo=" & tipo Segue o código completo: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Session("tipo") = Request.Form("txttipo") tipo = Session("tipo") %> <% 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("data/artefato.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM Pessoais where tipo=" & tipo rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 20 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Tutorial de Paginação</title> <style> /* Criei estas CSSs somente para melhorar o layout da Tabela de Paginação. Vocês podem modificar ao seus gostos... usem e abusem...:) */ .TProdutos{ border: 1px solid #666666; margin: 2px 0px 2px 0px; background: #FFFFFF; border-collapse:collapse; width: 500px; text-align:center; } .TProdutos td { border: 0px solid #666666; border-collapse:collapse; } .TProdutos td#Titulo { border: 0px solid #666666; font: 7pt Verdana, Arial, Helvetica; height: 17px; background: #063d97; color:#FFFFFF; } .TProdutos td#Dados { border: 1px solid #CCCCCC; font: 7pt Verdana, Arial, Helvetica; height: 18px; background: #EAEFFF; color: #666666; } </style> </head> <body> <table border="0" align="center" class="TProdutos"> <tr> <td width="190" id="Titulo">Nome</td> <td width="134" id="Titulo">Email</td> <td width="160" id="Titulo">Cidade</td> </tr> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <tr> <td id="Dados"><div align="left"><%=rsBuscaProdutos("Nome")%></div></td> <td id="Dados"><div align="left"><%=rsBuscaProdutos("E-mail")%></div></td> <td id="Dados"><%=rsBuscaProdutos("Cidade")%></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <tr> <td colspan="2" id="Dados"><div align="left"><%=Session("tipo")%></div></td> <td id="Dados"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a> <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if 'rsBuscaProdutos.close 'Set rsBuscaProdutos = Nothing %> </td> </tr> </table> </body> </html>

Andréia, obrigado por responder. Vou seguir sua sugestão. Depois posto o resultado.

Prezados colegas, depois de muito pesquisar, todos os exemplos só funcionam se não houver nenhum filtro afetando a tabela. Se uso um filtro do form, Assim como no resumo do código: Dim filtro filtro = Request.Form("txttipo") Sql = "SELECT * FROM Pessoais where tipo='"& filtro & "'" só aparece a primeira pagina, o link de proximo me devolve uma pagina de registro não localizado. Mas com certeza há mais registros. Desde já agradeço Eis o código completo <%@LANGUAGE="VBSCRIPT" %> <% 'Option Explicit Dim registros, paginas registros = 4 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If Dim filtro filtro = Request.Form("txttipo") %> <% Dim BdWeb Set BdWeb = Server.CreateObject("ADODB.Connection") BdWeb.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/artefato.mdb") Dim Sql Sql = Session("Sql") Sql = "SELECT * FROM Pessoais where tipo='"& filtro & "'" Dim WebRs Set WebRs = Server.CreateObject("ADODB.Recordset") WebRs.PageSize = registros WebRs.Open Sql, BdWeb, 3 If WebRs.EOF Then %> Nenhum registro localizado! <%Else WebRs.MoveFirst WebRs.AbsolutePage = pagina%> <%Do While Not WebRs.EOF AND x < WebRs.PageSize Dim x x = x + 1 %> <div align="center"> <center> <table width="95%" height="50" border="1" style="border-collapse: collapse" bordercolor="#CCCCCC" cellpadding="0" cellspacing="0"> <tr bordercolor="#CCCCCC"> <td width="5%" rowspan="3">&nbsp;</td> <td width="95%" height="10" bordercolor="#CCCCCC"><span class="style6"><b>Nome: </b><%=WebRs.Fields("Nome")%></span></td> </tr> <tr> <td height="10" bordercolor="#CCCCCC"><span class="style6"><b>Email: </b><%=WebRs.Fields("E-mail")%></span></td> </tr> <tr> <td height="10" bordercolor="#CCCCCC"><span class="style6"><b>Cidade: </b><%=WebRs.Fields("Cidade")%></span></td> </tr> </table> </center> </div> </h2> <span class="style6"> <%WebRs.MoveNext Loop Dim anterior, pagina, proxima, ultima, primeira, ultm2 anterior = pagina - 1 proxima = pagina + 1 ultima = WebRs.PageCount primeira = 1 ultm2 = FormatNumber(WebRs.PageCount - 1,0) If pagina <> 1 Then Response.Write " <a href=resultado_busca.asp?pagina="&primeira&">Primeira Página</a></b> " End If If pagina > 1 AND pagina <> 2 Then Response.Write "<a href=paginacao10.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> " End If If pagina > 1 Then Response.Write " <a href=paginacao10.asp?pagina="&anterior&">"&anterior&"</a> " End If Response.Write "<b> ["&pagina&"]</b> " If Not WebRs.EOF Then Response.Write " <a href=paginacao10.asp?pagina="&proxima&">"&proxima&"</a> " End If If Not WebRs.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write " <a href=paginacao10.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> " End If If Not WebRs.EOF Then Response.Write "<a href=paginacao10.asp?pagina="&ultima&">Ultima Pagina</a> " End If End If %> </span> <center> <table width="200" border="0" align="center"> <tr> <td> <center> <a href="todos.asp" class="style2">Retorna</a> </center> </td> </tr> </table> </center> <% WebRs.Close Set WebRs = Nothing BdWeb.Close Set BdWeb = Nothing %>

Rafael, estou quase lá. Fiz essa tentativa e quase deu certo. Vou te mostrar o passo a passo No meu form em txtdata digitei 07/08/2008 capturo do meu form de vendas para uma página de inserção da mesma. ================================= <% diai=day(Request.Form("txtdata")) mesi=month(Request.Form("txtdata")) anoi=year(Request.Form("txtdata")) Session.LCID=1033 vardata = diai & "/" & mesi & "/" & anoi %> ================================= Insiro na tabela e crio uma session da data para usar no parcelamento, esses fragmentos de código na mesma pagina. ================================= <% sql = "INSERT INTO tblvendas (codvda, dt) VALUES (" & Session("codigo_pedido1") &"," & '" & vardata &"')" set consulta = conn.execute(sql) Session("dtvenda") = vardata %> ================================ ...Suprimi alguns campos para facilitar a compreensão E... Ta lá conforme queria, não mostra mais 07/08/aaaa. VISUALIZO NO NAVEGADOR 07/08/2008 e a sessão da data que preciso para o parcelmento beleza. As 3 parCelas quE indiquei anteriormente e no loop acima no tópico (dtParcela)... 07/09/2008 07/10/2008 07/11/2008 Tudo conforme o figurino. Abro o Access para confirmar o armazenamento dos dados e... SURPRESA Data da Venda = 08/07/2008 Os parcelamentos na TblDuplicatas 09/07/2008 10/07/2008 11/07/2008 Houve a inversão óbvia de mes e dia, a Session.LCD=1033 foi a responsavel por isso, acredito. Troquei por 1046(conforme vi num post) e volta o problema original 07/08/aaaa. Fui em configurações Regionais no painel de controle e o formato coloquei dd/mm/aaaa. Troquei vardata = diai & "/" & mesi & "/" & anoi por vardata = mesi & "/" & diai & "/" & anoi. E tudo na mesma. Armazena trocado. Deve ser um pequeno ajuste a ser feito. Acho que devo usar a session.LCD no momento certo para que armazene corretamente. Uma vez que exibe por que não armazena? estou mais perdido que cego em tiroteio. Como finalizo essa questão? Aguardo ainda o provedor liberar a permissão de escrita na pasta. Um abraço.

Prezados colegas, pesquisei muito e não encontrei uma solução. As parcelas são inseridas sem problemas quando não incluo o campo DtVctoDupl. Criei no Access como data/hora. Quando o insiro no script ele diz que é incompativel, coloquei cerquilhas, tirei e nada. Por favor, preciso de ajuda. Desde já agradeço. Eis o código <% cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/vendas.mdb") set conn = CreateObject("ADODB.Connection") conn.open cst filial = session("id") qtde = session("qtdeparcelas") dtInicial = date dtParcela = DateAdd ("m", x, dtInicial) dt = DateAdd("m", n, dtinicial) total = rsvdatotal("total") vrparcela = total / qtde for x = 0 to (qtde - 1) sql = "INSERT INTO TblDuplicatas (BaseNota, ValorDupl, DtVctoDupl) VALUES (" & session("codigo_pedido1") &",'" & vrparcela &"','#" & dt & "#')" set consulta = conn.execute(sql) next %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>&Ocirc;mega Net</title> </head> <body> </body> </html> <% conn.close Set conn = Nothing response.redirect("fechapedido.asp") %> =========================== Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /index/geracrok.asp, line 27 %>

Prezados amigos, estou usando o asp e o banco de dados é o Access 2003. Criei um form que altera o cadastro de contratos primeiro mostrando aquele que o usuario deseja alterar. A origem dos dados do campo cliente vem da tabela de clientes e não consigo traze-lo num list menu, apenas num texfield. Gostaria que os dados atuais já estivessem no listmenu e sendo assim o usuario alteraria ali mesmo e daria prosseguimento ao seu trabalho. Espero ter me explicado de acordo e desde já agradeço.

Amigos, através do pesquisar não consegui nada que me ajudasse. Gostaria que num form quando o usuário selecionar a forma de pagamento: Cartão, boleto ou depósito ele fosse enviado para a pagina seguindo esse criterio. Desde já agradeço. ex: caso boleto --------- boleto.asp caso cartao ---------- cartao.asp caso deposito -------- deposito.asp

Prezados colegas, gostaria de criar um link dentro de uma tabela de pedidos e ao ser clicado enviado para uma nova página. desde já gradeço. Não consegui com esse código: <a href="detalhe.asp?Cod=<% = Consulta("Cod")%>"></a> Onde esta o erro?

Pessoal, consegui! Inclusive todos os campos na tabela. Foi o que a Andreia disse Cometi um erro primário, coloquei na tabela um campo chamado end onde iria armazenar o endereço do cliente. Esqueci que end é uma palavra reservada. Andreia, obrigado.

Andreia obrigado por responder. Vou fazer o que disse, depois retorno.