PureBasic и mySQL

hDB = mysql_init(#Null)
If hDB
  If mysql_real_connect(hDB,"localhost","root","","",3306,"NULL",#Null)
    If mysql_select_db(hDB,"test")
      Test_Error(hDB)
    Else
      mysql_autocommit(hDB,#True)
      Test_Server(hDB)
      Test_Processes(hDB)
      Test_Dbs(hDB)
      Test_Tables(hDB)
      Test_String(hDB)
      Test_CharSet(hDB)
      Test_Query(hDB,"SELECT NOW()")
      Test_Query(hDB,"SELECT NOW() 'DateTime', (1+2*16) 'Expression'")
      Test_Query(hDB,"DROP TABLE people")
      Test_Query(hDB,"CREATE TABLE people (id INT(8) NOT NULL AUTO_INCREMENT, firstname VARCHAR(64), name VARCHAR(64), PRIMARY KEY (id), UNIQUE KEY id (id), UNIQUE KEY name (name))")
      Test_Query(hDB,"INSERT INTO people VALUES('','Jean','Dupont')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Patrice','Durand')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Hйlиne','Dubois')")
      Test_Query(hDB,"INSERT INTO people VALUES('','Lйon','Martin'),('','Nathalie','Morin'),('','Hйlиne','Dujardin')")
      Test_Query(hDB,"UPDATE people SET firstname='Valйrie' WHERE firstname='Hйlиne'")
      Test_Query(hDB,"SELECT firstname,name FROM people ORDER BY name ASC")
      Test_Stmt(hDB)
    EndIf
  Else
    Test_Error(hDB)
  EndIf
  mysql_close(hDB)
EndIf

; survival guide 13_9_110 mysql 
; pb 4.40b1 
; 
UseODBCDatabase() 
; 
Enumeration 
  #cars_firstname 
  #cars_lastname 
  #cars_brand 
  #cars_colour 
EndEnumeration 
; 
If OpenDatabase(1,"mysql","root","root",#PB_Database_ODBC) = 0 
  Debug "cannot open" 
Else 
  ; 
  DatabaseUpdate(1, "DROP TABLE cars" ) 
  DatabaseUpdate(1, "CREATE TABLE cars ( firstname TEXT , lastname TEXT , brand TEXT , colour TEXT ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'jan peter' , 'balkenende' , 'volvo' , 'black' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'michael' , 'schumacher' , 'ferrari' , 'red' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'johnny' , 'fireman' , 'mack' , 'red' ) ;" ) 
  DatabaseUpdate(1, "INSERT INTO cars VALUES ( 'mick' , 'jagger' , 'cadillac' , 'black' ) ;" ) 
  ; 
  DatabaseUpdate(1, "UPDATE cars SET colour = 'red'"+#CRLF$+"WHERE lastname = 'balkenende' ;" ) 
  DatabaseUpdate(1, "UPDATE cars SET colour = 'black'"+#CRLF$+"WHERE lastname = 'schumacher' ;" ) 
  ; 
  DatabaseUpdate(1, "DELETE FROM cars WHERE lastname = 'schumacher' ;" ) 
  ; 
  DatabaseQuery(1, "SELECT * FROM cars WHERE cars.colour = 'black' ORDER BY cars.brand ;" ) 
  While NextDatabaseRow(1) > 0 
    x.s = GetDatabaseString(1,#cars_firstname) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_lastname) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_brand) + " , " 
    x.s = x.s + GetDatabaseString(1,#cars_colour) 
    Debug x.s 
  Wend 
  FinishDatabaseQuery(1) 
  CloseDatabase(1) 
  ; 
EndIf

UsePostgreSQLDatabase()
If OpenDatabase(0, "host=localhost port=3306", "root", "123456")
  Debug "Connected to PostgreSQL"
Else
  Debug "Connection failed: "+DatabaseError()
EndIf

mysql_real_connect(hDB,"localhost","root","","",3306,"NULL",#Null)

mysql_close(hDB)