Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проблема с переносимостью программы с ADO, программа с ADO не работает на др.ПК 
V
    Опции темы
Roman1
Дата 25.10.2012, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 12.10.2007

Репутация: нет
Всего: нет



Всем доброго времени суток. Прошу помочь с разрешением следующей проблемы. Написана программа, через которую
производится работа с БД МS SQL Server - заполнение и выборка.  Использовал самые простые компоненты и события: ADOConnection, 
DBGrid, ADOQuery и т.п. 
На компьютере, где производится сборка, программа работает отлично как с локальным так и с сетевым MS SQL Server.
Среда программирования - Delphi 2007.  
При переносе этой программы на другие компьютеры нормальная работа заканчивается. Становится невозможным записать
данные в БД, а выборка работает хорошо. При этом дело не в правах доступа, так как с одним и тем же сервером 
(с установками по умолчанию, без пароля и т.п.) с компьютера разработчика, по сети, все идет нормально, а с другого, 
где этот сервер локальный, нет.
По ходу написания программы обнаружилось еще одно. Здесь на форуме скачал код для получения списка серверов в сети:

procedure TLoginForm.btnServerListRefreshClick(Sender: TObject);
var
  dmo: Variant;
  i: Integer;
begin
  try
    Screen.Cursor:= crHourGlass;
    dmo:=CreateOleObject('SQLDMO.Application');
    for i:=0 to dmo.ListAvailableSQLServers.Count do
      if (Length(trim(dmo.ListAvailableSQLServers.Item(i))) > 0) and
        (CompareText(AnsiUpperCase(dmo.ListAvailableSQLServers.Item(i)),'(LOCAL)')<>0) then
          cbbServerName.Items.Add(AnsiUpperCase(dmo.ListAvailableSQLServers.Item(i)));
    Screen.Cursor:= crDefault;
  except
    on e: Exception do
    begin
      Application.MessageBox(PChar('Нет доступа к SQL-серверу. Обратитесь к администратору.'),'Обновление списка серверов',48);
      ErrLOG('TLoginForm.btnServerListRefreshClick',e.Message,'','',Sender);
      Screen.Cursor:= crDefault;
    end;
  end;
end;

Так вот, на компьютере разработчика все работает нормально, а на другом ПК - нет.  Установил на другой ПК среду разработки. Оказалось, сбой 
идет на строке dmo:=CreateOleObject('SQLDMO.Application');

Подскажите пожалуйста, что нужно включить, выключить, добавить и т.п. чтобы все заработало?
Спасибо.
PM MAIL   Вверх
Данкинг
Дата 25.10.2012, 21:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130



Значит, этот "SQLDMO.Application" нужно установить на другой комп. Гугл по "SQLDMO.Application" подскажет, например, вот.

Цитата(Roman1 @  25.10.2012,  22:23 Найти цитируемый пост)
Становится невозможным записать
данные в БД

Ошибка-то какая?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Roman1
Дата 26.10.2012, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 12.10.2007

Репутация: нет
Всего: нет



По поводу невозможности записи в БД прошу меня извинить. Вопрос оказался в другом. После установки среды
программирования на другой ПК на отладке выяснилось, что до записи в БД программа просто-напросто не доходит
по не связанным с ADO причинам. А по второму вопросу спасибо за подсказку, сейчас буду заниматься поиском.
Всем удачи, вопрос закрыт.
 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.0474 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.