401
社区成员
发帖
与我相关
我的任务
分享在pb中如何用代码的形式来创建access或sqlanywhere数据库。
在pb中如何用代码的形式来创建access或sqlanywhere数据库。
...全文
请发表友善的回复…
发表回复
Oldman 2002-03-20
- 打赏
- 举报
这个方法也许能行
string s_sql
SQLCA.AUTOCOMMIT = TRUE
s_sql="CREATE database dbname log to XXX.log"
execute immediate :s_sql using sqlca;
if sqlca.sqlcode= -1 then
ROLLBACK USING SQLCA;
messagebox("错误","新建立失败!"+ SQLCA.SQLERRTEXT)
SQLCA.AUTOCOMMIT = FALSE
return -1
else
commit USING SQLCA;
messagebox("返回信息","新建成功!!")
end if
SQLCA.AUTOCOMMIT = FALSE
string s_sql
SQLCA.AUTOCOMMIT = TRUE
s_sql="CREATE database dbname log to XXX.log"
execute immediate :s_sql using sqlca;
if sqlca.sqlcode= -1 then
ROLLBACK USING SQLCA;
messagebox("错误","新建立失败!"+ SQLCA.SQLERRTEXT)
SQLCA.AUTOCOMMIT = FALSE
return -1
else
commit USING SQLCA;
messagebox("返回信息","新建成功!!")
end if
SQLCA.AUTOCOMMIT = FALSE
