现有ip地址如下:(格式如下)
124.93.200.34
124.93.242.145
202.97.184.40
202.97.185.183
210.83.16.156
218.24.196.150
218.24.196.218
218.24.196.227
218.25.22.226

如何实现
insert into ips (ip,ipint,city,createtime) values ('124.93.200.34',inet_aton('124.93.200.34'),null,now());
insert into ips (ip,ipint,city,createtime) values ('124.93.242.145',inet_aton('124.93.242.145'),null,now());
insert into ips (ip,ipint,city,createtime) values ('202.97.184.40',inet_aton('202.97.184.40'),null,now());
insert into ips (ip,ipint,city,createtime) values ('202.97.185.183',inet_aton('202.97.185.183'),null,now());
insert into ips (ip,ipint,city,createtime) values ('210.83.16.156',inet_aton('210.83.16.156'),null,now());
insert into ips (ip,ipint,city,createtime) values ('218.24.196.150',inet_aton('218.24.196.150'),null,now());
insert into ips (ip,ipint,city,createtime) values ('218.24.196.218',inet_aton('218.24.196.218'),null,now());
insert into ips (ip,ipint,city,createtime) values ('218.24.196.227',inet_aton('218.24.196.227'),null,now());
insert into ips (ip,ipint,city,createtime) values ('218.25.22.226',inet_aton('218.25.22.226'),null,now());
insert into ips (ip,ipint,city,createtime) values ('218.25.249.121',inet_aton('218.25.249.121'),null,now());
其中,ip,和ipint使用同一IP地址.
请问如何实现,具体源代码如何编写?谢谢各位大大帮忙支持

[code delphi]
procedure InsertData(ip_list: TStrings);
var i: Integer;
sSQL: String;
begin
for i:= 0 to ip_list.Count- 1 do
begin
sSQL:= 'INSERT INTO IPS (IP, IPINT, CITY, CREATETIME)'
' VALUES (' QuotedStr(ip_list[i])
', ' IntToStr(Inet_aton(ip_list[i])
', NULL, GETDATE() )';
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(sSQL);
TQuery.ExecSQL;
end;
end;

[/code]

編輯記錄

插花一下

有個 multiple insert 的語法, 例如

insert into tablename (fld1, fld2, ...)
values (value11, value12, ...), (value21, value22, ...), (value31, value32, ...), ....

先用 string 操作組成 sql statement ( loop 用在 組成 values 子句)
然後一個 insert 命令就可以

參考一下囉

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

   sSQL:= 'INSERT INTO IPS (IP, IPINT, CITY, CREATETIME)'
' VALUES ("' ip_list[i]
'", Inet_aton("' ip_list[i] '")'
', NULL, now())';
因为在引用时发生错误,故修改如上.
===================引 用 max5020 文 章===================

[code delphi]
procedure InsertData(ip_list: TStrings);
var i: Integer;
sSQL: String;
begin
for i:= 0 to ip_list.Count- 1 do
begin
sSQL:= 'INSERT INTO IPS (IP, IPINT, CITY, CREATETIME)'
' VALUES (' QuotedStr(ip_list[i])
', ' IntToStr(Inet_aton(ip_list[i])
', NULL, GETDATE() )';
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(sSQL);
TQuery.ExecSQL;
end;
end;

[/code]

请问具体代码如何实现,使用了memo物件, opendialog物件,如何实现多个记录插入,
变成如下语句如何实现:
insert into ipaddress (startip,endip,city,startipint,endipint,createdate,modifieddate) values ('60.16.0.0','60.16.159.255','ln/sy',INET_ATON('60.16.0.0'),inet_aton('60.16.159.255'),now(),'0000-00-00 00:00:00');

已知 ip地址信息
起始ip, 终止ip, 城市名称 ,起始IP地址的数字格式, 终止IP地址的数字格式
'60.16.0.0','60.16.159.255','ln/sy',INET_ATON('60.16.0.0'),inet_aton('60.16.159.255')


===================引 用 st33chen 文 章===================
插花一下

有個 multiple insert 的語法, 例如

insert into tablename (fld1, fld2, ...)
values (value11, value12, ...), (value21, value22, ...), (value31, value32, ...), ....

先用 string 操作組成 sql statement ( loop 用在 組成 values 子句)
然後一個 insert 命令就可以

參考一下囉