Code: Alles auswählen
UseSQLiteDatabase()
OpenDatabase(0,"Karten.db","","")
OpenWindow(1,0,0,1100,600,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(1,5,5,1090,500,"Kartenname",100,#PB_ListIcon_FullRowSelect)
AddGadgetColumn(1,1,"Kartentyp",80)
AddGadgetColumn(1,2,"Kategorie",100)
AddGadgetColumn(1,3,"Typ",100)
AddGadgetColumn(1,4,"Fähigkeit",100)
AddGadgetColumn(1,5,"Attribut",100)
AddGadgetColumn(1,6,"Level/Rang/Link",100)
AddGadgetColumn(1,7,"ATK",60)
AddGadgetColumn(1,8,"DEF",60)
AddGadgetColumn(1,9,"Pendelskala",100)
AddGadgetColumn(1,10,"Erlaubt",60)
AddGadgetColumn(1,11,"Internetlink",100)
ButtonGadget(2,10,515,100,20,"")
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
Select EventGadget()
Case 2
sql$ = "SELECT * FROM YGO_Kartensammlung;"
If DatabaseQuery(0,sql$)
auswerten = Val(sql$)
For i = 1 To 11
SetGadgetItemData(1,auswerten,i)
Next
EndIf
EndSelect
EndIf
Until event = #PB_Event_CloseWindow
CloseDatabase(0)
End
MfG
Wolfvater Loki