не работает последняя функция

← →
MV-GROB © (2002-10-15 20:39) [0]

<% RSDispatch %>


<script runat = server language = "JavaScript">
var public_description = new MyServerMethods();
function MyServerMethods()
{
this.add = addNumbers;
this.zagr = zagrKod;
this.tek = tekznach;
this.chpic = chanpic;
}
function addNumbers (num1)
{
var fso, f, fc, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(Server.MapPath(num1));
fc = new Enumerator(f.Files);
s = "";
for (; !fc.atEnd(); fc.moveNext())
{
s += fc.item().name;
s +="#";
}
return s;
}
function zagrKod(n)
{
var dsn, conn, type_db,sSQL,idera;
type_db = "Access";
DSN ="DBQ=" + Server.Mappath("mag.mdb") + ";Driver={Microsoft Access Driver (*.mdb)};" ;
var conn = Server.CreateObject("ADODB.Connection");
conn.CommandTimeout = 100;
conn.ConnectionTimeout = 100;
conn.Open(DSN);
var RS = Server.CreateObject("ADODB.Recordset");
sSQL = "Select * From Tov Order By ID;";
RS.Open(sSQL,conn);
ch=0;
ch=n*1;
if (RS.EOF==false)
{
RS.MoveFirst();
idera = RS.fields(ch);
}
while (!RS.BOF && !RS.EOF)
{
idera +="#";
RS.MoveNext();
idera += RS.fields(ch);
}
RS.Close();
conn.Close();
RS = null;
conn = null;
return idera;
}
function tekznach(k,n)
{
var dsn, conn, type_db,sSQL,idera;
type_db = "Access";
DSN ="DBQ=" + Server.Mappath("mag.mdb") + ";Driver={Microsoft Access Driver (*.mdb)};" ;
var conn = Server.CreateObject("ADODB.Connection");
conn.CommandTimeout = 100;
conn.ConnectionTimeout = 100;
conn.Open(DSN);
var RS = Server.CreateObject("ADODB.Recordset");
st="="+k+";";
sSQL = "Select * From Tov WHERE ID"+st;
RS.Open(sSQL,conn);
ch=n*1;
if (RS.EOF==false)
{
idera = RS.fields(ch).value;
}
RS.Close();
conn.Close();
RS = null;
conn = null;
return idera;
}
function chanpic(k,z)
{
var dsn, conn, type_db,sSQL,idera,l,sSQL1;
type_db = "Access";
DSN ="DBQ=" + Server.Mappath("mag.mdb") + ";Driver={Microsoft Access Driver (*.mdb)};" ;
var conn = Server.CreateObject("ADODB.Connection");
conn.CommandTimeout = 100;
conn.ConnectionTimeout = 100;
conn.Open(DSN);
var RS = Server.CreateObject("ADODB.Recordset");
var dbCmdCat = Server.CreateObject("ADODB.Command");
dbCmdCat.ActiveConnection = conn;
st="="+k;//"Update Tov set Pic="OK" WHERE ID"+st;
dbCmdCat.CommandText ="Delete Tov set Pic=OK WHERE ID"+st;
RS = dbCmdCat.Execute();
//RS.MoveLast();
//idera = RS.fields(2).value;
//RS.AddNew();
//RS.("Art").value="4444444";
//sSQL = "Update Tov set Pic="OK" WHERE ID"+st;
//RS.Execute(sSQL);
//RS.Open(sSQL,conn);
RS.Update();

//RS.Close();
conn.Close();
RS = null;
conn = null;
return "555";
}
</script>

не работает последняя функция ,
вернее работает только если dbCmdCat.CommandText = "Select * From Tov WHERE ID"+st;

← →
Dr_Mike © (2002-10-16 10:21) [1]

Ну все же должно быть "DELETE * FROM Tov WHERE ID="
А что такое set Pic="OK" - это что ты пытаешься установить ?

И еще вопрос - Разве метод ADODBRecordSet (твой RS).Update не требует задания парметров вызова - имя обновляемой таблицы и еще что-то ? - хотя я не знаю точно, может даже все наоборот нужно делать - обновлять не с помощью RS.Update, а по другому - dbCmdCat(RS,"Tov")</>

в смысле dbCmdCat.Update(RS,"Tov")

не работает последняя функция Найти похожие ветки