PB connection to the database

SQLCA.DBMS = "ODBC"
SQLCA..AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=firebird;UID=sysdba;PWD=masterkey'"
CONNECT Using sqlca;        

if sqlca.sqlcode <> 0 then  
    messagebox('',sqlca.sqlerrtext)
    return 
else 
    messagebox('','成功')
end if

PB can be connected to multiple databases, can choose, CRUD statements and SQL statements a little different, like search, delete, be careful research yourself