rodrigotnoma

Fiz um teste: Private Sub Command1_Click() Set cn = New ADODB.Connection connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\produtos.mdb;" cn.Open connstring produtos = Text1.Text Set rq = cn.Execute("select * from tb_produtos where produtos=' " & Text1.Text & " ' ") If Not rq.EOF Then Text2.Text = rq("quantidade") Else MsgBox "Produto não encontrado!!!" End If End Sub E mesmo assim ele da mensagem de "Produto não encontrado!!!" Devo estar errando em alguma coisa muito boba ou esta com algum "pau", porque já fiz isso milhares de vezes e nunca ocorreu isso. Se algume puder ajudar... Obrigado

Cara, não deu certo.....o mais engraçado é que o insert vai normal, so o update que não da certo, e também não da mensagem de erro.... Os dois campos estão como textos...nunca tive esse problema com update....

Não esta ocorrendo nenhuma alteração no meu BD, alguém poderia me ajudar a encontrar o erro? Private Sub Command1_Click() Set cn = New ADODB.Connection connstring = "provider=microsoft.jet.oledb.4.0;data source=c:\natureza\estoque_emb.mdb;" cn.Open connstring produtos = Combo1.Text quantidade = Text1.Text Set rq = cn.Execute("update tb_estoq_emb set quantidade=' " & quantidade & " ' where produtos=' " & produtos & " ' ") MsgBox ("cadastrado!!!") End Sub Fiz teste para verificar se as variaveis estão recebendo os valores e esta ok, so na instrução SQL que as variaveis ficam com valores "Empty". Obrigado

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

Como fazer um aplicativo em VB que fique rodando em segundo plano, como se ele estivesse monitorando? Obrigado

Estava lendo uma materia nesse site(http://www.forumweb.com.br/foruns/lofiversion/index.php/t10813.html) que mostra como compactar arquivos sem utilização de API, mas encontrei dificuldades: -Como utilizar o CommonDialog -O que significa o codigo: cd.Filter = "Todos os arquivos (*.*) |*.*|" cd.filterindex = 1 cd.Action = 1 Text1= (cd.filename) -Como utilizar SHELL no VB? Obrigado

E que não manjo de expressoes regulares,se alguém puder me dar algumas dicas... Obrigado. Rodrigo

Pessoal o meu codigo não esta funcionando, ele não esta verificando as minhas condiçoes, alguém pode me ajudar. E para validar o ip,não aceitar letras ,somentes numeros... <script language=javascript> function validar(){ if (document.form1.nome.value ==''){ alert('Preecher o campo nome!!!'); document.form1.nome.focus(); return false; } if (document.form1.ip.value==''){ alert('Preencher o campo ip!!!'); document.form1.ip.focus(); return false; } return verif_ip(document.form1.ip.value); } function verif_ip(){ if(document.form1.ip.value=='0.0.0.0'){ alert('Ip não pode ser usado'); document.form1.ip.focus(); return false; } if(document.form1.ip.value=='255.255.255.255'){ alert('Ip não pode ser usado'); document.form1.ip.focus(); return false; } return somente_numero(document.form1.ip.value); } function somente_numero(){ var digits="0123456789" var ip_temp for (var i=0;i<ip.value.length;i++){ ip_temp=ip.value.substring(i,i+1) if (digits.indexOf(ip_temp)==-1){ ip.value =ip.value.substring(0,i); break; return false; } } } } } </script> Obrigado Rodrigo

Home.

Pessoal estou tendo o seguinte problema no XP: Tipo de erro: Active Server Pages, ASP 0203 (0x80004005) O atributo de código de página especificado é inválido. /teste/teste.asp, line 1 Acabei de instalar o IIS pois o computador é novo,nunca tive nenhum tipo de problema em outros sistemas,como windows 2000 e win98. Obrigado pela ajuda. Rodrigo

Pessoal, estou em uma maquina na rede, uso proxy, não consigo configurar o iis, como devo proceder? Obrigado.

entendi....mas na nova default.html eu tenho q colocar qual instrução pra chamar a antiga default.asp? e no global.asa eu tenho q alterar alguma coisa? obrigado.

Tenho um site feito todo em asp, preciso colocar uma abertura antes de entrar a pg inicial, q seria o default.asp, a abertura é um arquivo html, como faço a alteração? Obs:o site esta hospedado na locaweb. Obrigado. Rodrigo

Bom dia pessoal.... Bom, o que acontece é o seguinte: Em um filme principal, criei um botao para abrir um janela fullscreen....ok,deu certo, nesta janela criei um outro botao "fechar", deu certo.....só q quando fecha ele não volta para o filme principal q estava antes de abrir a janela full. O q devo fazer? O CODIGO É ESSE: on (release) { GetURL("window.close()",""); }

Fiz um popup com o seguinte codigo no botao: on (release) { getURL ("javascript:window.open('pop_caloi.html','Caloi','width=800,height=600,top=0,left=0'); void(0);"); } Deu certo.... Só que quando abre a janela popup, fica um espaço em branco no topo e do lado esquerdo, como fazer para que fique tudo completo, sem nenhum espaço em branco? Obrigado, Rodrigo.

Pessoal.por favor.... Quando crio um botao e vou colocar açoes neste, da a mensagem "não podem ser aplicadas açoes a seleçao atual...", como resolver? E gostaria que alguém me explicasse ,quais instruçoes devo colocar para que quando pressionar este botao, abra um popup fullscreen. Obrigado.... Rodrigo.