alepe

É isso Valeu... Funcionou que uma beleza....

Tem autonumeração no bd tirei o clausula order by, mas mesmo assim o VB informa que "Nenhum valor foi fornecido para um ou mais parametros." If txtloja.Text = Empty And txtdata.Text = Empty Then rs.Open "SELECT * FROM comanda WHERE nomedaloja=txtloja.Text", cn ElseIf txtloja.Text <> Empty And txtdata.Text = Empty Then rs.Open "SELECT * FROM comanda WHERE nomedaloja = txtloja.Text", cn ElseIf txtloja.Text = Empty And txtdata.Text <> Empty Then rs.Open "SELECT * FROM comanda WHERE datadacomanda=txtdata.Text", cn ElseIf txtloja.Text <> Empty And txtdata.Text <> Empty Then rs.Open "SELECT * FROM comanda WHERE nomedaloja=txtloja.Text and datadacomanda=txtdata.Text", cn End If Na tela principal é solicitado Nome da loja e Data. tem um botao localizar que é esse codigo que está acima.

Após executar a alteração deu esse erro. Error Run-time error 3709 - Operação não permitida em um objeto com referencia a uma conexão fechada ou invalida Private Sub cmdincluir_Click() Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Integer Dim txtnomedaloja, txtdescricaodoproduto As String Dim txtdatadacomanda As Data Dim dtcomanda As New ADODB.Recordset dtcomanda.Open txtnomedaloja = dtcomanda("nomedaloja") txtdatadacomanda = dtcomanda("datadacomanda") txtquantidade = dtcomanda("quantidade") txtcodigodoproduto = dtcomanda("codigodoproduto") txtdescricaodoproduto = dtcomanda("descriçãodoproduto") txtvalorunitario = dtcomanda("valorunitário") txtvalortotal = dtcomanda("valortotal") dtcomanda.AddNew 'permite adcionar novo registro txtnomedaloja = dcoloja.Text txtdatadacomanda = lbldata.Caption txtquantidade = txtqtde.Text txtcodigodoproduto = txtcodprod.Text txtdescricaodoproduto = txtdescricao.Text txtvalorunitario = txtvlunitario.Text txtvalortotal = txtvltotal.Text dtcomanda.Update 'permite adcionar novo registro End Sub

Desculpa masi não deu certo.. Ou não devo ter entendido..você pode repetir a instrução. Grato Ale

Error " Run Time Error 91 Object Variable or with block variable not set" O programa trabalha com dois ActiveXDatacombo e fax um calculo de produto qtde * valor unitario e grava em um BD chamado comanda ao clicar no incluir ele da esse erro. Aguém pode me ajudar Private Sub cmdincluir_Click() Dim txtvltotal, txtvalorunitario, txtvalortotal, txtcodigodoproduto, txtquantidade As Integer Dim txtnomedaloja, txtdescricaodoproduto As String Dim txtdatadacomanda As Data dtocomanda.Recordset.Open txtnomedaloja = dtocomanda("nomedaloja") txtdatadacomanda = dtocomanda("datadacomanda") txtquantidade = dtocomanda("quantidade") txtcodigodoproduto = dtocomanda("codigodoproduto") txtdescricaodoproduto = dtocomanda("descriçãodoproduto") txtvalorunitario = dtocomanda("valorunitário") txtvalortotal = dtocomanda("valortotal") dtocomanda.Recordset.AddNew 'permite adcionar novo registro txtnomedaloja = dcoloja.Text txtdatadacomanda = lbldata.Caption txtquantidade = txtqtde.Text txtcodigodoproduto = txtcodprod.Text txtdescricaodoproduto = txtdescricao.Text txtvalorunitario = txtvlunitario.Text txtvalortotal = txtvltotal.Text dtocomanda.Recordset.Update 'permite adcionar novo registro End Sub

Valeu é isso ... Muito Obrigado Alessandro

Ao clicar no botao Edit da o seguinte erro "method or data member not found" Estou utilizando o ADODC com ADO as rotinas de inclusao, exclusao, pesquisa tudo ok. Mas ao clicar no Editar da esse erro. vendo o dtprodutos.recordset. Edit não aparece aparece o Editmode. Codigo... Private Sub cmdEdita_Click() dtprodutos.Recordset.Edit txtcodigo.Locked = False txtdescricao.Locked = False txtcodfornec.Locked = False txtunidestoque.Locked = False txtprecunitario.Locked = False txtnestoque.Locked = False cmdGrava.Enabled = True cmdCancela.Enabled = True End Sub

A versão do VB é a 6.0

Ao clicar no submit.. ele não da erro e não encaminha o e-mail para o e-mail escolhido

O Html Contato não esta conversando com o envia os dados ....

Erro o contato não passa os dados para o envia.. Este é um form. de envio de e-mail onde pode ser escolhido o destinatario mas ao clicar no enviar ele não repassa os dados.. vocês podem ajudar Codigo do Contato.html <td valign="top"><form name="form1" method="post" action="envia.asp"> <script> function ShowCurso() { if(document.getElementById('check').value=="Alessandro") { document.getElementById('campo').value = "alessandro@fassystems.com.br" } if(document.getElementById('check').value=="Comercial") { document.getElementById('campo').value = "comercial@fassystems.com.br" } if(document.getElementById('check').value=="FasSystems") { document.getElementById('campo').value = "fassystems@fassystems.com.br" } } </script> <SELECT onChange=ShowCurso() id=check> <OPTION>-</OPTION> <OPTION value="Alessandro">Alessandro </OPTION> <OPTION value="Comercial"> Comercial </OPTION> <OPTION value="FasSystems"> FasSystems </OPTION> </SELECT> E-Mail: <input type=text id=campo> <table width="370" height="173" border="0" cellpadding="0" cellspacing="2"> <tr> <td width="134" height="19">&nbsp;</td> <td width="191">&nbsp;</td> </tr> <tr> <td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></strong></td> <td><input name="nome" type="text" class="formulario" id="nome" size="30"> <font color="#FF0000">*</font></td> </tr> <tr> <td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></strong></td> <td><input name="email" type="text" class="formulario" id="email" size="30"> <font color="#FF0000">*</font></td> </tr> <tr> <td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Assunto:</font></strong></td> <td><input name="assunto" type="text" class="formulario" id="assunto" size="30"> <font color="#FF0000">*</font></td> </tr> <tr> <td><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font></strong></td> <td> <textarea name="menssagem" cols="30" rows="5" wrap="VIRTUAL" class="formulario" id="menssagem"></textarea> </td> </tr> <tr> <td>&nbsp;</td> <td><input name="Submit" type="submit" class="formulario" value="Enviar"> <input name="Submit2" type="reset" class="formulario" value="Limpar"> </td> </tr> </table> </form></td> Codigo do envia.asp <% para=request.form("campo"); nome=request.form("nome"); email=request.form("email"); assunto=request.form("assunto"); menssagem=request.form("menssagem"); mens="Nome: nome \n"; mens.="E-mail: email \n"; mens.="Assunto: assunto \n\n"; mens.="Menssagem: /n menssagem"; mail(para,assunto,mens); header("Location:resposta.asp==nome=nome"); %>