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语句有点区别,像查询、删除,可以自己细细研究

Logo

DAMO开发者矩阵,由阿里巴巴达摩院和中国互联网协会联合发起,致力于探讨最前沿的技术趋势与应用成果,搭建高质量的交流与分享平台,推动技术创新与产业应用链接,围绕“人工智能与新型计算”构建开放共享的开发者生态。

更多推荐