VB6 + Access 2003

[kikaoSP 0]

Ola a todos,

 

sei VB e sei SQL,

Criei um Banco de Dados em access 2003 e nomiei-o "eli.mdb"

 

So nao sei e nao tenho a minima idea e de como conectar o vb6 ao "eli.mdb".

 

Obrigado antecipado por qualquer ajuda

 

Eli

[LCS 0]

voce tem que adicionar as referencias no seu projeto

[Marcos A Sanches 0]

Ola voce pode salvar a sua base de dados como banco de dados do acess 97 e acessa-la via dao, basta que você adicione a referencia Microsoft DAO 3.51 e usar este codigo para acessar a base de dados

 

'Area e a sua variavel de Workspace
Dim Area as Workspace
'Banco e a variavel que vai receber o banco de dados
Dim Banco as Database
'Tab e a variavel que vai receber a sua tabela
'Dim Tab as Recordset

'Codigo para acessar a base de dados
Set Area = dbengine.workspaces(0)
Set Banco = Area.Opendatabase("C:\Teste\Banco.mdb")
Set Tab = banco.openrecordset("Tabela")

 

com esse codigo você podera acessar a sua base de dados

abraço

[Claudio Neto 3]

Ou ainda você pode utilizá-lo exatamente como acess 2003 mesmo e se conectar via ADO.

 

Para isso, você precisa fazer referência à biblioteca microsoft activex data control 2.8.

 

Depois use o código abaixo:

 

Na sessão general declaretions:

private cn as adodb.connection

private rs as adodb.recordset

 

private form_load ()

 

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='caminho e nome do seu banco de dados em acess';Persist Security Info=False"

cn.Open

 

Set rs = New ADODB.Recordset

rs.Open "select coluna1, coluna2, colun3 from nome_tabela", cn, adOpenDynamic, adLockOptimistic

 

call PreencheCampos

 

end sub

 

Seu banco está conectado, agora vamos fazer seus dados aparecerem no programa. Coloque dois commands e tres textbox no programa. Um botão vai passar para frente e um para trás as informações da tabela.

 

Private PreencheCampos()

 

text1.text = rs.fields("coluna1")

text2.text = rs.fields("coluna2")

text3.text = rs.fields("coluna3")

 

end sub

 

private cmdProximo_click ()

 

rs.movenext

 

call PreencheCAmpos

 

end sub

 

private cmdAnterior_click ()

 

rs.moveprevious

 

call PreencheCAmpos

 

end sub

 

Faça isso para começar, depois vai postando ai que a gente ajuda.

 

Abraços...

 

Ah, utilize dessa forma, apesar de muita gente ainda utilizar DAO, para você que está aprendendo agora é besteira. ADO é uma ferramenta que veio para substituir o DAO, se quiser mais informações dá uma procurada na net sobre o assunto ou visite o site http://www.macoratti.net/. Vai te ajudar nisso e em muitas mais coisas.

[Marcos A Sanches 0]

Nossa não conhecia esse método de conexão vlw pela dica Claudio

 

 

Abraços

[Claudio Neto 3]

Nossa não conhecia esse método de conexão vlw pela dica Claudio

 

 

Abraços

 

Opa, precisando só chamar. Se vai gostar dele, é mais rápido que DAO.

 

Abraços.