用delphi动态创建的access表，设置其字段的“是否允许空字符串”为真

最新推荐文章于 2020-11-27 08:25:33 发布

jshang

最新推荐文章于 2020-11-27 08:25:33 发布

阅读量2.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Q&A 文章标签： access delphi security table null

本文链接：https://blog.youkuaiyun.com/jshang/article/details/1955069

Q&A 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一段使用 Delphi 创建 MDB 文件并建立数据表的过程。通过 ADOX 和 ADO 技术，演示了如何创建数据库、定义连接字符串以及执行 SQL 语句来创建包含特定字段的数据表。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var access:OleVariant;
begin
access := CreateOleObject('ADOX.Catalog');
access.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/zz/temp.mdb');
access:=null;
try
tmpQuery := TAdoQuery.Create(nil);
tmpQuery.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/zz/temp.mdb;Persist Security Info=False';
with tmpQuery do
begin
Close;
Sql.Clear;
Sql.Add('CREATE TABLE T_test ');
Sql.Add('( ');
Sql.Add('t_a1 varchar(10), ');
Sql.Add('t_a2 varchar(20) ');
Sql.Add(')');
ExecSql;
end;
access:=CREATEoleoBJECT('adox.catalog');
access.activeconnection:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:/zz/temp.mdb;Persist Security Info=False';
access.Tables['T_Test'].Columns['t_a1'].Properties('Jet OLEDB:Allow Zero Length'):=true;
MessageBox(HANDLE,'成功创建。','提示',MB_OK+MB_ICONINFORMATION);
finally
tmpQuery.Free;
end;
end;