PureBasic Forums - English

Code: Select all

UseODBCDatabase()
If OpenDatabase(#db,"mydatabse","username","password",#PB_Database_ODBC )
  If DatabaseQuery(#db,"select name, surname from database_table limit 1;")
    
    If NextDatabaseRow(#db)

      GetDatabaseString(#db,1) ; Returns value surname
      GetDatabaseString(#db,1) ; Returns nothing
      
      GetDatabaseString(#db,0) ; Returns value name
      GetDatabaseString(#db,0) ; Returns nothing
      
      GetDatabaseString(#db,1) ; Returns surname
      GetDatabaseString(#db,1) ; Returns nothing
      GetDatabaseString(#db,0) ; Returns value name
      
    EndIf
    
  EndIf
EndIf

Code: Select all

GetDatabaseString(#db,0)
GetDatabaseString(#db,1)
GetDatabaseString(#db,0)

Code: Select all

EnableExplicit

Define.i Getback

Structure Test : row1.i : row2.s : row3.s : row4.i : row5.s : EndStructure
NewList Values.Test()

UsePostgreSQLDatabase()

If OpenDatabase(0, "host=localhost port=5432", "postgres", "postgres")
	
	Debug "Connected to PostgreSQL"
	
	Getback = DatabaseQuery(0, "SELECT id, name, adress, zipcode, town FROM customers ORDER BY zipcode ASC, name ASC;")
	If Not Getback = 0
		While NextDatabaseRow(0)
			AddElement(Values())
			Values()\row1 = GetDatabaseLong(0, 0)
			Values()\row2 = GetDatabaseString(1, 0)
			Values()\row3 = GetDatabaseString(2, 0)
			Values()\row4 = GetDatabaseLong(3, 0)
			Values()\row5 = GetDatabaseString(4, 0)
		Wend
		FinishDatabaseQuery(0)
		
		; Here we could do many operations with the "buffered" values of the database table.
		; Now just parse the contents of Values() and you can use them as often as you want.
		; Of course we could do a "SELECT COUNT(*) FROM customers;" and generate a structured array instead of a linked list...
		
	EndIf
Else
	Debug "Connection error: " + DatabaseError()
EndIf

FreeList(Values())

End