ERRO DE ENDERECO DO BDADOS
Prezados amigos experts, tenho uma duvida cruel...se puderem me judar, ficarei grato como das outras vezes.
To fazendo um projetinho VB-6.0 aqui, controle de clientes, crediarios, entrada e saida de dinheiro.
Ta rodando legal!
Entao fiz o executavel! Levei pra maquina onde deveria usar!
Pronto! Me aparece o erro de caminho, de endereço! Entao o projeto nao roda! ( run time error - 3044)
A pergunta é a seguinte:
O executavel nao grava o BANCO DE DADOS? Tenho que levar esse banco e salvar na maquina separadamente?
Senao, como faço pra mudar esse endereço ( caminho) ?
Em tempo: Estou usando o Acces 2003.
DESDE JA FICO GRATO PELA AJUDA !
Abraçao a todos!
To fazendo um projetinho VB-6.0 aqui, controle de clientes, crediarios, entrada e saida de dinheiro.
Ta rodando legal!
Entao fiz o executavel! Levei pra maquina onde deveria usar!
Pronto! Me aparece o erro de caminho, de endereço! Entao o projeto nao roda! ( run time error - 3044)
A pergunta é a seguinte:
O executavel nao grava o BANCO DE DADOS? Tenho que levar esse banco e salvar na maquina separadamente?
Senao, como faço pra mudar esse endereço ( caminho) ?
Em tempo: Estou usando o Acces 2003.
DESDE JA FICO GRATO PELA AJUDA !
Abraçao a todos!
Qual o método de acesso aos dados você utilizou?
Usou controle vinculado?
Poste os detalhes no tópico.
Usou controle vinculado?
Poste os detalhes no tópico.
Ola caro amigo, sou novato, mas pelo que entendo nao estou usando controles vinculados nao!
as conexoes sao feitas da seguinte forma, se e o q entendo!
Dim BDDADOS As Database
Dim TBCLIENTES As Recordset
Dim TBCOMPRAPRAZO As Recordset
Dim TBCOMPRAVISTA As Recordset
Private Sub Form_Load()
Set BDDADOS = OpenDatabase([Ô]C:\documents and settings\professor\desktop\LOJA .mdb[Ô])
Set TBCLIENTES = BDDADOS.OpenRecordset([Ô]CLIENTES[Ô])
Set TBCOMPRAVISTA = BDDADOS.OpenRecordset([Ô]COMPRAVISTA[Ô])
Set TBCOMPRAPRAZO = BDDADOS.OpenRecordset([Ô]COMPRAPRAZO[Ô])
End sub
as conexoes sao feitas da seguinte forma, se e o q entendo!
Dim BDDADOS As Database
Dim TBCLIENTES As Recordset
Dim TBCOMPRAPRAZO As Recordset
Dim TBCOMPRAVISTA As Recordset
Private Sub Form_Load()
Set BDDADOS = OpenDatabase([Ô]C:\documents and settings\professor\desktop\LOJA .mdb[Ô])
Set TBCLIENTES = BDDADOS.OpenRecordset([Ô]CLIENTES[Ô])
Set TBCOMPRAVISTA = BDDADOS.OpenRecordset([Ô]COMPRAVISTA[Ô])
Set TBCOMPRAPRAZO = BDDADOS.OpenRecordset([Ô]COMPRAPRAZO[Ô])
End sub
OK, entendi.
1. Altere o seu código conforme as linhas abaixo:
2. Copie o banco de dados para a pasta em que se encontra o .EXE.
3. Teste na sua máquina, e em seguida teste na máquina cliente.
Veja se resolve o problema.
1. Altere o seu código conforme as linhas abaixo:
Dim BDDADOS As Database
Dim TBCLIENTES As Recordset
Dim TBCOMPRAPRAZO As Recordset
Dim TBCOMPRAVISTA As Recordset
Private Sub Form_Load()
Set BDDADOS = OpenDatabase(App.Path & [Ô]\LOJA .mdb[Ô])
Set TBCLIENTES = BDDADOS.OpenRecordset([Ô]CLIENTES[Ô])
Set TBCOMPRAVISTA = BDDADOS.OpenRecordset([Ô]COMPRAVISTA[Ô])
Set TBCOMPRAPRAZO = BDDADOS.OpenRecordset([Ô]COMPRAPRAZO[Ô])
End Sub2. Copie o banco de dados para a pasta em que se encontra o .EXE.
3. Teste na sua máquina, e em seguida teste na máquina cliente.
Veja se resolve o problema.
caro amigo, so funcionou copiando toda a pasta ( loja.exe e bddados Loja ) para a máquina cliente!
Só o executavel nao funciona!
Só o executavel nao funciona!
Citação:Citação: ROHEN
caro amigo, so funcionou copiando toda a pasta ( loja.exe e bddados Loja ) para a máquina cliente!
Só o executavel nao funciona!
é óbvio, o executável só contempla a APLICAÇÃO (os códigos escritos no Visual Basic), e o MDB os dados.
Se deseja criar uma aplicação que funcione em AMBIENTE DE REDE (ou seja, várias máquinas acessando um ÚNICO banco de dados), terás que armazenar o arquivo em uma pasta COMPARTILHADA e que esteja acessÃvel na rede.
Obrigado!
Tópico encerrado , respostas não são mais permitidas