AJUDA ERRO DE CONEXAO COM ACCESS
so que uma coisa estranha está acontecendo, o programa que foi feito e um gerenciador de lan house, sendo assim 2 programas, o gerenciador e o cliente.
o problema que estou enfrentando é, algumas maquinas o programa simplesmente não encontra o banco de dados, uso try catch para ver onde encontra erro e como resultado tenho erro em qualquer tipo de conexão ao bd access, so que algumas maquinas o programa funciona normal conecta com o bd tudo certo e em algumas ele não funciona.
em conversa com o professor de visual strudio do CT(Curso Tecnico) ele me informo que o erro estaria no net frameworks, porem ja instalei a 3.5 a 4.0 e a mais atual e o erro persiste,
gostaria de pedir ajuda de vcs pra sabe se tem algum driver ou programa adicional que se nao for instalado na maquina essa conexão pode dar erro,
testes que efetuei,
sistema operacional xp com office 2007 enterprise todo atualizado e sem netframeworks programa funciona normal
sistema operacional xp com office 2007 enterprise todo atualizado com netframeworks programa nao funciona
sistema operacional seven com office 207 enterprise sistema pirata com netframeworks programa funciona normal
sistema operacional seven com office 207 enterprise sistema original sem netframeworks programa funciona normal
sistema operacional seven com office 207 enterprise sistema original com netframeworks programa nao funciona
verifiquei outros programas instalados na maquina e em grupo no CT vimos que nenhum influencia direto nesse quesito. ai fico na duvida, qual programa e necessario pra ele funciona, ipotese de formatar sistema operacional pra funciona o programa nao pode ser feito pois são maquinas novas então nao ira fazer mudança
mais todo caso se for necessario realmente formatar as maquinas por favor, resolvam a questão qual programa e necessario pra instala nele pra funciona normal.
Bom o que você pode verificar e se o firewall do Windows está ativo se sim desative !
Citação::
Bom ajudaria se voce postasse o erro, você falou que está usando o try catch correto e não consegui pegar o erro ?
Bom o que você pode verificar e se o firewall do Windows está ativo se sim desative !
verifiquei o firewall do windows tava ativado, mesmo desativando o erro persiste, relacionado ao erro que aparece eu uso o seguinte codigo
Citação:Public Sub alterardb(ByVal campo As String, ByVal altera As String)
Try
Dim cn As New ADODB.Connection
Dim caminho As String
cn = New ADODB.Connection
strconexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]Data Source=[Ô] + Form1.cambd + [Ô];[Ô] & _
[Ô]Jet OLEDB:Database;[Ô]
cn.ConnectionString = strconexao
caminho = [Ô]Select * from usuario where usuario =[ô][Ô] + nome + [Ô][ô][Ô]
cn.Open()
Dim rs As New ADODB.Recordset
rs = New ADODB.Recordset
rs.Open(caminho, cn)
caminho = [Ô]UPDATE usuario SET [Ô] + campo + [Ô] =[ô][Ô] + altera + [Ô][ô] WHERE usuario =[ô][Ô] + nome + [Ô][ô][Ô]
cn.Execute(caminho)
rs.Close()
cn.Close()
Catch ex As Exception
MsgBox([Ô]Erro ao tentar alterar o banco de dados.[Ô])
End Try
End Sub
então quando e chamado no form_load ele ja emite a msgbox
sendo que antes dele e feito a leitura do arquivo texto que contem o camino correto do bd, ja coloquei o caminho pra ser exibido em label e mesmo nas maquinas que apresenta erro o caminho ta correto, o estranho e que algumas maquinas funciona normal e outras não, todas as maquinas que apresenta erro e sempre na conexão com o bd
você criou um instalador do programa? se sim o que usou o package ou inno?
o programa foi desenvolvido em que linguagem vb6 ou vb.net?
em que sistema operacional o programa foi compildao?
Citação::
vamos ha algumas questões:
você criou um instalador do programa? se sim o que usou o package ou inno?
o programa foi desenvolvido em que linguagem vb6 ou vb.net?
em que sistema operacional o programa foi compildao?
nao foi criado um instalador ainda do programa, os teste são feitos com a pasta bin
programa foi desenvolvido em vb6 no visual studio 2008
sistema operaciona windows seven ultimate
vb 2005
vb 2008
vb 2010
vb 2012
tudo isso é .NET
http://www.macoratti.net/vbn_pack.htm
e mesmo assim o erro persiste
Public Sub alterardb(ByVal campo As String, ByVal altera As String)
Try
Dim cn As New ADODB.Connection
Dim caminho As String
cn = New ADODB.Connection
strconexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Persist Security Info=False;[Ô] & _
[Ô]Data Source=[Ô] + Form1.cambd + [Ô];[Ô] & _
[Ô]Jet OLEDB:Database;[Ô]
cn.ConnectionString = strconexao
caminho = [Ô]Select * from usuario where usuario =[ô][Ô] + nome + [Ô][ô][Ô]
cn.Open()
Dim rs As New ADODB.Recordset
rs = New ADODB.Recordset
rs.Open(caminho, cn)
caminho = [Ô]UPDATE usuario SET [Ô] + campo + [Ô] =[ô][Ô] + altera + [Ô][ô] WHERE usuario =[ô][Ô] + nome + [Ô][ô][Ô]
cn.Execute(caminho)
rs.Close()
cn.Close()
Catch ex As Exception
Troque esta linha
[txt-color=#e80000] MsgBox([Ô]Erro ao tentar alterar o banco de dados.[Ô])[/txt-color]
Por essa
[txt-color=#0000f0] MessageBox.Show(ex.Message)[/txt-color]
End Try
End Sub Posta a mensagem que aparecerá para apreciação dos colegas.