New topic: 

Create DB on-the-fly?

<http://forums.realsoftware.com/viewtopic.php?t=28851>

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       Jonathon           Post subject: Create DB on-the-fly?Posted: Sun 
Jul 05, 2009 2:02 pm                               
Joined: Fri Sep 30, 2005 5:54 pm
Posts: 1524
Location: Great Falls, Montana  USA              Can I do this?
Code:Dim db as REALSQLDatabase
Dim f as FolderItem
Dim v as Variant

// Create Database Object
db = New REALSQLDatabase

// Change text to variant and set as folder item
v = CodeList.CodeFile.Text
f = v

// Set Database File
db.DatabaseFile = GetFolderItem(f)

// Connect To Database
if db.Connect = false then
  MsgBox"The " +  db + " database file is not installed or could not be found." 
+ endofline + endofline + "Click on 'Ok' to continue."
  App.DisplayDatabaseError()
  Exit
end if

In the debug I am getting an: Parameters are not compatable with this function 
error, also the GetFolderItem is highlighted.     
_________________
Jonathon
Software Devlopement: http://www.medalertpc.com
Surplus Hardware: http://www.semielectronics.com

RB2005 R4 Pro for Windows XP Pro/SP2
RB2009 R2 Studio for Windows XP Pro/SP2 (30 Day Demo)  
                            Top            Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]     
-- 
Over 1500 classes with 29000 functions in one REALbasic plug-in collection. 
The Monkeybread Software Realbasic Plugin v9.3. 
http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

[email protected]

Reply via email to