Pinguimbera
-
Total de itens
18 -
Registro em
-
Última visita
Posts postados por Pinguimbera
-
-
Este Quote é de outro fórum e soluciona sua questão:
tiagosandrade27-May-2005, 22:05
No meu caso deu certo assim
Private Sub txtRaio_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then
Exit Sub
ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then
KeyAscii = 0
End If
End Sub
Mas se quiser validar (. , e backspace) faça assim
Private Sub txtRaio_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Or KeyAscii = 44 Or KeyAscii = 8 Then
Exit Sub
ElseIf KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then
KeyAscii = 0
End If
End Sub
Pra saber o valor das teclas eu fiz um programinha basico veja:
num textbox
Private Sub txt1_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub
so digitar q o programa mostra o valor
Espero ter ajudado.
-
alguém pode dar uma solução? :( o tópico tava quase na 2º página xD
-
Desculpe-me, um instante: [ AISUGHAsuiouaISOhAUOIhauaSIOUHOiauhusioa]
ok desculpe-me novamente. *Você está na área errada jovem amigo.
Bom, Browser é reconhecido como navegador, no windows 98, é chamado de Internet Explore ( onde você navega. )
Bom o erro você não explicou direito, mas talvez seja somente localizar a foto que você deseja inserir no seu Blog. Deve haver um botão 'Procurar' e deve abrir uma caixa para você localizar a imagem.
abraços
-
não consegui separar letra por letra aqui, mas ' i ' precisa ser byte? manda um Dim i as integer e depois seta ele i=0
-
eu tentei essa conexão mas ele da erro também:
CON.Open "Provider=MS Remote;Remote Provider=Microsoft.Jet.OLEDB.4.0;Data Source=banco01.mdb;Remote Server=http://127.0.0.1:8090\"
e o select da pau:
rs.Open "Select * from login where usuario='" & campotxtusuario.Text & "' and senha='" & campotxtsenha.Text & "'", CON, adOpenKeyset, adLockOptimistic
no caso dá conexão primeira la em cima, o remote server seria o q?? e o data source ia pegar da onde?
-
Sinceramente dei uma travadinha ao ler, não entendi tão bem.. Mas vamos lá garoto!
Quando você está chamando os dados do campo 'memo' para os campos de texto do VB, ele irá tentar chamar também os dados que forem NULL (sem dados).
Você pode fazer um "IF" antes de chamar o rs!observacao ex:
If !observacao = "" Then
Else
txtObs.Text = !observacao
End If
Mais sinceramente, eu não entendi sua pergunta... Ai em cima, só dei uma rapidinha que talvez lhe dê uma idéia de como arrumar seu erro. Caso contrário da uma explicada melhor..
* Mas tipo, não da bug não.. Ele tem que ler sempre, nulo ou não. Seu Select está certinho? Faz uns testes separados só com este campo memo em outro projeto do vb..
Abração
-
Boa noite (ótima madrugada para quem está ligado neste momento)!
Estou à tempos procurando intensamente na internet, sobre esta minha dúvida!
Estou fazendo um exemplo em minha casa de um programa qualquer, porém só quem tem usuario e senha pode fazer o "form2.show" aparecer..
Tenho um banco de dados no Access, com a tabela [ login ], que tem os campos: usuario e senha.
No VB, existem 2 forms. O primeiro é o login. E e se o campo de login e senha estiver correto, ele irá entrar no form2. ( Isto foi com ajuda do Graymalkin, que fez o select para mim a muito tempo atrás através de um ado ).
Até ai tudo bem. Passando alguns dias deixado de lado estes arquivos, estou tentando passar um nível acima.
Minha dúvida:
Eu agora quero enviar o executável para meu amigo. Mas somente o executável. E da casa dele, ele terá que conectar ao Banco de Dados da minha casa. Já tentei por milhões de diversas formas, mas nenhuma funciona e da erro de conexão com o bando de dados.
Ex:
Meu amigo, está com executável e quando ele entrar no programa dele irá fazer uma conexão um banco de dados do IP (exemplo): 200.159.120.120. ( irá abrir a conexão com o BD da minha casa )
Após isto, ele irá digitar o login: Rafael e a senha: 123 e clicar CONECTAR. Após isto, quero que somente confira com um select ( " tabela login, quando usuario = campousuario.txt e senha = camposenha.txt , msgbox "bem vindo rafael", form2.show" )
somente isto.
Sei que embolo tudo, mas tento exemplificar de diversas maneiras. Abraços e conte comigo sempre!!
-
Pois não, ao seu dispor. Qualquer coisa poste novamente que logo quando chegar do trabalho analizo!
Abraços
-
Bom estou sem o VB aqui neste computador, mas tente alguma coisa sobre ROW e Columms (linha e coluna).. talvez você possa um select no dado que você deseja e jogar os dados do select no textbox..
-
Também estava com um problema parecido com este ontem (10/03/2008), pois meu MSFlexgrid não estava dando refresh e ele estava ligado à um ADO. Quando eu colocava o código de RECORDSET no MSFLEXGRID ele não dava mais completar (quando aperta . ), parece que seu recordset não apresenta mais opção.
Aproveitando a pergunta do caro amigo dono do tópico, como eu faço para atualizar os dados de u msflexgrid que está ligado à um adodc. Ex:
Adodc está ligado à uma tabela no access, com "select * from tabelas...."
E o MSflexgrid está com Datasource do adodc1 e mostrando todas as colunas. Ele mostra, porém quando eu cadastro algum outro dado nos campos acima dele, ele não atualiza, quais códigos devo utilizar?
Abraços!
-
Bom, fiquei a noite toda tentando fazer algumas coisas, depois de uma googada e uns search em foruns mas nada deu...
Dúvida:
Tenho um arquivo chamado EXEMPLO.TXT
Nele contém:
Sistema eusouatoa
1000
Digite seu nome
erro
eu preciso que quando eu disser para o VB ler a linha 3, uma variavel X irá receber "DIGITE SEU NOME".
exemplo:
form_load:
form1.caption = 1º linha do exemplo.txt
2º dúvida.. mesma coisa da de cima porém... tem como no EXEMPLO TXT eu identificar melhor tipo assim?
CapdoForm = "Sistema eusouatoa"
InterTimer = 1000
Dnome = "Digite seu nome"
ai no vb eu declaro umas variáveis que vão receber esses do exemplo.txt ex:
Dim nomedoform as string
nomedoform = EXEMPLO.TXT>> CapdoForm
form1.caption = nomedoform
* eu me compliquei bastante, acho que estou meio desordenado após muitas tentativas.
Abraços
-
Ótimo, queria mesmo saber isto! Ainda não testei mas já gravei o código!
Abraços
-
tentei e deu isso:
Nenhum valor foi fornecido para um ou mais parâmetros necessários.
e também quero que ele mostre só o dado do ADRIANO, e não todos os dados hein...
tipo uma logica assim para recordsource: select "tal" da tabela geral onde coluna nome for = usuario
ai mostrara todas as informações de 'usuario' (ADRIANO)
-
Essa dúvida é pros feras:
Criei uma tela de login. beleza ele olha o login se o login estiver certo ele pega o nome que você digitou na caixa de login e envia para a string usuario e depois chama o form2. (form2.show)
bom, no form2 tem 1 datagrid.. mas eu quero que nesse datagrid apareça somente as informações da pessoa do login.
eu criei um ADODC, para o nome do banco de dados etc... olha o banco de dados:
acc.mdb (no acess)
no acc.mdb tem as seguintes tabelas:
Login
geral
Na tabela login, contem usuario e senha ( nem precisa preocupar, isso eu já fiz)
agora na geral tem as seguintes colunas:
Nome - sexo - cidade - telefone
RESUMO RAPIDO:
1º Form, digitei o login: ADRIANO - Vai conferir se tem adriano na tabela LOGIN e vai falar que tem e vai aceitar e login.text = usuario ( irei mandar o usuario que está escrito no login.text, no caso usuario é uma string >>GLOBAL<< dentro de um module e vai receber o nome ADRIANO) e depois irá abrir o FORM2.
No form2, já sabendo que posso utilizar a string usuario para qualquer form, porque ela é global, sei que usuario vale ADRIANO.
Agora como eu faço para um DATAGRID aparecer somente as informaçoes do Adriano e não de todos nomes cadastrados?
Preciso por oque no RecordSource do ADODC? HELP
Exemplo da tabela geral com as colunas nome, sexo, idade, telefone.
Nome - sexo - cidade - telefone
ADRIANO - Masculino - Campinas - 65656565
ROSANA - Feminino - SUIÇAI - 56532332
ALBERTO - MASCULINO- LIMA - 6888686
quero que apartir da string usuario = adriano, no datagrid apareça as informações dele.
FIZ CONFUSAO MAS DESCULPE-ME
-
Gostaria de saber como faço para pegar os itens de uma Dirlistbox e inserir em uma ComboBox?
Explicando melhor...:
Tenho uma ComboBox. Ela irá receber em sua lista, o nome de todas as pastas que está aparecendo na Dirlistbox.
A Dirlistbox já está direcionada à uma certa pasta (Dir1.path = "c:\teste").
Como fazer isto?
Abraços
-
normalmente as páginas que conseguimos fazer isto elas são em php. via visual basic, devemos ter conhecimento das TAGS que iremos utilizar nos comandos para que se imprima as informações.
Exemplo.
No site google.com.br, iremos utilizar exemplo como se ele fosse feito em php e o campo de pesquisa iria se chamar textbox:
$inftext = textbox.text
bom já sabemos que no google.com.br temos uma string que se chama $inftext que irá receber o valor que o usuário digitar no campo de pesquisa, ex:
você digita no campo de pesquisa: Script
logo no php irá:
$inftext = textbox.text
$inftext = "Script"
Ai você já tem nas mãos para fazer no visual basic, exemplo de uma label1:
no form load:
label1.caption = textphp
agora você precisa registrar uma string que fosse exemplo:
Dim conect as String
conect = (geturl = http://www.google.com.br/index.php#$inftext)
Dim textphp as string
textphp = conect
agora o valor escrito no LABEL seria: SCRIPT, no caso acima que você digitou no campo de pesquisa.
*sou apenas um amador iniciante, não sei se está certo, concerteza contém bastante erro. mas tento ajudar :P
abraços
-
Bom dia.. !
Queria saber se em um MODULE criado além de conseguir poder registrar as strings etc eu consigo também fazer com as strings recebam dados.
Ex:
Module1
dim nome as String
nome = "Pinguim"
* eu não consegui que ele recebesse o valor de nome no modulo, somente no FORM. Eu posso fazer este tipo de operação acima somente em module1? ou eu preciso identificar ele (dim nome..) e somente em FORMS que eu coloco ele para receber um valor?
2º Duvida:
como eu faço para que um valor de uma string seja global, QUE O VALOR DESSA STRING (SEU DADO) SEJA O MESMO PARA TODO E QUALQUER FORMS.
ex:
se eu der o valor: nome = "Pinguim" ele seja valido para qualquer form que eu usar pedindo text1.text = nome, pois no meu VB aki se eu ponho um valor para tal string no form1 já no form2 o valor não existe.
obrigado, ta meio confuso essas 2 duvidas :P hehehe
Dúvida no uso de variável
em Visual Basic
Postado
No caso então, você deveria usar ao invés de INTEGER, usar STRING, ficaria assim:
Public nome1 As string
Private Sub nome()
nome1 = txt.Text
If nome1 = "marcelo" Then
InputBox ("OK")
End If
End Sub
Private Sub Form_Load()
txt.Text = ""
End Sub
* ( ali nakele inputbox sse for só uma mensagem de ok, você pode utilizar o msgbox, ficando assim: msgbox "Ok" )
Abraços