添加一个AdoConnection1,AdoQuery1,DataSource1,Button1,Edit两个, AdoQuery1.connection :=AdoConnection1; Datasource1.Dataset :=AdoQuery1; Button1.caption :='添加'; 点击Button1的事件如下: procedure TForm1.Button1Click(Sender: TObject);//添加 begin With AdoQuery1 do begin Close; Sql.Clear; Sql.Add('insert into table1(name,age) values(:name,:age)'); Parameters.ParamByName('name').value :=Edit1.text;//姓名 Parameters.ParamByName('age').value :=Edit2.text;//年龄 ExecSql;//保存 end end;
再加一个DbNavigator,基本功能就都有了
AdoQuery1.connection :=AdoConnection1;
Datasource1.Dataset :=AdoQuery1;
Button1.caption :='添加';
点击Button1的事件如下:
procedure TForm1.Button1Click(Sender: TObject);//添加
begin
With AdoQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('insert into table1(name,age) values(:name,:age)');
Parameters.ParamByName('name').value :=Edit1.text;//姓名
Parameters.ParamByName('age').value :=Edit2.text;//年龄
ExecSql;//保存
end
end;
我觉得AdoQuery1的功能比较强大,而且对数据库的操作比较方便
AdoQuery1.connectionstring 就是连接数据的驱动参数 而可以不用 connection
李维的书,有例子的。