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

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

jshang

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

阅读量2.4k

点赞数

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

本文链接：https://blog.csdn.net/jshang/article/details/1955069

版权

Q&A 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

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;