このツールは、一部の環境でオペレーティング システムのダイアログ ボックスが使用できない問題を解決するために使用されますSource<br>var dbpath = location.href.replace(/file:[/]+([A-Z]:.*[ /])( [^/]+)/,"$1");<br><br>function connect(db_name) {<br> var dbc = new ActiveXObject("ADODB.Connection");<br> var dbcon = "Provider=Microsoft.Jet. OLEDB.4.0; Data Source=" +db_name;<br> dbc.Open(dbcon);<br> return dbc;<br>}<br><br>function query(sql) {<br> var conn = connect(dbpath+"netBook.mdb"); // 接続データベースへ <br> conn.Execute(sql);<br> conn.Close();<br>}<br><br>function splitData() {<br> name = document.all.sfile.value;<br> moveData(name,dbpath+"netBook.mdb", "");<br> query ("cote が入っていないデータセット cote=0 を更新します (アイテムリストから ID を選択)");<br>}<br><br>関数 addlashes(s) {<br> return s.replace(/'/g,"' '");<br>} <br><br>//db1 のデータを db2 にコピーします<br>function moveData(db1,db2,exrp) {<br> if(! exrp) exrp = "";<br> conn1 = connect(db1);<br> conn2 = connect(db2);<br> rs = conn1.Execute("select * from data "+exrp);<br> while(!rs.EOF) {<br> conn2.Execute("データ値に挿入 ("+rs("id ").value<br> +"," +rs("cote" ).value +",'"+addslashes(rs("content").value)+"'"<br> +",'"+rs("タイプ").value+"'"<br> ").value+"'"<br> +")");<br> rs.MoveNext();<br> }<br> rs.Close(); <br> conn1.Close();<br> conn2.Close( );<br>}<br></ スクリプト><br> <br> <br> <br> </p> <center> </center> <p style="width:100%;text-align:center;margin:10px 0"> <br><br></p>
