rodrigotnoma
-
Total de itens
166 -
Registro em
-
Última visita
Posts postados por rodrigotnoma
-
-
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
-
-
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.
Instrução Update
em Visual Basic
Postado
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