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可以连接多种数据库,可以自己选择,增删改查语句和SQL语句有点区别,像查询、删除,可以自己细细研究
——现在的努力,只为小时候吹过的牛逼! ——