Bob Esponja

Olá pessoal.... não achei nenhum tópico relacionado a isso na busca, portanto resolvi abrir um tópico. Eu gostaria de colocar uma inputbox sem o botao CANCEL. Existe essa possibilidade no VB6 ?? Se alguém souber, posta ai.... obrigado! Abraço!

Ae pessoal, as duas maneiras funcionam, mas elas apresentam uma diferença: If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z"))Then KeyAscii = 0 End If Este ultimo codigo deixa o usuário digitar caracteres especiais, como [[~]~;´ç'[´';/; e etc. Abilitando também o backspace. Enquanto o codigo: If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then If KeyAscii <> 8 Then KeyAscii = 0 End If não permite que o usuário digite caracteres especiais e ao mesmo tempo habilita o BACKSPACE. muito obrigado a todos q me deram um help ai! Abraço!

Brother, não sei se isso vai te ajudar, mas dá uma olhada nisso ai.... eu dei uma olhada em algumas funções de vbscript e achei esta: vlw... Abraço!

Olá pessoal.... estou tendo problemas com a seguinte rotina em VB... If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If Esse pequeno código, é colocado no evento KeyPress de uma caixa de texto para o usuário somente poder digitar numeros e não poder digitar letras. Mas nisso, ocorre o seguinte inconveniente.... ele também desabilita a tecla BACKSPACE.... alguém sabe como eu posso habilitar essa tacla sem alterar o objetivo do código, fazendo com q o usuário digite somente numeros ?! Se alguém souber, posta ai... Um abraço!

Seguinte, eu fiz assim... Private Sub Command1_Click() Dim aleatorio As Integer aleario = Rnd() * 100000 Text1.Text = aleatorio End Sub Coloquei essa rotina em um evento CLICK de um botao.... mas quando eu clico no botao, ele coloca na text1.text um algarismo "0" (zero)... e isso se repete toda vez que eu clico nele.... no q eu estaria pecando ?! ps.: lá no código, eu tb já tentei só Rnd ao invez de Rnd() abraço!

Beleza... Valeu pela colaboração brother Abraços, William Rodrigues Vlw William! Fala ae Manwë Súlimo.... eu não entendi direito brother, por não conhecer muito essa função.... será que você ou outro alguém poderia me passar algum exemplo ou algo do tipo que pudesse me esclarecer ?! Abraço!

Olá pessoal, fiz uma procura aqui no forum de VB pra ver se havia algum tópico relacionado a isso, mas não achei. Estou querendo criar um número com 4 dígitos, mas que seja de forma aleatória e variada, nunca criando os mesmos números novamente. alguém já utilizou alguma rotina parecida ou tem ideia como eu poderia fazer ?! Obrigado desde já. Um abraço!

Muito Obrigado PiGmEu! abraço a todos !

beleza.... tem algum site com Tuto para operações ?! ps.: o formato da data entre os parenteses seria dd/mm/yyyy ? por exemplo.: datainicio = 15/07/2003 datafinal = 16/07/2004 DateDiff(intervalo, datainicio, datafinal) 'no caso, qual valor eu entro em intervalo ?! É ele que eu quero achar..... ou eu coloco simplesmente: lbldatafinal.caption = DateDiff 'funcionaria assim ?! Obrigado!! abcs!

Desculpa ai então.... deixei vocês boiando !! Seguinte.... eu quero fazer isso ai mesmo que o Pigmeu falou. Me enrolei na hora de explicar o que queria. Por exemplo: O usuário vai lá e cadastra algumas informações em um formulário e depois de um ano, automaticamente, o sistema faz uma atualização dos dados. Mas seria tipo uma condição assim: dim ano as integer dim anofinal as integer dim primeira_data as date dim data as date ano = 0 primeira_data = 16/07/2004 'esse exemplo mostra somente a logica data = 17/07/2005 'a programacao em VB está errada diferenca = (data - primeira_data) anofinal = (ano + diferenca) if anofinal <> ano then . . . . . . . end if entenderam ?!?!?! abraços!

Galera, estou com duas duvidas! Eu estou com dúvidas em operações matemáticas com datas no VB. Por exemplo: (12/10/2004 + 21/02/2005) - a grosso modo é isso. alguém sabe como eu posso fazer esses tipos de operações ?! E outra coisa... alguém já utilizou máscara de entrada em text boxes ?! Por exemplo: O usuário vai digitando a data e as barras ( / ) vão aparecendo a medida que ele digita, no padrão DD/MM/AAAA . Quem souber e puder me ajudar, eu agradeço! Abraço!

Valeu.... era meio ridicula minha duvida.... coisa de iniciante.... obrigado pela força! abcs ;-)

Brigadão!! Me adiantou e muito.... era exatamente o que eu precisava !!! abcs..!

alguém sabe como eu posso colocar um ícone personalizado na barra de títulos (no canto esquerdo), assim como o internet explorer e outros programas ?! E qual tipo de eventos eu posso utilizar para clicar nele.... e etc ?! Quem souber, posta aí! Obrigado! abcs...!

Brigadão vou fazer isso sim... ele faz mtaa falta!!!

Olá a todos! Estou com problemas para acessar as páginas ASP que estão no meu computador. Eu utilizo o windows XP Professional e uso o IIS para rodar o ASP. Sempre que eu tento rodar uma página ASP no meu http://localhost dá erro! A seguinte mensagem aparece para mim: Se alguém puder me ajudar, agradeço! abcs...!! ps.: eu tenho todas as permissões para o meu usuário...

não foi não....!! obrigado a vocês por me ajudarem! abcs..!

Funcionou !! Obrigado !! Abraço

Olá pessoal... eu tenho um form que possui campos que vão receber valores numericos. Eu gostaria de pegar esses valores e efetuar contas com eles. Tem como eu fazer no codigo ASP ele interpretar os valores digitados como inteiros e efetuar operações matemáticas ?! alguém pode me dar um exemplo ?? Quem puder me ajudar, posta aí!! Obrigado... Abraços!!

O evento CLICK, estah funcionando, mas da maneira errada, vou te mostrar o meu codigo: [B]Private Sub Form_Load()[/B] Set con = New ADODB.Connection Set rs = New ADODB.Recordset Set con = CreateObject("ADODB.Connection") Dim servidor As String Dim sql As String servidor = "my_server" conexao = "DRIVER={SQL Server};SERVER=" & servidor & ";UID=my_id;PWD=my_password;DATABASE=my_db;" con.Open conexao sql = ("SELECT * FROM Contadores") rs.Open sql, con Do While Not rs.EOF List1.AddItem rs("Nome") & " " & "-" & " " & rs("Descricao") rs.MoveNext Loop End Sub [B]Private Sub List1_CLICK()[/B] Label4.Caption = " " & rs("Contador") & " " End Sub Quando o codigo estah assim, ele nem inicia porque ele diz que o "rs" do Sub List1_CLICK não estah definido. Eu então coloquei tudo que se referia à conexao, no GENERAL - DECLARATIONS, tb não deu certo porque ele dava erro no comando "Set". Como ele não estava encontrando o "rs", eu coloquei as informações de conexao no Sub List1_CLICK(), ai ele funcionou parcialmente. No caso, eu só tenho dois itens no List, quando eu clico no primeiro, ele me dá o número correto do contador no Label4 (ateh ai, td bem), e quando clico no segundo, ele continua me dando o numero do primeiro. não sei ao certo como isso funciona no VB, já que no ASP isso parece ser "automático". Seria alguma coisa referente a indexação de registros ?? alguém pode me dar uma ajuda ?? Obrigado a todos! Abraços!

No caso, o que seria esse "texto" ai ??? obrigado pela dica...

Estou utilizando o seguinte sistema para incluir os dados do form no meu bd sql: incluir.htm <HTML> <HEAD> <TITLE>Formulario</TITLE> </HEAD> <BODY> <H1>FORM DE INCLUSÃO</H1> <FORM METHOD="POST" ACTION="incluir.asp"> <TABLE> <TR><TD>Nome:</TD> <TD><INPUT NAME="Nome"></TD></TR> <TR><TD>Endereço:</TD> <TD><INPUT NAME="Endereco"></TD></TR> <TR><TD>Cidade:</TD> <TD><INPUT NAME="Cidade"></TD></TR> <TR><TD>Estado:</TD> <TD><INPUT NAME="Estado"></TD></TR> <TR><TD>Cep:</TD> <TD><INPUT NAME="Cep"></TD></TR> </TABLE> <BR><INPUT TYPE="SUBMIT" VALUE="Salvar Registro"> <BR><BR> </FORM> </BODY> </HTML> incluir.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>incluir2.asp - Exemplo</title> </head> <body> <H1> Incluindo um novo cliente </H1> <% Dim con Dim rst Const adOpenKeyset = 1 Const adLockOptimistic = 3 Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") ' Abre a conexão com o banco de dados sql con.Open "DRIVER={SQL Server};DATABASE=teste;Network=DBMSSOCN;server=server-bd;uid=teste;pwd=teste" rs.Open "SELECT * FROM form", con, adOpenKeyset, adLockOptimistic rs.AddNew rs("Nome")= Request.Form("Nome") rs("Endereco")= Request.Form("Endereco") rs("Cidade")= Request.Form("Cidade") rs("Estado")= Request.Form("Estado") rs("CEP")= Request.Form("Cep") rs.Update Response.Write "<B>Usuário cadastrado</B>" rs.Close con.Close %> <BR> </BODY> Ele está me passando o seguinte erro: já dei uma olhada nas permissoes e estao todas corretas.... Se alguém puder me ajudar, posta aí !! Obrigado...!!!

Valeu Pigmeu..... funcionou.... Agora, sem querer ser chato.... qual o evento que eu utilizo para fazer alguma coisa a partir do momento em que o usuário clicar em um dos itens da List ?! Obrigado... abraço!

Eu tenho uma tremenda duvida, em quando utilizar os tipos de campos... quando se usa varchar, nvarchar, numeric, int, entre outras.... alguém poderia me recomendar algum site que contenha os tipos de campos em SQL e as definições ??? Agradeço... abraços!

Estou com o CD dele... ele trabalha com Windows e Linux ao mesmo tempo, parece ser bom. Ele tem um site, deêm um olhada, e dps postem alguma coisa aqui.... abraço!! o site é: CACHÉ 5