多行IP地址如何批量导入数据库中 |
答題得分者是:max5020
|
nanpiao
一般會員 發表:12 回覆:18 積分:6 註冊:2007-10-19 發送簡訊給我 |
现有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地址. 请问如何实现,具体源代码如何编写?谢谢各位大大帮忙支持 |
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
[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] |
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
插花一下
有個 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 (滷肉腳啦); 都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2009-05-22 17:54:48, 註解 無‧
|
nanpiao
一般會員 發表:12 回覆:18 積分:6 註冊:2007-10-19 發送簡訊給我 |
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] |
nanpiao
一般會員 發表:12 回覆:18 積分:6 註冊:2007-10-19 發送簡訊給我 |
请问具体代码如何实现,使用了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 命令就可以 參考一下囉 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |