CHAMAR UMA TXT

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: CHAMAR UMA TXT

ROBSON
não registrado

ENUNCIADA !

Postada em 15/01/2007 17:52 hs

AJUDA

TENHO UM PEQUENO PROJETO E ESTOU USANDO UM BANCO DE DADOS ACCESS 97.

PARA ME CONECTAR COMO O ACCESS ESTOU USANDO ESTE COMANDO

Data1.DatabaseName = App.Path & "Cadastro.mdb"

NO FORMULARIO COLOQUEI

SEIS TXT SENDO TXTST , TXTDESCRIÇÃO , TXTQUANT, TXTPEÇA ,TXTDIAMETRO , TXTVALOR. E EU NÃO SEI COMO EU POSSO COLOCAR UM CODIGO PARA QUE O USUARIO COLOQUE UM CODIGO NO CAMPO TXTST E

ELE BUSCA NO BANCO DE DADOS

KlausLana

TIMÓTEO
MG - BRASIL

ENUNCIADA !

Postada em 25/01/2007 13:41 hs

Opa e aí, tudo bem?

Pelo que entendi na sua descrição, faça assim:

1- Ponha um botão ao lado do TextBox TXTTST.
2- Coloque o seguinte código no botão:
Private sub Command1_Click()
    Dim Rs As Recordset

    If TxtTst = "" Then Exit Sub

    Set Rs = Data1.Database.OpenRecordset("SELECT * FROM TABELA WHERE TST=" & TxtTst)

    If Rs.RecordCount > 0 Then
        TxtDescricao = Rs.Fields("DESCRICAO").Value
        TxtDiametro = Rs.Fields("DIAMETRO").Value
        TxtPeca = Rs.Fields("PECA").Value
        TxtQuant = Rs.Fields("QUANT").Value
        TxtValor = Rs.Fields("VALOR").Value
    End If

    Set Rs = Nothing
End Sub

Isso, supondo que os campos do seu banco de dados (no Fields) tenha estes nomes. se não tiver, apenas troque-os ou use o indice (Fields(0), Fields(1)), mas é desaconselhável você fazer isso.

Espero que te ajude

<DIV>Klaus Lana</DIV>

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site