在程序中完成建数据库过程

[antoversky]

我想简单点，这样写，可是虽然没有报错，但并不响应，为什么
transaction trans_createdatabase
trans_createdatabase=create transaction
trans_createdatabase.DBMS = "MSS Microsoft SQL Server 6.x"
trans_createdatabase.Database = "master"
trans_createdatabase.ServerName = ls_servername
trans_createdatabase.LogId = "sa"
trans_createdatabase.AutoCommit = False
trans_createdatabase.DBParm = ""
connect using trans_createdatabase;
if trans_createdatabase.sqlcode<0 then
messagebox("提示","数据库未连接上"+sqlca.sqlerrtext)
return -1
end if
SetPointer(HourGlass!)
string ls_sql
ls_sql="IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'EEDUCATION') DROP DATABASE [EEDUCATION]"
execute immediate :ls_sql using trans_createdatabase;
if trans_createdatabase.sqlcode<0 then
messagebox("提示","数据库生成时出错，"+sqlca.sqlerrtext)
rollback;
return -1
end if
commit;
ls_sql="create database [eeducation]"
execute immediate :ls_sql using trans_createdatabase;
if trans_createdatabase.sqlcode<0 then
messagebox("提示","数据库生成时出错，"+sqlca.sqlerrtext)
rollback;
return -1
end if
commit;

[mittee]

if trans_createdatabase.sqlcode<0 then
messagebox("提示","数据库未连接上"+sqlca.sqlerrtext)
return -1
end if
这里能通过么

[liu08]

跟踪一下程序，看看！

[netxzs]

设断点跟踪调试以下程序或用MESSAGEBOX查看输出结果

[edisonwong]

trans_createdatabase.AutoCommit = TRUE

[dahaidao]

这样子是可以的，我这里的情形差不多。看一下结果就知道了。