realbasic-nug.it
[Top] [All Lists]
<prev [Date] next>
[Advanced]
 <prev [Thread] next>

Re: Database e Winzozzo

from Luca Infante [Bookmark Link]
To: REALbasic NUG Italian <realbasic-nug dot it at lists dot realsoftware dot com>
Subject: Re: Database e Winzozzo
From: Luca Infante <l dot infante at poc dot it>
Date: Tue, 15 Nov 2005 20:30:20 +0100
Delivered-to: realbasic-nug dot it at lists dot realsoftware dot com
References: <E55EE83B-F4E1-4F8C-9656-7049A4E810A9 at tin dot it> <33206AA1-FE9F-4BAA-BECF-87E18AC55705 at sqlabs dot net> <70B7DCF6-93CB-4D83-A3A3-FCFA3F945D8F at tin dot it> <DE9BF990-CF18-425D-A890-792A3ECBB61A at sqlabs dot net> <f1bbb2782e6e61c51b9b9a8319b2a699 at email dot it> <171B016F-A652-4BD1-A7AA-1280D2AA6B6F at sqlabs dot net> <a06230900bf9fcf36dbea at [192 dot 168 dot 2 dot 2]> <89502287-E597-4D7E-899B-D0CE95B024C1 at sqlabs dot net> <a06230901bf9fd29ba779 at [192 dot 168 dot 2 dot 2]> <842F05F6-A5DB-4E26-B043-ABE375D6DB3F at sqlabs dot net> <a06230902bf9fdcda0e4f at [192 dot 168 dot 2 dot 2]> <D80226D1-26EB-4A98-BDB5-C96BEE1D4A69 at sqlabs dot net> 
Risolto con questo  codice:

  Dim dbFile as FolderItem
  Dim db as REALSQLdatabase
  db= New REALSQLdatabase
  dbFile = GetFolderItem("DBConti.rsd")
  db.DatabaseFile=dbFile
  If db.Connect() then
    ControlDBConti.Database=db
    ControlDBConti.TableName="Conti"

ControlDBConti è il datacontrol.

  else
    Beep
    MsgBox "The database couldn't be opened."
  end if

Ciao e Grazie Luca
[More with this subject...]
<Prev in Thread] Current Thread [Next in Thread>
Previous by Date:  Re: Database e Winzozzo, Marco Bambini
Next by Date:  Re: Database e Winzozzo, Lucio Liberi
Previous by Thread:  Re: Database e Winzozzo, Marco Bambini
Next by Thread:  Re: Database e Winzozzo, Lucio Liberi
Indexes:  [Date] [Thread] [Top] [All Lists]