Realbasic
Förord
I denna artikel kommer jag vissa hur man på ett enkelt sätt gör ett program som ansluter till Realbasic egen Databas. Samt hur man skapar Linux och Mac versioner av sitt program. Jag kommer att utgå från Windows versionen av programmet. Realbasic är ett kross-plattforms oberoende programmerings verktyg. Det liknar mycket Visual Basic i sitt utförande och även syntax mässigt. Vore kul om någon kunde testa detta på Mac.Har själv inte tillgång till en Mac att testa på.Innehåll
»»
»
»
»
»
»
»
»
Relaterade artiklar
Ladda ner Realbasic
Du hittar Realbasic på Litte färdiga program gjorda i realbasic
Realbasics uppbyggnad
När vi startar programmet får vi upp ett tomt formulär. Sen har vi även projekt fönster som talar om vilka komponenter som ingår i projektet.Till vänster har vi de komponenter vi kan lägga till.
Något som alltid är bra och ha tillhands är ju Language Reference som man hittar i Hjälp-menyn.
Skapa layouten
Vi börjar med att lägga ut en PushButtom någon stans på formuläret.Sen lägger vi dit en EditField(TextBox).
Detta är det vi behöver för detta exempel.
Skapa Databas
Vi kommer att använda Realbasics egna Databas typ detta för att det skall kunna funka på både Windows. Linux och Mac.I File meny hittar du ett alternativ som heter Add Data Source.
Där hittar du alternativet New REAL Databas.
Döp filen till testApp.rbd . Databas filerna bör sluta på .rbd vilket måste skrivas med vid döpandet av en databaser.
Nu skall du få du upp databasen i projekt fönstret. Dubbelklicka på den så ser du Movies och Actors.
Koden
Som ni säker kommer se liknar detta vb mycket.Vi dubbelklickar på vår PushButtom. Då får vi upp Window1 Source Code. Det är här vi skriver våran kod.
Som du ser så hamnar vi i Sub Action. Det är det som körs när man klickar på knappen.
Denna kod skall alltså ligga i Sub Action för PushButtom. Observer att jag ej lagt till Sub Action() i koden nedan. Sub Action() skrivs automatisk och kan ej suddas bort. Det är bara att kopiera och klistra in.
Dim dbFile as FolderItem 'FolderItem är en referenc till en fil
Dim db as REALdatabase 'Databasmotorn
Dim rs As RecordSet 'Skapar ett Recorssett
db=New REALdatabase
dbFile = GetFolderItem("testApp.rbd") 'hämtar databas filen från den mapen där program ligger i
if dbFile.Exists then 'kollar om filen finns
db.DatabaseFile=dbFile 'kopplar databas filen till datasmotorn
if db.Connect() then 'Kollar om vi kunde ansluta till databasfilen
rs = db.SQLSelect("select * from Movies") 'Kör SQL-satsen
EditField1.Text = rs.IdxField(2).Value 'Lägger till värdet från vårat recorsett till EditField1
else ' Om vi inte kan ansluta till datakällan så...
Beep
MsgBox "The database couldn't be opened." 'Visa ett medelande att det ej gick
end if
else
MsgBox "File no Exists" 'Databas filen kunde inte hittas
end if
Test köra sitt program
Du test kör dit program på samma set som vb 6 nämligen genom att trycka F5 på tangentbordet.Om du nu tycker på PushButtom så skall det stå Star Wars i EditField1(TextBoxen).
Kompilera programmet(körbart)
I File menyn hittar du Build Application.Då kompileras programmet och du får upp mappen där ditt program ligger. I detta fallet heter det My Application.exe.
Skapa Linux och Mac versioner
I File menyn hittar du build setting. Här kan du bestämma vila operativsystem du vill kompilera till.
Fel som kan uppstå
Om du får upp File no Exists:- Kolla så att du har skrivet rätt filnamn.
- Kolla så att filen ligger i samma mapp som dit projekt.
Om du får upp The database couldn't be opened:
Detta beror antagligen på att du inte har databas plug-in. Vet ej om Realbasic lagt in detta då jag själv lagt till egna före denna artikel skrevs. Kommentera gärna om du får fel på detta så skall jag kolla upp det.
Debugern hänger sig:
Om debugen hänger sig kan du ej test köra programet.
- Kolla om du har filen DebugMy Application.exe i den mappen som projektet ligger om så är fallet tryck CTRL+ALT+DEL så du får upp Aktivitetshanteraren och Avsluta DebugMy Application. Ta bort filen DebugMy Application.exe.
0 Kommentarer