创建的过程中出现database login对话框，请问怎么样不让该对话框出现？另外如何定义日期型数据为短日期型？好像只能定义为Datetime。
源码如下：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure Tfrmweihu.btncjsjkClick(Sender: TObject);
var
path,StrSQL:string;
CreateAccess: OleVariant;
ADOConn: TADOConnection;
const
AConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';
begin
//创建数据库文件
Path := ExtractFilePath(Application.ExeName);
if FileExists(Path + 'mydata.mdb') then
begin
showmessage('数据库文件已经存在！');
exit;
end;
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+Path+'mydata.mdb');
//创建数据表
ADOConn:=TADOConnection.create(self);
ADOConn.ConnectionString:=Format(AConnectionString,[Path +'mydata.mdb','']);
Strsql := 'create table mydata (ID autoincrement PRIMARY KEY not null,标签1 char(50) not null,标签2 char(50),标签3 char(50),标签4 char(50),标签5 char(50),标签6 char(50),正文1 text not null,正文2 text,日期 Datetime not null)';
ADOConn.Execute(strsql);
ADOConn.Close;
ADOConn.Free;
Showmessage('数据表创建成功,'+#13#10+'请重新启动本程序！');
相关问答：
系统每天产生一个excel文件，格式相同，内容用文件名（用产生的时间命名）区分。我做了一个access数据库，导入excel的数据，我想加一项纪录文件名来区分内容，可是怎么做呢？又或者用什么其他方法可以办到？谢了
你 ......
初用ACCESS数据库，要实现一个关联查询，sql语句如下：select pid,product_Type.name as tid,name,img_url,context,remark from Product join product_Type on product.type_id = product_Type.type_id order by pid ......
在access中怎么执行select TOP (@size) * from table1
这个TOP怎么带参数查询啊
用VBA动态生成SQL语句，再执行
不能直接用SQL语句，用字符串累加生成SQL语句的方法来执行SQL语句
top n 这个没有办法使用� ......
从类型"DBNULL" 到类型“Double”的转换无效（数据库中对应的 a3 或a5 没有数据是为空）
,请问我怎么处理！
VB.NET code:
Dim a1 As String = Nothing
Dim a2 As S ......
sql语句：
SELECT top 12 Forum.ID,Forum.topic,Reforum.id,Reforum.username,Reforum.posttime,Reforum.postip,Forum.username from Forum INNER JOIN Reforum ON Forum.ID = Reforum.topicid wher ......
