CONEXÃO DE BANCO DE DADOS MICROSOFT DAO 3.6 OBJ

LUIZCARLOSF688 03/06/2015 22:45:31
#447382

Pessoal esse aqui e um projeto que esta sendo desenvolvido no visual basic 6.0 com banco de dados acess. Mas estou tendo problemas com a conexão.


[ô]OBS= Estas linhas criam as variáveis das tabelas e do banco de dados que foi construido no acess.

Public Dados As Database
Public Clientes As Recordset
Public Fornecedores As Recordset
Public Produtos As Recordset
Public Funcionários As Recordset
Public BuscaFornecedor As String
Public BuscaProdutos As String
Public BuscaClientes As String


[ô]Obs= Este procedimento abre o banco de dados e as tabelas.


Public Sub AbreArquivo()
Set Dados = OpenDatabase(App.Path & [Ô]\Dados.mdb[Ô])
Set Clientes = Dados.OpenRecordset([Ô]Clientes[Ô], dbOpenTable)
Set Fornecedores = Dados.OpenRecordset([Ô]Fornecedores[Ô], dbOpenTable)
Set Produtos = Dados.OpenRecordset([Ô]Produtos[Ô], dbOpenTable)

End Sub


[ô]Obs= Este Procedimento fecha todas as tabelas e arquivos.

Public Sub FechaArquivo()
Clientes.Close
Funcionários.Close
Fornecedores.Close
Produtos.Close
bancodedados.Close
End Sub


[ô]Obs= [ô]Este procedimento será utilizado para imprimir o cabeçalho,quando for solicitada a impressão.


Function Cabecalho(Titulo As String)
Printer.Print
Printer.Print
Printer.FontName = [Ô]arial[Ô]
Printer.FontSize = 24
Printer.Print [Ô]Sistema Integrado de Controle de Estoque[Ô]
Printer.FontSize = 14
Printer.Print Titulo; Tab(70); Date & [Ô]-[Ô] & Time
Printer.Print String(80, [Ô]-[Ô])
End Function


Private Sub mdiform_load()
AbreArquivo
End Sub

Private Sub mdiform_unload(cancel As Integer)
FechaArquivo
End Sub