Dúvidas Sobre Banco De Dados!

[soldadoaraujolima]

Pessoal, eu faço home pages em asp, mas não costumo mecher no VB. Agora terei que fazer um software que realiza consultas e grava dados em um banco de dados que se encontra em meu computador mesmo. Quero fazer tudo no código, mas não sei como iniciar a conexão com o banco de dados. Se puderem me ajudar, ficarei bastante agradecido.

Private Sub Form_Load()

' Linha 1 - Quero estabelecer a conexão do banco de dados aqui.

' Linha 2 - Quero realizar alguma consulta aqui (Select * from tabela Where...)

End Sub

Pessoal, dá uma luz aí! Como que eu faço isso?

[soldadoaraujolima]

Pessoal, dei uma pesquisada. Olha se é isso aqui:

Private Sub Form_Load()

Set db = OpenDatabase(db.mdb)

Set rs = db.OpenRecordset("SELECT * FROM tabela Where ...")

End Sub

[Decio]

você tem primeiro que fazer referencia em seu projeto para Microsoft Data Access Object e Microsoft Data Objects Recordsets.No resto é bem parecido com o ASP.

'General
Private Rs As ADODB.Recordset

'Form
Dim Cn As String

    Set Rs = New ADODB.Recordset
'Conexão com SQL
    Cn = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;driver={SQL Server};server=NomeServer;uid=Usuario;pwd=Senha;database=NomeBaco de Dados;"

    ' Abre o recordset com os dados
Rs.Open "SELECT * FROM Campo", Cn, adOpenStatic, adLockReadOnly

[soldadoaraujolima]

Amigão,

olha só o que eu fiz!!

1º fiz referência ao Microsoft Activa X Data Objects 2.0 Library.

Depois

Private rs As ADODB.Recordset
Private con As ADODB.Connection

Private Sub Form_Load()

Set con = New ADODB.Connection
con.Provider = "Microsoft.Jet.OLEDB.3.51"
con.ConnectionString = "site.mdb"
con.Open


Set rs = con.Execute("SELECT * FROM membros")

End Sub

E deu o seguint erro:

Run-Time error '-214746259 (80004005)':

Unrecognized database format 'C:\...\site.mdb'.

Alguém saberia dizer o meu erro??

Obrigado!!

[William Rodrigues]

O caminho do Banco de Dados cara...

Verifique o caminho do seu Banco de Dados...

PS: Salve o seu projeto na mesma pasta que o Banco de Dados que irá facilitar muito

Abraços,

William Rodrigues

[Decio]

Bom , se você esta usando um banco de dados feito no Access 2000, você tem que fazer referencia para Data Objects 2.5 (Win98) ou maior.

A versão 2.0 não reconhece Banco de dados do Access 2000.

Se no seu VB não aparecer esta opção vá no site da MS e faça o download de uma versão mais recentedo Mdac .

[William Rodrigues]

Bem lembrado Décio

Abraços,

William Rodrigues