AJUDA COM ADO
Boa noite galera,
estou com o seguinte problema:
Fiz um exe para cadastro clientes, aqui em casa e nas maquinas com windows XP e office em portugues ele roda que é uma beleza, mas quando coloco o app em maquinas com XP e office em ingles ou no win7 64 em ingles, ele não conecta ao banco de dados, segue abaixo a rotina de conexao:
Em um modulo:
Declare Function GetPrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ReadINI(Section As String, Key As String, FileName As String)
Dim retlen As String
Dim Ret As String
Ret = String$(255, 0)
retlen = GetPrivateProfileString(Section, Key, [Ô][Ô], Ret, Len(Ret), FileName)
Ret = Left$(Ret, retlen)
ReadINI = Ret
End Function
Em outro modulo:
Option Explicit
Public cnSQL As New ADODB.Connection
Public Relaciona As Byte
Public NovoRG As String
Public NovoNascimento As String
Public Novocep As String
Public vCNPJ As String
Sub Main()
Dim Caminho As String
If App.PrevInstance = True Then
Dim Form As Form
For Each Form In Forms
MsgBox [Ô]O Sistema já foi Iniciado[Ô], vbInformation, [Ô][Ô]
Unload Form
Set Form = Nothing
Next Form
End
End If
Caminho = ReadINI([Ô]Caminho[Ô], [Ô]BD[Ô], App.Path & [Ô]\Config.ini[Ô])
On Error GoTo Finalizar
cnSQL.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:database Password=MasterDB[Ô]
frmCadClientes.Show
Exit Sub
Finalizar:
MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô]
End Sub
desde já agradeço.
estou com o seguinte problema:
Fiz um exe para cadastro clientes, aqui em casa e nas maquinas com windows XP e office em portugues ele roda que é uma beleza, mas quando coloco o app em maquinas com XP e office em ingles ou no win7 64 em ingles, ele não conecta ao banco de dados, segue abaixo a rotina de conexao:
Em um modulo:
Declare Function GetPrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ReadINI(Section As String, Key As String, FileName As String)
Dim retlen As String
Dim Ret As String
Ret = String$(255, 0)
retlen = GetPrivateProfileString(Section, Key, [Ô][Ô], Ret, Len(Ret), FileName)
Ret = Left$(Ret, retlen)
ReadINI = Ret
End Function
Em outro modulo:
Option Explicit
Public cnSQL As New ADODB.Connection
Public Relaciona As Byte
Public NovoRG As String
Public NovoNascimento As String
Public Novocep As String
Public vCNPJ As String
Sub Main()
Dim Caminho As String
If App.PrevInstance = True Then
Dim Form As Form
For Each Form In Forms
MsgBox [Ô]O Sistema já foi Iniciado[Ô], vbInformation, [Ô][Ô]
Unload Form
Set Form = Nothing
Next Form
End
End If
Caminho = ReadINI([Ô]Caminho[Ô], [Ô]BD[Ô], App.Path & [Ô]\Config.ini[Ô])
On Error GoTo Finalizar
cnSQL.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:database Password=MasterDB[Ô]
frmCadClientes.Show
Exit Sub
Finalizar:
MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô]
End Sub
desde já agradeço.
Qual é a descrição do erro?
Olá,
gera a msgbox, ele chega a abrir o arquivo temporário (acho q é o recordset) do mdb.
Finalizar:
MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô]
gera a msgbox, ele chega a abrir o arquivo temporário (acho q é o recordset) do mdb.
Finalizar:
MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô]
Troque...
[txt-color=#e80000]MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô][/txt-color]
por...
[txt-color=#0000f0]MsgBox err.Description[/txt-color]
...e poste a descrição do erro.
[txt-color=#e80000]MsgBox [Ô]Erro Conectando-se ao Banco de Dados. [Ô] & vbCrLf & [Ô]Verifique o caminho do Banco de dados no arquivo : Config.ini[Ô] & vbCrLf & [Ô]Caminho padrão : C:\Procuração\BD.mdb[Ô], vbCritical, [Ô]Erro Banco de Dados[Ô][/txt-color]
por...
[txt-color=#0000f0]MsgBox err.Description[/txt-color]
...e poste a descrição do erro.
Ok,
em seguida posto a descriçao
em seguida posto a descriçao
Testei aqui..
[Ô]Falha na autenticaçao[Ô]
[Ô]Falha na autenticaçao[Ô]
Valeu TECLA, por mais que você tenha desistido de me ajudar, graças a sua colaboração enxerguei o meu erro, vou pontuar-te.
[tópico encerrado]
[tópico encerrado]
Tópico encerrado , respostas não são mais permitidas