Localizar Registro. Me ajudem!!!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Localizar Registro. Me ajudem!!!

Wesley

FORTALEZA
CE - BRASIL

ENUNCIADA !

Postada em 28/05/2004 19:20 hs

Olá gente,

Sou novato no Visual Basic e portanto nao sei muito sobre o assunto.

Como não sei muito, eu utilizo como acesso a banco de Dados, o Visual Data Manager.

Estou fazendo um programa para meu irmão, e nesse programa, já consegui fazer os códigos para salvar, inserir, excluir e alterar. Só não consigo fazer para o localizar.

Será que alguem sabe fazer este código de localizar, usando o Visual Data Manager.

Abaixo, segue o código que tentei fazer....

dim pesquisa as string

pesquisa = InputBox("Digite o nome")
   If pesquisa = "" Then
     Exit Sub
   End If
   datClientes.Recordset.FindMin ("Razao Social") '=' (" & pesquisa & ")
If datClientes.Recordset.NoMatch Then
MsgBox "Nao encontrado"
End If

Se alguem poder me ajudar, ficaria grato.

Abraços e até a próxima.

Ama

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 29/05/2004 03:12 hs

na tabela defina indice para o campo Razao Social ex Ind_Razao

datClientes.Recordset.Index="Ind_Razao"

datClientes.Seek "=",pesquisa

If datClientes.Recordset.NoMatch Then
MsgBox "Nao encontrado"
End If

Tekki

UBERLÂNDIA
MG - BRASIL

ENUNCIADA !

Postada em 29/05/2004 11:23 hs

Tenta assim:

datClientes.Recordset.FindMin "Razao Social = '" & pesquisa & "'"

Wesley

FORTALEZA
CE - BRASIL

ENUNCIADA !

Postada em 29/05/2004 16:27 hs

Ama,fiz o código como tinha dito, mas nao deu certo, aparece a seguinte mensagem : "Operation is not supported for this of object"

O que será isso? Sera que estou nao estou fazendo da maneira correta ou ainda está faltando alguma coisa.

Segue o código.

pesquisa = InputBox("Digite o nome")
If pesquisa = "" Then
Exit Sub
End If
datClientes.Recordset.Index = ("IndRazaoSocial")
datClientes.Recordset.Seek "=", pesquisa
If datClientes.Recordset.NoMatch Then
MsgBox "Nao encontrado"
End If

Abraços e até breve.

rapa

TERESINA
PI - BRASIL

ENUNCIADA !

Postada em 29/05/2004 23:48 hs

É SÓ VC ALTERAR DE ACORDO COM SEU BANCO DE DADOS!!!! SE VC FIZER CERTO DO JEITO Q ESTÁ AI COM SUAS MODIFICAÇÕES NÃO TEM ERRO!

Dim localiza As String
localiza = Text3.Text
If Not IsNumeric(localiza) Then
Exit Sub
End If
empresa.Index = "idx"
empresa.Seek "=", localiza
If empresa.NoMatch Then
msgbox "CADASTRE A EMPRESA"
Else
Text4.Text = empresa("cod2")
Label13.Caption = "EMPRESA CADASTRADA"
Text1.Text = empresa("nome")
End If

rapa

TERESINA
PI - BRASIL

ENUNCIADA !

Postada em 29/05/2004 23:54 hs

Para deletar um arquivo basta fazer assim:

coloque no form:

Set BD = OpenDatabase("c:Arquivos de ProgramasLocadoradado2.mdb")
Set cadastro = BD.OpenRecordset("cadastro")

coloque no module:

Global BD As Database

Global cadastro As Recordset

coloque num botão o código:

cadastro.delete

text1.text=""

Página(s): 1/2 PRÓXIMA »

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

VOLTAR