I have an app for Windows and when I showed it to my client, I had a
very disappointed client.
I figured out one problem, and that was the '.rbd' extension was
forgotten when I transferred it.
However, the other problem remained -- I DL-ed them a trial copy to look
at it and the data was G O N E.
The default two tables showed instead of the single table!
My Main Problem is this: I used the following code to try and create a
table and add a record - no dice!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim db As REALDatabase
Dim f As FolderItem
Dim result As Boolean
Dim file As FolderItem
Dim fileIn As TextInputStream
Dim Variable1 As String
Dim r As DatabaseRecord
file=GetFolderItem("prefs.txt")
fileIn=file.OpenAsTextFile
Variable1 = fileIn.readLine
fileIn.Close
file=GetFolderItem(variable1+".rbd")
If file.Exists Then
MsgBox "File Exixts"
Else
MsgBox "FILR NOt PRESENT"
f=New FolderItem(variable1+".rbd")
db=New REALDatabase
db.databaseFile=f
result=db.CreateDatabaseFile
If db.Connect() then
MsgBox "Connected Success!!"
db.SQLExecute("CREATE TABLE table(id integer, topic
varchar, answer varchar")
r=New DatabaseRecord
r.IntegerColumn("id")=1
r.BlobColumn("topic")= "Welcome to DBHelpDesk!"
r.BlobColumn("answer")= "You can now manipulate this data!"
db.InsertRecord("table",r)
else
MsgBox "CONECT FAILED"
End If
End If
Window1.Show
Close
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Can anyone help me out here ??
Signed,
Dumb Blonde ;)
~ AmyE
rubberant006 at atfirstsite dot us
_______________________________________________
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>
|