• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

Pesquisa em bds access

6 mensagens neste tópico

Bem gostaria de saber como fazer uma pesquisa no access, pois criei uma, mas deve entrar emciclo infinito pois crasha a aplicação e o IDE.

De momento não tenho aqui o código, mas quando estiver em casa coloco para analisarem, mas gostaria de saber outros métodos, se tiverem para ai coloquem aqui.

Já agora gostaria de saber o código que isso não sei que é se não encontrar nenhum registo mostrar um aviso a dizer que não foi encontrado !

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

Aqui está um examplo tipo de pesquisa em uma base de dados de access utilizando o VB6

Dim db As Database
Dim dbRecordset As Recordset
Dim SQL As String

Screen.MousePointer = vbHourglass

Set db = OpenDatabase(dbBaseDeDados, False, False, ";pwd=PasswordCasoExista")
SQL = "SELECT * FROM Table WHERE campo = '" & CampoAPesquisar & "'"

Set dbRecordset = db.OpenRecordset(SQL)
With dbRecordset
   If .RecordCount Then
      .MoveFirst 
      
      ' Prencher textboxes, listas, etc

      .MoveNext
   End If
End With
dbRecordset.Close
db.Close
Set dbRecordset = Nothing
Set db = Nothing
SQL = ""

Screen.MousePointer = vbDefault

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Pequena correcção!

Onde está:

  Next x

Devia estar:

  End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

outra correcção...

nas declaraçoes gerais tens duas vezes a variavel db definida como database ^^

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Modificado!

E também acrescentei um MoveFirst para garantir que começa no primeiro registo (caso seja um ciclo)

Passo tanto tempo sem usar o VB6 ...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora