如何在DELPHI 程序中创建数据库 和修改表名？ 急用 HELPING!!!!!!!!!!!

Question

我要的  数据库是  ACCESS  的   请那位兄台   高抬贵手   帮忙做一个
本人是  菜鸟   多点说明好吗？

Answer 1

怎么没人搞定呀  快快帮我  呀  
郁闷ing！！！！！！！！！！

Answer 2

你最好先创建好相关的数据库和表吧，access里好象没有create table这种语句的

Answer 3

CommonDialog1.Filter = "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = "D:\Jthpaper"
CommonDialog1.Flags = 6
CommonDialog1.Action = 2
数据库创建后：
ADOCommand1.CommandText:='CREATE TABLE TURNS (STARTWORK DATE NOT NULL, ENDWORK DATE NOT NULL, RESTTIME NUMBER(10) NOT NULL, TURNNAME CHAR(16) NOT NULL, TYPEID NUMBER(10) NOT NULL,ID NUMBER(10) NOT NULL)';
ADOCommand1.Execute;

Answer 4

FM:STRING;
CommonDialog1.Filter := "MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*|";
CommonDialog1.FilterIndex := 1;
CommonDialog1.InitDir := "D:\Jthpaper";
CommonDialog1.Flags: = 6;
CommonDialog1.Action: = 2;
fm := CommonDialog1.FileName;
建立完后，建立连接
然后就可以创建表
ADOCommand1.CommandText:='CREATE TABLE TURNS (STARTWORK DATE NOT NULL, ENDWORK DATE NOT NULL, RESTTIME NUMBER(10) NOT NULL, TURNNAME CHAR(16) NOT NULL, TYPEID NUMBER(10) NOT NULL,ID NUMBER(10) NOT NULL)';
ADOCommand1.Execute;

Answer 5

使用Transaction-SQL语句就搞定了！！！

Answer 6

创建数据库：
with adoquery1 do
  try
    Close; 
Sql.clear;
sql.add(' create database dbTest');
prepared;
execsql;
  except
  end;
修改 表结构：
with adoquery1 do
try
  close;
  sql.clear;
  sql.add('alter table tableName')
  sql.add('…………………………');
prepared;
execsql;
except
 showmessage('false');
end

Answer 7

CREATE TABLE<表名>(<列名><数据类型>[列级完整性约束条件]，<列名><数据类型>[列级完整性约束条件]........)CREATE TABLE Student (Sno char(5) not null unique,Sname char(20) unique)

Answer 8

//创建access数据库（d:\dd.mdb）
uses
  comobj
const
  CCreateMDB='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';
procedure TForm1.Button1Click(Sender: TObject);
var
  cat:Variant;
  fname:string;
begin
  fname:='d:\dd.mdb';
  cat:=CreateOleObject('ADOX.Catalog');
  cat.Create(Format(CCreateMDB,[fname]));
  cat:=Unassigned;
end;
//用adoquery动态创建access表举例
 sqlstring :=  'create table cc '+
                  '(tbid  integer,' +
                  ' tbindex  integer,'+
                  ' tbname  varchar(100),'+
                  ' tbpreid  integer,' +
                  ' rowser     integer ,'+
                  ' cols     integer ,'+
                  ' cellsta  image,'+
                  ' appinfo  memo,'+
                  ' tbre  varchar(250),'+
                  ' primary key (tbid))' ;
adoquery1.conectstring :='Provider=MSDataShape.1;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\dd.mdb;Persist Security Info=false';
    adoquery1.SQL.Clear ;
    adoquery1.SQL.Add(sqlstring);
    try
       adoquery1.ExecSQL;
    except
        showmessage( 'create failer');
    end;