Greg O'Lone, President
Stretched Out Software Inc
(866)SOS-WEBS
(904)296-7800
(904)296-7005 Fax
http://www.stretchedout.com
On Feb 28, 2006, at 1:04 pm, Peter E. Barck wrote:
f = Volume(x).Child(your db folder on the server).child
("backend.rsd")
I tried this... I've edited my code:
-------------------------------------------------------------------
Function connectdb() As boolean
dim f as FolderItem
dim tf as Boolean
db = new REALSQLDatabase
f = GetFolderItem("").child("backend.rsd")
#if TargetMachO then
dim volname,pathsplit() as string
dim i as integer
pathsplit = split(f.ShellPath,"/")
if pathsplit(1) = "Volumes" then
volname = pathsplit(2)
for i = 0 to VolumeCount-1
if volume(i).name = volname then exit
next i
f = volume(i)
for i = 3 to ubound(pathsplit)
f = f.child(pathsplit(i))
next i
end if
#endif
if f<>nil then
if f.Exists then
db.DatabaseFile = f
tf = db.Connect()
return tf 'Doing it this way so we can look at the error code
else
f = GetOpenFolderItem("database")
if f<>nil then
db.DatabaseFile = f
return db.Connect()
else
db.DatabaseFile = f
return db.CreateDatabaseFile()
end if
end if
end if
return false
End Function
-------------------------------------------------------------------
but the folderitem is the same at the end of the conditional area as
it was before and I still get the error. I wonder if this is a 10.4
issue.....I'll try to get our 10.3 machine to try it out...
Greg
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
