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

hitman95

consulta comando visual basic a base de dados access

8 mensagens neste tópico

boas, bem o que se passa é o seguinte, como eu posso fazer uma ligação através de um comando no visual basic 6 a uma base de dados em access?o que prentendia era por exemplo eu carregar num comando, e esse comando ir por exemplo à tabela "stocks" da minha base de dados e dizer que já não há... posso usar sql?cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boas, bem o que se passa é o seguinte, como eu posso fazer uma ligação através de um comando no visual basic 6 a uma base de dados em access?o que prentendia era por exemplo eu carregar num comando, e esse comando ir por exemplo à tabela "stocks" da minha base de dados e dizer que já não há... posso usar sql?cumps

Boas

Para a próxima tenta ser mais explicito e usa o português um pouco melhor porque não percebi logo à primeira a tua dúvida,

mas acho que o pretendes então é fazer uma consulta com um command button.

Bom o command button sozinho não faz isso, precisas de usar outros componentes de acesso a BD, como por exemplo o botão Data ou o component Microsoft ADO Data Control (localização: Menu Project > Components > Microsoft ADO Data Control 6.0 (OLEDB).

-Se obtares por ADO (recomendo) vais as propriedades, e na propriedade ConnectionString fazes a ligação à base de dados.

-Se obtares por Data vais as propriedades, e na propriedade DatabaseName fazes a ligação com a base de dados.

ATENÇÃO:

-A base de dados tem que existir e tem que estar em formato que o VB conheça (Acess, OLE, SQL, Oracle, etc...)

Após a ligação concluida usas textbox que irão assumir os valores do registo:

  1-Criar textbox

  2-Ir as propriedades da própria

  3-Preencher os campos (das Propriedades) DataSource (ADO ou Data) e DataField (Campo que desejas da tabela) e DataFormat (opcional)

Agora já tens uma ligação à tua base de dados, o que podes fazer é assumir variavéis para as textbox (por ex: valorcampo1; valorcampo2;...) e depois essas variáveis podem ser lidas com um command button com o código do género:

Private Sub Command1_Click()
valorcampo1=Val(Text1.text)
valorcampo2=Val(Text2.text)
MsgBox ("Valor do campo 1 = " & valorcampo1)
MsgBox ("Valor do campo 2 = " & valorcampo2)
End Sub

Alguma dúvida apita que esclareco.

Cumps^^

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ok, desculpa se me exprimi mal:(, vou experimentar, depois digo algo...obrigad

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É mais ou menos assim o funcionamento, usando, se não estou em erro, DAO:

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

Podes ver mais alguns exemplos aqui, das diferentes formas de ligações a base de dados:

Using DAO Code

Using ADO Code

Using DRO

Além disso, encontras mais informação aqui:

http://www.thevbprogrammer.com/classic_vbtutorials.asp

http://www.vb6.us/tutorials/Database

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

É mais ou menos assim o funcionamento, usando, se não estou em erro, DAO:

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

Podes ver mais alguns exemplos aqui, das diferentes formas de ligações a base de dados:

Using DAO Code

Using ADO Code

Using DRO

Além disso, encontras mais informação aqui:

http://www.thevbprogrammer.com/classic_vbtutorials.asp

http://www.vb6.us/tutorials/Database

Hmm corrige-me se estou errado mas esse código não é para vb 6.0 como o hitman pediu.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Hmm corrige-me se estou errado mas esse código não é para vb 6.0 como o hitman pediu.

Tudo o que está alí (código e links) são para vb6 ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tudo o que está alí (código e links) são para vb6 ;)

Ok, é que não é muito costume fazer ligação à bd por código.

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