[Resolvido] Como fazer um banco de dados usando access?

[Dyego Severo 0]

Queria dar as boas vindas a todos.... sou iniciante no fórum e peço a colaboração de todos (ou de qualquer um) rsssssssss

 

;)

 

Como faço para criar um banco de dados access?

Preciso obrigatóriamente ter o Office instalado?

 

Gostaria apenas de utilizar um arquivo estático como banco de dados...

 

Pelo que tenho conhecimento somente .mdb que pertence ao access serve como bando de dados.

 

Existem outros? Quais o mais padrão?

 

 

 

Obrigado*

 

 

Dyego Severo

[Claudio Neto 3]

Olá Dyego, primeiramente bem vindo ao fórum.

 

Você não precisa ter o office instalado em seu computador para realizar uma conexão com banco de dados, porém, nunca construi um banco de dados novo em uma máquina sem office.

 

Tentarei simular isso e te digo o resultado e como deve fazer.

 

E para você, para o que precisa, acredito que o melhor a se utilizar é o Access mesmo. Existem outros programas para banco de dados, mas trabalham diferente, precisa de programas instalados na máquina.

 

Volto a postar quando tiver um exemplo a te dar.

 

Abraço.

[Claudio Neto 3]

Pronto, consegui achar sua solução.

 

Faça o seguinte, construa um programinha com dois textbox e dois botões. Faça referência à biblioteca Microsoft Activex Data Object 2.8

 

Coloque o código abaixo:

 

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Command1_Click()

Dim bancodados

Set bancodados = CreateObject("ADOX.Catalog")
bancodados.Create "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & App.Path & "\prova.mdb"
Set bancodados = Nothing

Set cn = New ADODB.Connection
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & App.Path & "\prova.mdb"
cn.Open

cn.Execute "create table teste (cod int identity, nome varchar(30))"

Set rs = New ADODB.Recordset
rs.Open "select * from teste", cn, adOpenDynamic, adLockOptimistic

rs.AddNew
rs.Fields("nome") = "Mesclano"
rs.Update

rs.AddNew
rs.Fields("nome") = "Beltrano"
rs.Update

rs.AddNew
rs.Fields("nome") = "Fulano"
rs.Update

rs.AddNew
rs.Fields("nome") = "Ciclano"
rs.Update

End Sub

Private Sub Command2_Click()

rs.MoveNext
If rs.EOF Then rs.MoveFirst

Text1.Text = rs("cod")
Text2.Text = rs("nome")

End Sub

Teste, veja o resultado e diga se é o que precisa.

 

Abraço.

[renatoalexrocha 0]

Olá diego http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif ,

 

sobre trabalhar com vb e access, tenho uma apostila muito boa, aprendi muito com ela, posta seu e-mail que te mando uma cópia.

 

esta apostila ensina passo a passo como utilizar os principais componentes do vb e integrar com o access.

 

Renatoalexrocha http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif