Danleonhart
-
Total de itens
574 -
Registro em
-
Última visita
Posts postados por Danleonhart
-
-
Deu certinho Matheus-VB !
Meu erro foi não ter declarado as variáveis...
Havia colocado 'pd' para "Produto" e 'qt' para "Quantidade", porém não tinha dito quem era quem...ou seja:
pd = Txt1.Text
qt = Txt2.Text
O script ficou assim:
Private Sub cmd_por_Click() abb Dim existe As Boolean Dim pd, qt As Variant pd = Txt1.Text qt = Txt2.Text Set rs = New ADODB.Recordset rs.Open "select * from tbl", con Do While rs.EOF = False If rs("Produto") = pd And rs("Quantidade") = qt Then existe = True End If rs.MoveNext Loop If existe = True Then MsgBox "Dados confere com o registro",vbInformation, "INFO." Else If existe = False And rs.EOF = True Then MsgBox "Dados não conferem !", vbCritical, "Erro" End If End If End SubObrigado pela força também Raphael !
VALEU !!! :D :P :rolleyes: :rolleyes:
-
Apesar do script ser correto para a opção, no meu projeto não funfou... :wacko:
Mas tou revendo meu script, pode ser que esteja com algo a mais ou até faltando...quando achar posto novamente...
-
Pessoal é o seguinte...
Como é que se faz para fazer uma consulta a um Banco de dados de maneira comparativa com o que está digitado em duas “TextBox” ?
Uso conexão ADODB
EX:
Text1 = Carro
Text2 = 30
Então ao clicar no CommandButton iniciará uma busca no Banco de Dados (Access 2003) nas colunas: “Produtos” & “Quantidade”.
Se for encontrado então dará uma resposta de POSITIVO (MsgBox), se houver algo de diferente (quer seja entre “Text1 x Produtos”, ou “Text2 x Quantidade”), então a resposta será NEGATIVA.
Para informação uso um Module com o seguinte script:
Public con As ADODB.Connection Public rs As Recordset Public Function abb() Set con = New ADODB.Connection con.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\nt2.mdb;jetoldb:database" End Function Public Function fcb() con.Close End Function
E para colocar informações no BD uso este script em um Botão:Private Sub cmd_por_Click() Dim pd, qt As Variant Pd = Text1.text Qt = Text2.text abb inserir = "Insert into tbl(Produto, Quantidade)" & "values('" & pd & "','" & qt & "')" con.Execute inserir fcb End SubPessoal espero ter sido claro, se não fui, é só me perguntar que respondo.
Desde já Obrigado !
-
Olá Kuroi...
Conseguí resolver não... fiz dessa maneira:
Private Sub cmd_calc_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft: limpa.SetFocus KeyCode = 0 End Select End Sub
E fiz assim também:Private Sub cmd_calc_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyLeft: limpa.SetFocus End Select KeyCode = 0 End Sub
Não funcionou...veja que segundo meu script é para o focus ir para o botão "Limpa" ao teclar na "seta esquerda"...porém ele vai para o botão "Sair"...
percebo que o programa segue a ordem de elaboração, pois criei o botão "Sair" antes do "Limpa".
-
É... tem razão... o porém é que é apenas local... descobrí que para ter abrangência em todos os métodos de uma classe, devo criá-la no início da classe... era isso que tava me encucando...
Veja:
Obrigado ! :rolleyes:
-
O script é o mesmo do VB-6 ???
Veja neste axemplo de Calculadora de IMC (só exemplo):
Imagem 01: Declarando no Form dá erro
Imagem 02: Declarando no botão onde fica o cálculo dá certo...
No VB-6 declarando no Form dá certo... é isso que quero saber, se declara-se apenas no local da exercução do cálculo, ou no form...
:blink:
-
Pessoal, tou iniciando...
Na verdade em VB6, porém gostaria que vocês mais experientes que eu me listassem aqui algumas coisas:
Se no VB6 eu declaro:
Dim distancia, altura, largura As Integer
Como a declaro no VB.NET ?
Declaro no form.load, ou no item onde vai entrar as variáveis ???
-
Matheus, cara não leve a sério não !
Isso só é para exercício meu...
eu sabia que você não iria entender...o projeto é todo "amador", fui pensando e adicionando aos poucos...
Só uma curiosidade... você é professor ou algo do tipo ???
Obrigado pelas informações... vamos nos encontrar muito por aqui, dei uma olhada nos seus tópicos sobre comunicação entre VB-6 e Banco de Dados Access... sinceramente estou muito longe de entender tudo aquilo, mas vou aos poucos chegar lá...
Até breve... vou votar agora :lol:
-
@Matheus:
Enviado... :)
-
@Matheus...
Tirei o Evento da Label e continua mostrando resultados "loucos" :wacko:
Depois de inserir um valor maior:
Vou capturar com video e te passar o link para você vê em tempo real...
EDIT: Inclusão do vídeo.
-
formata com Currency (moeda), assim ele já irá somar
Abraços
@Matheus :
Tentei cara, mas não consigo... o valor sempre dá "???,00"...
Tem alguma coisa a ver em ter declarado no Form as Dim como Double ???
No evento Change da Label onde apresenta o resultado coloquiei assim:
Me.Label1.Caption = Format(Me.Label1.Caption, Format("#,##0.00"))pois com Currency apresenta o sinal R$ antes dos valores...
Tem outra coisa... quando os valores colocados na ListBox aumentam o resultado fica desproporcional...veja nas imagens:
1ª IMA:
2ª IMA:
Tem alguma dica ? :wacko:
-
:lol: Deu certinho Matheus !
Obrigado pela explicação também... assim aprendo o que estou fazendo.
Tou configurando agora para que o resultado apresentado na Label seja completo, ou seja, apresente também os "quebradinhos", como muitos gostam de chamar...
Mais uma vez obrigado pela ajuda!
-
Você usara um botão?
se for segue o código:
Matheus... você poderia me fazer um favor ?! explicar cada comando dessa linha de comando que você postou...
não pretendo utilizar botão para isso... tenho um botão para jogar "os valores", um por vez, na ListBox... daí o comando teria de ser ou na ListBox ou no Label que irá informar o resultado...bem, pelo menos é o que tou tentando fazer... :)
*Edit:
:P Não, ListBox não tem o evento Change... nesse caso tou tentando na Label, pra sempre que um valor entrar na ListBox, a Label apresentar este valor somado aos demais... meio complicado né ?! :blink:
-
Olha eu aqui de novo...
Agora tou querendo saber se tem como uma Label da o resultado (soma) de valores que estão em uma ListBox...
veja a imagem:
Nesta ListBox são jogados valores aleatórios... então, tou tentando fazer com que a Label sempre apresente o resultado dos valores que são jogados na ListBox...
Na Label, estou fazendo pelo evento "Change":
Me.Label1.Caption =Daí adiante é que empanquei :blush: coisa de iniciante mesmo...
-
Olá para todos...
Eu também sou iniciante, e o pior de tudo, auto-didático, devido a ter pouco tempo livre e também pouca grana <_< .
Achei muito importante a criação deste tópico, pois fui um dos que não sabia dessa diferença e até perguntei para o Kuroi sobre isso...
@Higorbp: Concordo com você, também me conformarei em iniciar com o VB-6, apesar de já ter instalado o VB.NET e ficar bastante admirado com a interface dele e com as inumeras opções... mas, tenho que me contentar com o 6, pois tentei criar um exemplo de aplicativo no .NET que havia criado no 6, e me perdí totalmente...
Então pessoal é isso, se virem muitos tópicos criandos por mim não se assustem, pois trata-se de alguém que adora informática e está aprendendo "na raça"! B)
-
Seguinte pessoal...
Criei um pequeno Bando de dados e quero conectá-lo a um ComboBox, de maneira que quando clique na rolagem, apresente as opções que estão no banco de dados...
Conseguí a conexão usando o caminho: Projet > Components > e selecionando a opção: "Microsoft ADO Data Control 6.0(OLEDB)",
porém a barra de rolagem é horizontal, e preciso que seja vertical(tipo ComboBox), onde apareça a lista das informações contidas no BD (banco de dados) quando acionada a rolagem...
INFOS:
- Usei conexão Microsoft Jet 4.0 OLE DB Provider;
- O Banco de Dados foi criado no VISDATA, igual aos do Access.
Se alguém puder me ajudar aí fico grato.
-
Kuroi, fiz tudo isso e não deu certo... o focus continua indo pra outras opções, menos a que linkei...
-
:blink: Pessoal,
tem como alterar o direcionamento de um CommandButton ?
É que coloquei o CB (CommandButton) antes de colocar caixas de texto e Labels... agora tou querendo configurar o direcionamento e não tá dando certo...
Tou fazendo assim:
-------------------------------------------
Private Sub cmd_calc_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp: Text3.SetFocus
Case vbKeyLeft: cmd_limpar.SetFocus
Case vbKeyRight: cmd_sair.SetFocus
End Select
End Sub
--------------------------------------------
Ou seja, quero que quando tecle seta para cima, vá para a caixa de texto "3";
quando teclar seta para esquerda vá para o botão "Limpar";
quando teclar seta para direita vá para o botão "Sair".
Porém não está acontecendo isso... ele se move pela ordem em que foi criando os botões, já que criei o botão de "Cálculo" e só depois de criar varias caixas de textos e Labels criei os botões de "Limpar & Sair"...
-
Obrigado !
Deu perfeitamente certo. :D
-
Tem como mostrar automaticamente o simbolo da moeda (no final ou inicio, tanto faz)...
EX: Quando digitar 20, ao sair da TextBox ela automaticamente inseri ",00 e R$" no valor digitado, ficando R$ 20,00.
Imagens:
Obrigado !
-
Pessoal, conseguí... ficou assim:
-------------------------------------------------------
Private Sub vh_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Or KeyAscii = 44 Or KeyAscii = 8 Then
Exit Sub
End If
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 44 Then
KeyAscii = 0
End If
End Sub
------------------------------------------------------
Dessa maneira o TextBox aceita apenas números, "."(ponto) e "," (vírgula).
Agora vou tentar configurar para aceitar apenas letras... quem souber fala aê ! :D
-
de qualquer forma, na sala de tutoriais, onde esta tb esse codigo, acho q tem la o codigo com virgula.
@Kuroi
Ok... realmente era a primeira opção:
-----------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Then KeyAscii = 44
If KeyAscii = 44 And InStr(Text1.Text, ",") <> 0 Then
KeyAscii = 0
Exit Sub
End If
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 44 Then
KeyAscii = 0
End If
End Sub
--------------------------------------------------
Tou tentando configurar para ele aceitar o "ponto" (.) também...
E como faço pra aceitar apenas "letra" ? :unsure:
-
Pessoal... achei aqui no fórum uma dica de como fazer para oTextBox aceitar apenas número...o porém é que dessa maneira ele não aceita "."(ponto) nem "," (virgula)... o código foi o seguinte:
---------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
---------------------------------------------------
Como posso fazer para que ele aceite o ponto e a virgula ?
Também quero saber como configuro para aceitar apenas letras...
Obrigado !
Configurar tamanho dos Forms.
em Visual Basic
Postado · Editado por Danleonhart
Pessoal...
Como posso configurar meus Forms para que eles tenham o mesmo tamanho sempre, em qualquer resolução ?
Tipo: tenho um Form em 800x600 com todo seu conteúdo organizado...porém, quando maximizado fica aquele "lado" cinza todo vazio...sobrando...
Li mas não entendí, sobre o comando "Screen", que com ele pode-se configurar o Form para que tenha o mesmo tamanho sempre...quer seja do tamanho padrão ou quando maximizado... que souber posta aqui um exemplo :blush:
Obrigado !