在delphi中如何建立SQL server 2000的数据库，如何建立表

Question

在delphi中如何建立SQL server 2000的数据库，如何建立表

Answer 1

给你一段SQL代码，在ADO中执行：
IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'INSTAL_TJS')
DROP DATABASE [INSTAL_TJS]CREATE DATABASE [INSTAL_TJS]  ON (NAME = N'INSTAL_TJS_Data', FILENAME = N'c:\Program Files\Microsoft SQL Server\MSSQL\data\INSTAL_TJS_Data.MDF' , SIZE = 45, FILEGROWTH = 10%) LOG ON (NAME = N'INSTAL_TJS_Log', FILENAME = N'c:\Program Files\Microsoft SQL Server\MSSQL\data\INSTAL_TJS_Log.LDF' , SIZE = 1, FILEGROWTH = 10%)CREATE TABLE [dbo].[tbl_Quality_audit] (
[auditSN] [int] NOT NULL ,
[auditNo] [varchar] (30) NOT NULL ,
[auditAim] [varchar] (500) NULL ,
[auditRange] [varchar] (500) NULL ,
[auditDept] [varchar] (80) NULL ,
[auditBase] [varchar] (500) NULL ,
[startTime] [smalldatetime] NULL ,
[endTime] [smalldatetime] NULL ,
[estMan] [varchar] (20) NOT NULL ,
[estDate] [smalldatetime] NOT NULL ,
[authMan] [varchar] (20) NULL ,
[authDate] [smalldatetime] NULL ,
[issend] [tinyint] NOT NULL ,
[status] [tinyint] NOT NULL ,
[currentMan] [int] NULL ,
[inputUser] [varchar] (20) NULL ,
[inputDate] [smalldatetime] NULL ,
[updateUser] [varchar] (20) NULL ,
[updateDate] [smalldatetime] NULL 
) ON [PRIMARY]

Answer 2

首先通过adoconnection与SQL Server 2000数据库建立连接adoquery1.sql.clear;
adoquery1.sql.add(create database [数据库名])
adoquery1.ExecSQL

Answer 3

建表adoquery1.sql.clear;
adoquery1.sql.add(create table 表名 (dere varchar(5),de int,der image))
adoquery1.ExecSQL

Answer 4

http://218.56.11.178:8020/web/technology/SQLServer2000/SQL%20SERVER%202000%20CreatTable.htm