the sub work fine if the "pasta" (path) is "\IBFMEM36\teste.db", but
if pasta="\Cartão de Memória\IBFMEM36\teste.db", the software don't
find the database.
The path is from main.GetFilePath
I think that the problem is the accentuated caracters "ã" and "ó", but
I can't change.
Any alternative to find the database in the same path than the software?
Sub openDatabase
Dim pasta
pasta=main.GetFilePath(CurrentPath)
pasta=pasta+"\teste.db"
MsgBox pasta
'pasta="\Cartão de Memória\IBFMEM36\teste.db"
MsgBox pasta
If db.Open(pasta) Then
db.AutoType = True
db.TypeInfoLevel = 4
Else
MsgBox "Não Foi aberto o Banco de Dados: " & db.lastError
End If
On Error resume next
End Sub
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"nsb-ce" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/nsb-ce?hl=en
-~----------~----~----~----~------~----~------~--~---
