Имя: Пароль:
1C
1C 7.7
v7: подскажите по ADODB
0 DES
 
09.04.13
17:31
wc.ConnectionString = "DSN=DDD";
Попытка
   wc.Open();
Исключение
   Сообщить(ОписаниеОшибки());
   Предупреждение("Не удалось подключиться к Базе DDD")
КонецПопытки;
Запрос = СоздатьОбъект("ADODB.Recordset");
Запрос.ActiveConnection = wc;
Запрос.Source = "SELECT MAX(ID) as MAX_ID FROM person";
Запрос.Open();
Пока Запрос.Eof()=0 Цикл
   Max_ID = Число(Запрос.Fields("MAX_ID").Value);
   Запрос.MoveNext();
КонецЦикла;
Запрос.Close();


// *********************** выбивает тут
Запрос.Source = "
BeginTrans;
Insert into person (ID) values ("+ Строка(Max_ID) +");
CommitTrans;
";

Запрос.Open();
Запрос.Close();
Запрос.Source = "SELECT ID FROM person";
Запрос.Open();
Пока Запрос.Eof()=0 Цикл
   Запрос.MoveNext();
   Сообщить(Запрос.Fields("ID").Value);
КонецЦикла;    
Запрос.Close();

Подскажите как записать и закомитить строчку.
1 Gepard
 
09.04.13
17:42
2 DES
 
09.04.13
17:49
В примере нет записи, только чтение базы.
3 ДенисЧ
 
09.04.13
17:50
Запрос.Source = "INSERT INTO Person (ID, FIO) VALUES(10, 'Путин Дмитрий Ильич')";
Запрос.Open();
4 Gepard
 
09.04.13
18:00
(2) есть, установить статус
5 DES
 
09.04.13
18:02
(3) как коммитить ?
6 МихаилМ
 
09.04.13
18:02
oledb существует лет 15.
а люди пользуются средствами ит-неондертальцев (INSERT)
7 DES
 
09.04.13
18:08
(6) примерчик кинь...
8 DES
 
09.04.13
18:15
(3)
Insert into assured_person (ID, EA, SEX) values (1111,1,""M"")";

Microsoft OLE DB Provider for ODBC Drivers: [ODBC Firebird Driver][Firebird]Dynamic SQL Error
SQL error code = -206
Column unknown
M
At line 1, column 43.
9 DES
 
09.04.13
18:19
копирую Insert into assured_person (ID, EA, SEX) values (2222,1,""M"") в IBexpert - все нормально.
В 1С не хочет
10 МихаилМ
 
09.04.13
18:23
(8)
разбирайтесь с кавычками в кавычках в 1с
11 DES
 
09.04.13
18:26
может дело в DRIVER=Firebird/InterBase(r) driver ?
12 DES
 
09.04.13
18:33
(10) точно. СПС
13 DES
 
09.04.13
18:33
одинарная кавычка помогла
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс