Имя: Пароль:
1C
1С v8
Как подключится из 1с к файлу .GDB (interbase)
,
0 zerat
 
21.10.14
15:52
Всем привет! Собственно вопрос в теме. Кто что знает подскажите плиз.
1 Looser-1c
 
21.10.14
15:53
Драйвера ODBC поставить
2 zerat
 
21.10.14
15:53
(1) подробнее плиз, впервые слышу
3 zerat
 
21.10.14
15:55
так..драйвер стоит
4 Looser-1c
 
21.10.14
15:55
5 Sa6nek6
 
21.10.14
15:59
а кусочка кода нет случаем ни у кого?
6 Sa6nek6
 
21.10.14
16:33
Up
7 Sa6nek6
 
21.10.14
17:12
Сonn = Новый COMОбъект("ADODB.Connection");
  Сonn.ConnectionString = "Driver=Firebird/InterBase(r) driver;" +
     "Dbname=SASHKA/3050:C:\Program Files\VesySoft\Server\DataBase\VESYEVENT.GDB;" +  // Исправьте на свой IP, порт и путь к базе данных !
     "UID=SYSDBA;" +                                     // Исправьте на свое имя пользователя !
     "PWD=masterkey;" +                                  // Исправьте на правильный пароль !
     "CHARSET=WIN1251;" +                                // Исправьте на свою кодировку подключения !!!
     "client=C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll";
  Сonn.ConnectionTimeout = 180;
  Сonn.CursorLocation = 3;
  //Подключаемся к базе данных
  Попытка
   Сonn.Open(Сonn.ConnectionString);
  Исключение
   Сообщить("Не удалось выполнить подключение " + ОписаниеОшибки());
    Возврат;
  КонецПопытки; //

   //Выполнение простого DML-запроса
  Попытка
    Сonn.Execute("INSERT INTO MY_TABLE(ID,NAME)VALUES(0, 'Значение' ); ");
  Исключение
    Сообщить("Не удалось выполнить запрос " + ОписаниеОшибки());
    Сonn.Close();
    Возврат;
  КонецПопытки; //
8 Sa6nek6
 
21.10.14
17:12
Попытка
    Сonn.Execute("INSERT INTO MY_TABLE(ID,NAME)VALUES(0, 'Значение' ); "); - Что это?
9 Сергиус
 
21.10.14
17:15
(8)Что тебе не понятно?
10 Sa6nek6
 
21.10.14
17:16
"INSERT INTO MY_TABLE(ID,NAME)VALUES(0, 'Значение' ); "); -
11 Sa6nek6
 
21.10.14
17:19
(9) зачем эта строка где поискать литературку
12 Sa6nek6
 
21.10.14
17:19
(9) нужно выбрать дынне
13 Сергиус
 
21.10.14
17:20
(10)В таблицу MY_TABLE вставляется запись с полями ID = 0 и NAME = Значение"..обычная вставка.
14 Сергиус
 
21.10.14
17:20
(12)Выборка через SELECT
15 Sa6nek6
 
21.10.14
17:21
RecordSet.Open("SELECT T.MY_FIELD1 FROM MY_TABLE T WHERE (T.FIELD = 'SomeValue')", Conn) (14)
16 Сергиус
 
21.10.14
17:25
(15)Ну похоже направду..проверь как работает
17 Sa6nek6
 
21.10.14
17:47
Connection = Новый COMОбъект("ADODB.Connection");
      Connection.ConnectionString = "Driver=Firebird/InterBase(r) driver;" +
     "Dbname=SASHKA/3050:C:\Program Files\VesySoft\Server\DataBase\VESYEVENT.GDB;" +  // Исправьте на свой IP, порт и путь к базе данных !
     "UID=SYSDBA;" +                                     // Исправьте на свое имя пользователя !
     "PWD=masterkey;" +                                  // Исправьте на правильный пароль !
     "CHARSET=WIN1251;" +                                // Исправьте на свою кодировку подключения !!!
     "client=C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll";
    Connection.ConnectionTimeOut = 60;
    Connection.CommandTimeout = 60;
    Connection.CursorLocation = 3;    
    Попытка
        Connection.Open();
    Исключение
        Сообщить("Подключение к БД <Супер окна> не установлено. Проверьте настройки подключения");
        Connection = Неопределено;
    КонецПопытки;
    
    Запрос = Новый COMОбъект("ADODB.Recordset");
    Запрос.ActiveConnection = Connection;
    ЗапросТекст =
    "SELECT VW_SP_REG.DATETIME_UPDATE,
     |VW_SP_REG.PHOTO1,
     |VW_SP_REG.PHOTO2,
     |VW_SP_REG.EVENS_REG
     |FROM VW_SP_REG";
    Запрос.Open(ЗапросТекст);
    Пока Запрос.EOF() = 0 Цикл
    r=4;    
    КонецЦикла;                                    
    
    Запрос.Close();
18 Sa6nek6
 
21.10.14
17:54
Нужно условие поставить что то типо
VW_SP_REG.EVENS_REG = "МойТекст"
19 Sa6nek6
 
21.10.14
17:54
КАК???
20 Sa6nek6
 
21.10.14
17:57
"SELECT VW_SP_REG.DATETIME_UPDATE,
     |VW_SP_REG.PHOTO1,
     |VW_SP_REG.PHOTO2,
     |VW_SP_REG.EVENS_REG
     |FROM VW_SP_REG WHERE (VW_SP_REG.EVENS_REG = Незафиксированный проезд транспорта)"
21 Sa6nek6
 
21.10.14
17:57
так не правильно
22 Сергиус
 
21.10.14
18:01
(21)"SELECT VW_SP_REG.DATETIME_UPDATE,
     |VW_SP_REG.PHOTO1,
     |VW_SP_REG.PHOTO2,
     |VW_SP_REG.EVENS_REG
     |FROM VW_SP_REG WHERE (VW_SP_REG.EVENS_REG =     'Незафиксированный проезд транспорта')"
23 Chameleon1980
 
21.10.14
18:34
строку подключения и провайдер в вмде драйвера
усё
24 Sa6nek6
 
21.10.14
20:47
(22) Спасибо! Потом уже вспомнил что когда то давно изучал sql запросы и все получилось!