SQLPowerUsernatalitvinenkoЗалезть запросом в Excel файл могуЭто хорошо.
Тогда бежим по Recordset и пишем в dbf, примерно как в образце:
не идет кабан в скворешник:-(
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
var fileURL2 = new String(window.location.pathname);
pathhhh=fileURL2;
pathhhh=pathhhh.substr(0,pathhhh.lastIndexOf("\\")+1);
var conn = new ActiveXObject("ADODB.Connection");
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathhhh & ";User ID=Admin;Password=;Extended Properties=dBASE IV";
/////s = "Provider=VFPOleDB;Data Source=" & pathhhh;
conn.Open (s);
conn.Execute("create table dbftable (ID_N int, dt date, info char(100))");
conn.Execute("insert into dbftable (ID_N , dt, info) values (1, '2010/05/31', 'abcde')");
conn.Close;
не могу, грит, источник найти. Лазила уточнить сроку подключения(
https://www.connectionstrings.com/microsoft-jet-ole-db-4-0/)- вроде один в один. Только там dBASE большими буквами- думала, уже в это упирается. Не помогло.
А вот так идет как дышит
1.
2.
3.
4.
5.
6.
7.
8.
9.
var WshShell = new ActiveXObject( 'WScript.Shell' );
var connection = new ActiveXObject("ADODB.Connection"),recordset = new ActiveXObject("ADODB.Recordset");
alert(pathhhh+"/"+"2003.dbf");
connection.Open("Provider=VFPOleDB;Data Source="+pathhhh+"2003.dbf");
try {
connection.Execute("create table dbftable (ID_N int, dt date, info char(100))");
connection.Execute("insert into dbftable (ID_N , dt, info) values (1, '2010/05/31', 'abcde')");
} catch(e) {}
Файл новосозданный в папке обнаруживается, успешно открывается. Но без указания пути с конкретным файлом- не хочет. Указала ему что угодно, что в папке валяется- да пожалуйста.
То есть задача,в принципе, кривоватенько(нужно все время dbf с собой тягать), но решена. За что спасибо SQLPowerUser .
Если есть варианты, как от этого подставного избавится- было бы здорово.
