问题同上!
解决方案 »
- 先从文本中得到变量,再进行条件编译
- 求一存储过程,做数据初始化用。。有多个表,将各个表中的数据清空,谢谢
- 透明位图的问题
- 那位高手能告诉我BoundsChecker for delphi 怎么用?
- 如何获得DBGRID的记录数
- 请问我下载的fastreport v2.5中的fr_class.pas怎么用,在哪里可找到fr v2.5的注册版?
- 怎样让我们的程序在繁体下显示简体汉字?(微软公司的很多程序都是可以的)
- Idsmtp发送邮件时间不正常,如何解决?
- Edit控件的OnEnter事件中打开一个新窗体后如何重获焦点?
- 存储过程怪了??!!
- 大家看看怎么错了,找一个目录下后缀为 模板 所有文件?
- 控件的继承请各位大侠帮忙........
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;
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 ;
Shiyl(云淡风清) 创建的是表,不是库文件
然后通过ADOQuery执行。
1.create 库
2.create 表
1,2用ado做方便
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);
vCatalog:OleVariant;
begin
STempFileName:='d:\zz\123.mdb';
vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,' ']));
我不知道你是怎样建MDB的,我把建MDB的程序具体化了,已测试通过。
vCatalog:OleVariant;
begin
STempFileName:='d:\zz\123.mdb';
vCatalog:=CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString,[STempFileName,' ']));
我不知道你是怎样建MDB的,我把建MDB的程序具体化了,已测试通过。
现在要表内容:
-----------------------------------
姓名 | 年龄 | 身高
-----------------------------------
现在要表内容:
-----------------------------------
姓名 | 年龄 | 身高
-----------------------------------帮我解决这个问题,分全给他。
很详细的
Create Table Tab1 (
ID Counter,
Name string,
Age integer,
[Date] DateTime);
ADOQuery1.ExecSQL;
首先你得连接数据库!
然后就用上面的SQL创建一个表!
连接数据库用ADOConnection.
若只是执行SQL的话,也可以用ADOCommand.
ADOCommand.CommandText:= strSQL;//your SQL String;
ADOCommand.Execute;
创建一个名叫MyTable的表,
表里有三个字段:
第一个字段名叫做Name,类型为VarChar(可变长字符串,不变长的为Char(10)... )
第二个字段名叫做Age,类型为Int(整数)
第三个字段名叫做Sex,类型为VarChar建议看一本介绍SQL语句的书!
strAge:= 'BBB';
strSex:= 'CCC';
ADOQuery1.SQL.Text='CREATE TABLE MyTable(' +
strName + ' VarChar,' +
strAge + ' Int,' +
strSex + ' VarChar);';这句和上面的效果一样,只是把字段名改了一下!