2,497
社区成员
发帖
与我相关
我的任务
分享
Var
Conn:TADOConnection;
Que:TADOQuery;
Begin
Conn:=TADOConnection.Create(nil);
Que:=TADOQuery.Create(nil);
{ConnStr的值为:}
{'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName) + 'DB.mdb;Persist Security Info=False'}
Conn.ConnectionString:=ConnStr;
Conn.Open;{执行到这里的弹出一个标题为Database Login的对话框、提示输入数据库的用户名密码}
Que.Connection:=Conn;
Que.SQL.Add(SQL);
FSQLConnection.LoginPrompt := false;