CODIGO PARA BANCO DE DADOS..
Oi pessoal,
Alguém pode me ajudar a criar uma conexão com o banco de dados do access?
Obrigado...
Alguém pode me ajudar a criar uma conexão com o banco de dados do access?
Obrigado...
João uma forma bem simples é vc colocar um controle DATA e alterar as propriedades dele tais como :
DATABASENAME - caminho do BD
CONECT - tipo do BD (access/dbase etc)
RECORDSOURCE - tabela q vc vai manipular
DATABASENAME - caminho do BD
CONECT - tipo do BD (access/dbase etc)
RECORDSOURCE - tabela q vc vai manipular
Joao
Crie um arquivo .udl e use o código abaixo para fazer a conexão
Set cnBd = New ADODB.Connection
cnBd.Open "file name= caminho & nome do bd;"
Crie um arquivo .udl e use o código abaixo para fazer a conexão
Set cnBd = New ADODB.Connection
cnBd.Open "file name= caminho & nome do bd;"
Em VB 5.0
Dim Banco as DataBase
Dim Registro as RecordSet
Set Banco = Workspaces(0).OpenDatabase(app.path & "\Dados.mdb") 'Caminho do BD
Set Registro = Banco.OpenRecordset("tbClientes")
no form load chame a funcao
openbd
dai
declare estas variaveis
Dim cnconexao As ADODB.Connection
Dim tabela As ADODB.Recordset
Dim sSql As String
Dim sconexao As String
Public Function opendb()
opendb = True
sconexao = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bd1.mdb"
Set cnconexao = New ADODB.Connection
cnconexao.Open sconexao
Set tabela = New ADODB.Recordset
sSql = "Select * from Alunos order by numerodoaluno"
tabela.Open sSql, cnconexao, adOpenDynamic, adLockOptimistic
End Function
caso nao consiga entre em contato
openbd
dai
declare estas variaveis
Dim cnconexao As ADODB.Connection
Dim tabela As ADODB.Recordset
Dim sSql As String
Dim sconexao As String
Public Function opendb()
opendb = True
sconexao = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bd1.mdb"
Set cnconexao = New ADODB.Connection
cnconexao.Open sconexao
Set tabela = New ADODB.Recordset
sSql = "Select * from Alunos order by numerodoaluno"
tabela.Open sSql, cnconexao, adOpenDynamic, adLockOptimistic
End Function
caso nao consiga entre em contato
Nossa o JOAO19 deve estar doidinho agora, com tantas possibilidades para se conectar com o banco.
De uma olhada nos artigos Programação de Bancos de Dados. E também faz um filtro no forum sobre o assunto que possui bastantes topicos sobre. Assim vc vai ver as vantagens e desvantagens de cada forma de se comunicar.
Adianto que o ADO seria a tecnologia mais atual para o VB 6 para conectar com o banco. E vc pode fazer isso usando o componente Data Control ( acho pior )ou fazer sem usar componente que seria escrevendo o codigo todo ( Acho muito melhor ).
Da uma olhada nesse topico
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=58594&varSubPagina=1&varFiltro=Nulo
De uma olhada nos artigos Programação de Bancos de Dados. E também faz um filtro no forum sobre o assunto que possui bastantes topicos sobre. Assim vc vai ver as vantagens e desvantagens de cada forma de se comunicar.
Adianto que o ADO seria a tecnologia mais atual para o VB 6 para conectar com o banco. E vc pode fazer isso usando o componente Data Control ( acho pior )ou fazer sem usar componente que seria escrevendo o codigo todo ( Acho muito melhor ).
Da uma olhada nesse topico
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=58594&varSubPagina=1&varFiltro=Nulo
Bom Joao19 tenho um exemplo de abrir banco de dados - DAO e ADO
Caso você tenha definido uma senha para seu banco de dados, abra-o desta maneira:
DAO
Sub DAOAbrirBDsenha()
Dim DB As DAO.Database
'O parà ¢metro pwd (q é a senha - 4o parà ¢metro) é case
'sensitive (diferencia A de a) e - ao contrário do que
'diz a documentação do VB - os parà ¢metros exclusive e
'read-only (2o e 3o parà ¢metros) devem ser falsos.
Set DB DBEngine.OpenDatabase(App.Path & "\SeuBD.MDB", _
False, False, ";pwd=senha")
DB.Close
End Sub
ADO
Sub ADOAbrirBDsenha()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path &"\SeuBD.MDB;Jet "
espero ter ajudado...
Caso você tenha definido uma senha para seu banco de dados, abra-o desta maneira:
DAO
Sub DAOAbrirBDsenha()
Dim DB As DAO.Database
'O parà ¢metro pwd (q é a senha - 4o parà ¢metro) é case
'sensitive (diferencia A de a) e - ao contrário do que
'diz a documentação do VB - os parà ¢metros exclusive e
'read-only (2o e 3o parà ¢metros) devem ser falsos.
Set DB DBEngine.OpenDatabase(App.Path & "\SeuBD.MDB", _
False, False, ";pwd=senha")
DB.Close
End Sub
ADO
Sub ADOAbrirBDsenha()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path &"\SeuBD.MDB;Jet "
espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas