work in the pocket in a path like "\IBFMEM36\teste.db", but not in the card in a path like "\Cartão de Memória\IBFMEM36\teste.db" with the path confirmed by pasta=main.GetFilePath(CurrentPath)
--- In [email protected], Thomas Gruber <computerhu...@...> wrote: > > Hello, > can you use the form ..\filename or .\filename, if the software is > installed on the memory card as well? > Kind regards > Thomas > > Am 01.02.2009 um 02:31AM schrieb margubra: > > > > > 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 -~----------~----~----~----~------~----~------~--~---
