I think this is a good starting point:
Code:
EnableExplicit
Define DB.i, SQL$
UsePostgreSQLDatabase()
DB = OpenDatabase(#PB_Any, "host=localhost dbname=Test port=5432 connect_timeout=5", "User", "Password")
If DB
Debug "Database open"
SQL$ = "SELECT * FROM test"
If DatabaseQuery(DB, SQL$)
While NextDatabaseRow(DB)
Debug GetDatabaseString(DB, 0)
Wend
FinishDatabaseQuery(DB)
Else
Debug SQL$
Debug DatabaseError()
EndIf
SQL$ = "INSERT INTO test (col1, col2) VALUES ('1', '2')"
If Not DatabaseUpdate(DB, SQL$)
Debug SQL$
Debug DatabaseError()
EndIf
CloseDatabase(DB)
Else
Debug DatabaseError()
EndIf
For everthing which doesn't return something, you should use DatabaseUpdate()
If something returns something, use DatabaseQuery()
If you use DatabseQuery() don't forget FinishDatabaseQuery()
host can also be an ip address like
Code:
DB = OpenDatabase(#PB_Any, "host=127.0.0.1 dbname=Test port=5432", "User", "Password")