简单得可以借鉴这个例子!
procedure TForm1.Button1Click(Sender: TObject);
var
path: string;
begin
path := ExtractFilePath(Application.ExeName); //程序路径
ADOConnection1.Connected := False;
try
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
path + 'db.mdb' + ';Persist Security Info=False';
ADOConnection1.Connected := true;
MessageBox(GetActiveWindow(), '成功连接!', '警告', MB_OK + MB_ICONWARNING);
except
MessageBox(GetActiveWindow(), '系统错误!', '警告', MB_OK + MB_ICONWARNING);
application.Terminate;
end;
with self.ADOQuery1 do
begin
close;
self.ADOQuery1.SQL.Clear;
self.ADOQuery1.SQL.Add('insert into test values(''ASD'',''RER'',''FAF'')');
//ADOQuery1.parambyname('A').asstring:=Edit1.text;
// parambyname('B').asstring:=Edit2.text;
// parambyname('C').asstring:=Edit3.text;这里哪位大侠告诉我用什么语句可以代替QUERY中得这个语句
self.ADOQuery1.ExecSQL;
end;
self.ADOQuery1.ExecSQL;
end;
前提条件熟呢得数据库和应用程序在同一个目录下