回 帖 发 新 帖 刷新版面

主题:代码请教

各位大侠好呀,学弟请教个问题,我这有些代码,和位给看看是不是创建数据库的,谢谢了,俺急用,但又搞不懂,俺是刚入门if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[zjb]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[zjb]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[zksjj]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[zksjj]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[结果]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[结果]
GO

if exists (select * from dbo.systypes where name = N'empid')
exec sp_droptype N'empid'
GO

setuser
GO

EXEC sp_addtype N'empid', N'varchar (10)', N'not null'
GO
CREATE TABLE [dbo].[BCCXGJLZD] (
    [内容] [varchar] (2000) COLLATE Chinese_PRC_CI_AS NULL ,
    [id] [int] IDENTITY (1, 1) NOT NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[BCCXGTXSJZD] (
    [内容] [varchar] (2000) COLLATE Chinese_PRC_CI_AS NULL ,
    [id] [int] IDENTITY (1, 1) NOT NULL 
) ON [PRIMARY]
GO
在DELPHI7上保存时出现1下标错误

回复列表 (共1个回复)

沙发

是用来创建数据库的 应该是SQL中直接导出来的  你想在delphi中执行  是不可能直接用的   需要借助控件属性来完成

我来回复

您尚未登录,请登录后再回复。点此登录或注册