BlitzData 1.1 R7

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Wayne

Graphics 800,600,32,2
SetBuffer BackBuffer()
BD_SetDebugMode(1)

t% = BD_OpenDatabase("Driver=Client Access ODBC Driver (32-bit);system=PHOENIX;DefaultLibraries=,*usrlibl;ForceTranslation=0;ExtendedDynamic=0;Naming=1;Prompt=2","","","",4)

If t = -1 Then
  Text 20,20,"Could not open database."
  Flip
  key = WaitKey()
  End
Else
  Text 20,20,"Opened TEST database Successfully."
  Flip
  ;While Not GetKey():Wend
EndIf

; Get Record Count
t = BD_SQLQuery("select count(*) COUNT from pmp")
If t = 0 Then 
  count=BD_GetColumn("COUNT")
  Text 20,60, "Record Count=" + count 
  Flip
  ;WaitKey()
EndIf

BD_CloseQuery()

t = BD_SQLQuery("SELECT * FROM PMP")
If t = 0 Then 
  Text 20,80, "Opened recordset successfully"
  Text 20,100, "Record Count=" + BD_RecordCount()
  Flip
  ;WaitKey()
EndIf

For t = 1 To 20
  Text 20, 100 + (t * 20), BD_GetColumn("PMPART") + ", " + BD_GetColumn("PMDESC")
  BD_NextRecord()
  Flip
Next

  WaitKey()

BD_CloseQuery()
BD_CloseDatabase()
While Not GetKey():Wend