（急）如何把数据导出到SQL文件？ (100分)

是这样的，公司要求我做一个提取新闻页面的新闻标题和新闻URL的程序，还要把它存为
SQL文件，以便用SQL数据库程序打开进行操作，数据库编程我没用过，现在我已经把标题
和URL都提取在两个对应的LISTBOX里了，只是该如何把它们存为SQL数据库文件呢？五个字段，ID，TYPE，DATE，
TITLE，URL。请问具体该如何操作呢？要详细点的。最先答得干净彻底的得满分。随便一两句
凑数的不能得分。

采用循环处理两个listbox,取出标题名和url,然后用tquery
insert into 表名 values(id,type,date,标题名,url)
入库
注意：用tquery.execsql;

Oracle 下可以。

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin

With Database1 do
begin
DriverName := 'MSACCESS';
DatabaseName := 'Mydb';
Params.Clear;
Params.Add('DATABASE NAME=c:/db1.MDB');
Params.Add('USER NAME=');
Params.Add('PASSWORD=');
LoginPrompt := False;
end;


With Query1 do
begin
Close;
DatabaseName := 'Mydb';
end;

for i := 0 to Listbox1.Items.Count-1 do
With Query1 do
begin
SQL.Clear;
SQL.Add('insert into data'); //data为表名
SQL.Add('(type,date,title,url)'); //id为自增字段,插入时不管它
SQL.Add('Values PType,Date,Title,URL)');
ParamByName('PType').AsString:='类型';
ParamByName('PDate').AsDateTime:=now;
ParamByName('PTitle').AsString:=ListBox1.Items.Strings;
ParamByName('PURL').AsString:=ListBox2.Items.Strings;
ExecSQL;
end;
end;

给分吧!

接受答案了.