New topic: 

standalone ODBCapp works on Mac, not WinXP.

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

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       Barnett           Post subject: standalone ODBCapp works on Mac, 
not WinXP.Posted: Sun Dec 06, 2009 12:23 pm                        
Joined: Sun Dec 06, 2009 11:27 am
Posts: 1              Hi,

I'm a 'hobbyist', doing the RB trial (MacOS version), trying make a test front 
end for a MSAccess.mdb - for use on Mac and WinXP.

It runs in the IDE and the compiled standalone app works on the mac. But the 
Windows version crashes when I try to connect to the database.

The .mdb file is on the mac and I downloaded the trial Actualtechnologies ODBC 
driver and iODBC manager. I setup a system DSN for the .mdb file.

On the WinXP machine I setup a system DSN using the driver that came with 
Windows and selected the .mdb file on the Mac (\\Mac\Folder\data.mdb).

I compiled for Windows and copied the My Application folder (with the MyApp 
Libs folder and the exe) to the WinXP machine. When I run it there, the app 
starts and quits fine as long as I don't invoke the database routine (which I 
copied from the RB documentation; also pasted below).

Thanks in advance for any advice!
Barnett

  Dim i as variant
  Dim V as String
  dim  dbTest as  odbcDatabase
  dim rstSchema as RecordSet
  
  dbTest = new ODBCDatabase
  dbTest.DataSource ="NewTapes"
  if dbTest.Connect then
  txtTest.Text = "Good!"
  Else
  txtTest.Text = "Fail."
  end if
  
  rstSchema = dbTest.FieldSchema("Bands")
  
  Listbox1.DeleteAllRows
  Listbox1.Columncount = rstSchema.FieldCount
  Listbox1.AddRow rstSchema.IdxField(1).Name
  Listbox1.CellBold(Listbox1.LastIndex, 0) = True
  For i = 2 to rstSchema.FieldCount
  Listbox1.Cell(Listbox1.lastIndex, i - 1) = rstSchema.IdxField(i).Name
  Listbox1.CellBold(Listbox1.LastIndex, i - 1) = True
  Next
  
  While Not rstSchema.eof
  v = rstSchema.IdxField(1).StringValue  //display first column
  Listbox1.AddRow v
  For i = 2 to rstSchema.fieldcount
  Listbox1.Cell(Listbox1.LastIndex, i - 1) = rstSchema.IdxField(i).StringValue
  next
  rstSchema.MoveNext
  Wend
  
  dbTest.Close   
                            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