谁会建access表（*.mdb)？用代码写。

Question

问题同上！

Answer 1

Const
  SConnectionString       = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'
                                +'Jet OLEDB:Database Password=%s;';function CreateAccessFile(FileName:String;PassWord:string=''):boolean;
//建立Access文件，如果文件存在则失败
var
  STempFileName:string;
  vCatalog:OleVariant;
begin
  STempFileName:=GetTempPathFileName;
  try
    vCatalog:=CreateOleObject('ADOX.Catalog');
    vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));
    result:=CopyFile(PChar(STempFileName),PChar(FileName),True);
    DeleteFile(STempFileName);
  except
    result:=false;
  end;
end;

Answer 2

with table1 do begin
      Active:=false;
      DatabaseName:='Cntssamp';    {数据库别名}
      TableName:='TSK';            {表格名}
      TableType:=Microsoft.Jet.OLEDB.4.0;   {数据库类型}
      with FieldDefs do begin      {增加字段}
        Clear;
        Add('SH',ftString,30,False);  {书号 String(30)}
        Add('SM',ftString,30,False);  {书名 String(30)}
        Add('CBS',ftString,20,False); {出版社 String(20)}
        Add('CBRQ',ftDate,0,False);   {出版日期 Date}
        Add('YS',ftInteger,0,False);   {页数 Integer}
      end;
      with IndexDefs do begin      {增加索引}
       Clear;                      {按书号字段建立主索引}
       Add('SHSY','SH',[ixPrimary,ixUnique]);
      end;
      CreateTable;      {创建表格}
    end;
  end ;

Answer 3

WWWWA(aaaa) 的对！
 Shiyl(云淡风清) 创建的是表，不是库文件

Answer 4

建表直接用Create table dbname (aaa char(20),bbb char(30))不就OK了吗？？？
然后通过ADOQuery执行。

Answer 5

建好access以后
1.create 库
2.create 表
1，2用ado做方便

Answer 6

能否给些示例。我是从VB过渡到DELPHI 的

Answer 7

建表：
 Create Table Tab1 (
        ID Counter,
        Name string,
        Age integer,
        [Date] DateTime);

Answer 8

建表：
 Create Table Tab1 (
        ID Counter,
        Name string,
        Age integer,
        [Date] DateTime);

Answer 9

建表：
 Create Table Tab1 (
        ID Counter,
        Name string,
        Age integer,
        [Date] DateTime);

Answer 10

WWWWA(aaaa) 运行出错，你可以测试一下。

Answer 11

var
  vCatalog:OleVariant;
begin
  STempFileName:='d:\zz\123.mdb';
      vCatalog:=CreateOleObject('ADOX.Catalog');
    vCatalog.Create(format(SConnectionString,[STempFileName,' ']));
我不知道你是怎样建MDB的，我把建MDB的程序具体化了，已测试通过。

Answer 12

var
  vCatalog:OleVariant;
begin
  STempFileName:='d:\zz\123.mdb';
      vCatalog:=CreateOleObject('ADOX.Catalog');
    vCatalog.Create(format(SConnectionString,[STempFileName,' ']));
我不知道你是怎样建MDB的，我把建MDB的程序具体化了，已测试通过。

Answer 13

大家看看这个：E:\2222222222222222\f123.mdb创建的只是一个空表。
现在要表内容：
-----------------------------------
姓名   |   年龄     |     身高
-----------------------------------

Answer 14

大家看看这个：E:\2222222222222222\f123.mdb创建的只是一个空表。
现在要表内容：
-----------------------------------
姓名   |   年龄     |     身高
-----------------------------------帮我解决这个问题，分全给他。

Answer 15

建议楼主看SQL Server的关于create tabel的帮助
很详细的

Answer 16

浪费时间的问题，楼主，结贴吧。建表：
 Create Table Tab1 (
        ID Counter,
        Name string,
        Age integer,
        [Date] DateTime);

Answer 17

ADOQuery1.SQL.Text='CREATE TABLE MyTable(Name VarChar,Age Int,Sex VarChar);';
ADOQuery1.ExecSQL;
首先你得连接数据库！
然后就用上面的SQL创建一个表！
连接数据库用ADOConnection.
若只是执行SQL的话，也可以用ADOCommand.
ADOCommand.CommandText:= strSQL;//your SQL String;
ADOCommand.Execute;

Answer 18

ADOQuery1.SQL.Text='CREATE TABLE MyTable(Name VarChar,Age Int,Sex VarChar);';
创建一个名叫MyTable的表，
表里有三个字段：
第一个字段名叫做Name，类型为VarChar（可变长字符串，不变长的为Char(10)... )
第二个字段名叫做Age，类型为Int（整数）
第三个字段名叫做Sex，类型为VarChar建议看一本介绍SQL语句的书！

Answer 19

strName:= 'AAA';
strAge:= 'BBB';
strSex:= 'CCC';
ADOQuery1.SQL.Text='CREATE TABLE MyTable(' + 
                    strName + ' VarChar,' +
                    strAge + ' Int,' + 
                    strSex + ' VarChar);';这句和上面的效果一样，只是把字段名改了一下！