怎么在PB代码中实现附加SQL数据库

zjf1119 2009-09-29 10:11:18

下面的程序是放在应用程序open事件，运行后没有效果。
怎么才能实现自动附加数据库啊？

sqlca.DBMS = "MSS Microsoft SQL Server"
sqlca.Database = "master"
sqlca.ServerName = '.' //服务器地址
sqlca.LogId = "sa"
sqlca.AutoCommit = False
sqlca.DBParm = ""

connect using sqlca;
if sqlca.sqlcode = -1 then
RollBack;
messagebox("错误","Master数据库连接失败，请与系统管理员联系！"+ sqlca.sqlerrtext,stopsign!)
Halt Close
end if

string Ls_MySql
Ls_MySql = "sp_attach_db 'pubs','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs_log.ldf'"

EXECUTE IMMEDIATE :Ls_MySql USING sqlca;
if sqlca.sqlcode <> 0 then
RollBack;
Messagebox("","附加失败")
Return
end if

...全文

61 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhangjf1119 2009-09-29

打赏
举报

sqlca.autocommit = true 

string Ls_MySql

Ls_MySql = "sp_attach_db 'pubs','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs_log.ldf'"



EXECUTE IMMEDIATE :Ls_MySql USING sqlca;

if sqlca.sqlcode <> 0 then 

	RollBack;

	Messagebox("","附加失败")

	Return

end if





sqlca.autocommit = false

zhangjf1119 2009-09-29

打赏
举报

sqlca.autocommit = true
string Ls_MySql
Ls_MySql = "sp_attach_db 'pubs','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs.mdf','c:\Program Files\Microsoft SQL Server\MSSQL\Data\pubs_log.ldf'"

EXECUTE IMMEDIATE :Ls_MySql USING sqlca;
if sqlca.sqlcode <> 0 then
RollBack;
Messagebox("","附加失败")
Return
end if

sqlca.autocommit = false