创建数据库表失败解决了马上揭贴

lsypenghong 2006-09-07 02:28:29

ls_sql="CREATE TABLE [dbo].[QY_Logon] (&
[LogID] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,&
[UserID] [char] (10) NULL ,&
[UserName] [char] (8) NULL ,&
[LogOnTime] [datetime] NULL ,&
[LogOffTime] [datetime] NULL &
) ON [PRIMARY] GO"
tr_newBase.AutoCommit = True
EXECUTE IMMEDIATE :ls_sql
Using tr_newBase;
tr_newBase.AutoCommit = False
if tr_newBase.sqlcode<>0 then
messagebox('提示','数据库表创建失败！！！')
else
messagebox('提示','数据库表创建成功！！！')
end if

...全文

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

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lsypenghong 2006-09-07

打赏
举报

哈哈`~`
揭贴`~~~~

魔鬼代言人5800 2006-09-07

打赏
举报

ls_sql="CREATE TABLE [dbo].[QY_Logon] (&
[LogID] [decimal](18, 0) IDENTITY (1, 1) NOT NULL ,&
[UserID] [char] (10) NULL ,&
[UserName] [char] (8) NULL ,&
[LogOnTime] [datetime] NULL ,&
[LogOffTime] [datetime] NULL &
) ON [PRIMARY] "
tr_newBase.AutoCommit = True
EXECUTE IMMEDIATE :ls_sql
Using tr_newBase;
tr_newBase.AutoCommit = False
if tr_newBase.sqlcode<>0 then
messagebox('提示','数据库表创建失败！！！')
else
messagebox('提示','数据库表创建成功！！！')
end if

把GO去就可以了！！
呵呵！~~