|
пожскажите , будет работать такой код. проверить пока не могу
N = Строка(ЭлементыФормы.ДатаСтрока.Значение);
//////////////////////////////////////////////////
Попытка
ConnectionString = "DRIVER=MySQL ODBC 3.51 Driver;SERVER=192.168.3.251;DATABASE=1C; USER= sto;PASSWORD=12sto;OPTION=3;";
con = Новый COMObject("ADODB.Connection");
con.ConnectionTimeOut =20;
con.CursorLocation = 1;
con.Mode=1;
con.Open(ConnectionString);
con.Execute("SET NAMES cp1251");
Cmd = Новый COMObject("ADODB.Command");
Cmd.ActiveConnection = con;
////////////////////////////////////////////////////
RS = Новый COMОбъект("ADODB.Recordset");
RS.ActiveConnection = con;
RS.Open("delete from sales2 WHERE (date ='"+N+"')");
Исключение;
Сообщить("Ошибка");
КонецПопытки;
|
