Архив форумов ЦИТФорума

[Вася]

/******************************************/
/* Имеется таблица Dbase (FoxPro for Dos) */
/* с полем Dat D( */
/********************* ********************/
var Rec, Sou, Conn, Out, DiR,
Wo, Wd, Sel, day, st;
/******************************************/
day="01/0 1/2003";// а тут хоть
/* "01-01-2003", хоть "2003-01-01" */
/* - без разницы - результат тот же.*/
/******************************************/
DiR ="U:\\Самые важные документы\\Вася\\День сегодняшний\\Труды праведные\\";
Sou ='SELECT * FROM table1 WHERE Dat>='+day;
Conn ="Driver={Microsoft dBase Driver (*.dbf)};DefaultDir="+DiR;
Rec =WScript.CreateObject("ADODB.Recordset");
Wo =WScript.CreateObject("Word.Application");
Wd =Wo.Documents.Add();
Rec.Open(Sou,Conn);
Out="Вася нафигачил:\n";
while (!Rec.EOF) {
st=Rec.Fields("Dat")+"\n";
Out+=st;
Rec.MoveNext();
}
Rec.Close();
Wo.Visible=true;
Sel=Wo.Selection;
Sel.Ty peText(Out);
/******************************************/
/* А в результате получаю не то, что >= */
/*{01.01.2003}, а всю таблицу целиком */
/* И где я тут ошибаюсь - ума не приложу. */
/* Здорово, конечно, что всё равно */
/* как в запросе дату указывать, и всяко */
/* оно его понимает, да только жаль, */
/* что это всякопонимание словно бы без */
/* понимания совсем. */
/* Как ещё можно тот SELECT поправить? */
/******************************************/