收录日期:2018/08/15 02:07:38 时间:2016/05/22 08:21:54 标签:VCL组件开发及应用
怎么动态的创建asscee数据库和其中的字段呀,并怎么返回数据库中有多少条记录!!谢谢了
动态创建数据库倒是没有做过。
在程序运行期我一般是不不再更新数据库的。

如果你是指程序的第一次运行的情况下,
可以考虑一起分发一个没有任何数据的数据库。

用TTABLE可以动态创立表和字段啊。

我就是想动态创建数据库,哪位那个有办法呀
动态创建数据库只能用DAO才行。
因为DAO支持DDL
我是新手麻烦说明白一点,谢谢
好友怎么连接AccEss的数据库不出现让输入用户名和密码的提示呀
delphi 从入门到精通 一书中有详细的解释。

需要电子版的m:6105ban@163.com
用ADOX创建数据库和数据表,有关ADOX的相关文档可去MSDN网站查询

//字典表 计费
c_data='CREATE TABLE [data]('
+'[Id] autoincrement,'
+'[Bh] varchar(10),'//编号
+'[Sorts] varchar(20),'//
+'[Q_Date] DateTime,'//
+'[Q_Name] varchar(20),'//
+'[Keys] varchar(50),'//
+'[Question] varchar(240),'//
+'[Answer] memo,'//
+'[A_Date] DateTime,'//
+'[A_Name] varchar(20))';

c_passwd='CREATE TABLE [passwd]('
+'[Id] varchar(10),'
+'[Pw] varchar(20))';//

function TfrmMain.CreateMDB: boolean;
var
CreateAccess:OleVariant;
begin
try
mdbFileName:=ExtractFilePath(Application.ExeName)+'wt_data';
CreateAccess:=CreateOleObject('ADOX.Catalog');
//CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mdbFileName);
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mdbFileName);

DM.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+mdbFileName;

//创建表
DM.ADOQ_Any.Close;
DM.ADOQ_Any.SQL.Text:=c_data;
DM.ADOQ_Any.ExecSQL;

DM.ADOQ_Any.SQL.Text:=c_Passwd;
DM.ADOQ_Any.ExecSQL;

DM.ADOQ_Any.SQL.Text:='insert into passwd values(:Id,:Pw)';
DM.ADOQ_Any.Parameters.Paramvalues['Id']:='User';
DM.ADOQ_Any.Parameters.Paramvalues['Pw']:=DateToStr(now);
DM.ADOQ_Any.ExecSQL;

DM.ADOQ_Any.SQL.Text:='insert into passwd values(:Id,:Pw)';
DM.ADOQ_Any.Parameters.Paramvalues['Id']:='system';
DM.ADOQ_Any.Parameters.Paramvalues['Pw']:='system';
DM.ADOQ_Any.ExecSQL;

result:=true;
except
result:=false;
Application.MessageBox('无法创建数据库。','提示',MB_OK+MB_ICONWARNING);
end;
end;

也就是以下的网站:
http://www.gzdfwl.com/news2003/list.asp?unid=167

此网站用于收录DELPHI相关的资料,便于查询,无其它用意,有好的大家分享!