Имя: Пароль:
1C
1С v8
ADO и MSSQL Помогите
0 bacila
 
20.08.14
16:44
Вопрос следующий, как через адо создать: Проверить если таблица, если есть очистить если нет то создать, и заполнить  ее.
1 bacila
 
20.08.14
16:45
Вопрос следующий, как через адо : Проверить есть ли таблица, если есть очистить если нет то создать, и заполнить  ее.
2 ДенисЧ
 
20.08.14
16:46
IF OBJECT_ID('MyTable', 'U') IS NULL
  create table MyTable (...)
ELSE
  truncate table MyTable
3 bacila
 
20.08.14
16:47
(2) можно чуточку подробнее, выполнять это через команнд или рекорд сет , и как заполнять , и я так понимаю надо еще как то типы указать
4 ДенисЧ
 
20.08.14
16:48
(3) Через соединение.Execute()
А про как заполнять - иди читай учебники.
5 bacila
 
20.08.14
16:50
(4) спасибо и на этом
6 rsergio
 
20.08.14
16:53
(0) Вот пример создания индекса, чуть подправить и можно работать с таблицами.

    Connection = Новый COMОбъект("ADODB.Connection");    
    Попытка
        Connection.Open("driver={SQL Server};server="+ИмяСервера+";uid=user;pwd=******;Database="+ИмяБазыДанных);    
    Исключение
        ЗаписьЖурналаРегистрации("Индексы", УровеньЖурналаРегистрации.Ошибка, , , ОписаниеОшибки());
        Возврат;
    КонецПопытки;                            
    Command = Новый COMОбъект("ADODB.Command");
    Command.ActiveConnection = Connection;

    СтрокаСкрипта = "
    |USE ["+ИмяБазыДанных+"]
    |IF  NOT EXISTS (SELECT * FROM sys.indexes WHERE object_id = OBJECT_ID(N'[dbo].["+СтрокаСтруктурыБД.ИмяТаблицыХранения+"]') AND name = N'"+НазваниеИндекса+"')
    |CREATE "+?(Выборка.Уникальный,"UNIQUE","")+" NONCLUSTERED INDEX ["+НазваниеИндекса+"] ON [dbo].["+СтрокаСтруктурыБД.ИмяТаблицыХранения+"]
    |(
    |    "+СтрокаПолей+"
    |)WITH (SORT_IN_TEMPDB = OFF, DROP_EXISTING = OFF, IGNORE_DUP_KEY = OFF, ONLINE = OFF) ON [PRIMARY]";
    
    Command.CommandText = СтрокаСкрипта;    
    Command.CommandType = 1;    
    Command.Execute();
7 bacila
 
20.08.14
18:10
(6) Да таблицы уже, создал, щас думаю как значения запихнуть в них
8 rsergio
 
20.08.14
18:13
(7) INSERT, UPDATE
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.