関数マップパス(n)
マップパス=Fso.getabsolutepathname(n)
終了関数
Function IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
err<>0 の場合、IpN=0
エラークリア
IpToNum=IpN
終了関数
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
エラー時は次から再開
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oldb.4.0;data source="&Mappath("dat.mdb")
Set Rs=CreateObject("ADODB.Recordset")
Rs.open "d から * を選択",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Fto.atendofstream ではないときに実行します
Rs.追加新規
Res=Split(Replace(Replace(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs("h")=Res(3)
Wscript.Echo "「&Res(0)&」から「&Res(1)&」に更新されました。"
Rs.アップデート
ループ
閉じる
注意: 中間空格を選択し、中間空格を削除してください。コードを作成し、.vbs として保存しておけば十分
です
。
Conn.open “driver={SQL Server};サーバー=(ローカル);データベース= ;uid= ;pwd= ”
纯真データベース库转MYSQLデータベース库，只要改
程序代
Conn.open “Driver={mysql};database=[データベース];uid=[ユーザー名];pwd=[パスワード];オプション=16386;”