delphi Excel与数据库连接

来源：百度知道 编辑：UC知道 时间：2024/06/02 11:45:24
数据库中有一表,有两字段,一个是name 另一个是id,我想实现这样一个功能,就是在Excel中输入表中的一个id,输完后id就会变成name,不知道我这样说各位是否明白,因为报表中输入名字太慢了,想偷懒,想用DELPHI实现,请教各位大侠
回答帮我解决问题了,献上200分!谢谢!

用adoquery呀
给你一个例子。
//用ADO控制excel

/*
OpenDialog1 : TOpenDialog1;
ADOConnection1 : TADOConnection;
//手工连接到Excel时，须将Extended Properties设置为Excel 8.0
ADOQuery1 : TADOQuery;
*/

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
sFileName, sTableName : String;
sl : TStringList;
begin
If Not OpenDialog1.Execute Then Exit;
sFileName := OpenDialog1.FileName;
ADOConnection1.Connected := False;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=' + sFileName + ';Extended

Properties=Excel 8.0;Persist Security Info=True';
ADOConnection1.Connected := True;
//
sl := TStringList.Create;
ADOConnection1.GetTableNames(sl); //sl是表名列表(Excel中可能有很多个sheet)
//Excel表中可能有很多个sheet，可以循环，本程序只处理了第一个sheet(sl[0])
//for i := 0 to sl.Count-1 Do
//begin
// sTableN