• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

SQL Server... Timeout Expired

  • Автор темы redfox
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

redfox

Добрый день всем!
Имеется в наличии ERP система, работающая с SQL Server .
Подключаюсь к SQL Server базе через ADO(Delphi 6.0).
ADOConnection:=True - без малейших проблем.
Но... когда пытаюсь выполнить зарос (ADODataSet.Active:=True)...выжидает таймаут и выдает TIMEOUT EXPIRED. С чем это связвно, как бороться? Коллега из VB через OLEDB подключается и такого коммуниката не получает. Стоит сказать, что такое сообщение появляется, когда просматривается одна из таблиц средствами ERP. Подскажите, какие свойства объектов ADOConnection & ADODataSet стоит определить?
 
A

admin

Код:
 object Connection: TADOConnection
 Connected = True
 ConnectionString = 
  'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  'Source=E:\Program Files\Common Files\Borland Shared\Data\DBDEMOS' +
  '.mdb;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System data' +
  'base="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="' +
  '";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet ' +
  'OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactio' +
  'ns=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System ' +
  'Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't ' +
  'Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica R' +
  'epair=False;Jet OLEDB:SFP=False'
 LoginPrompt = False
 Mode = cmReadWrite
 Provider = 'Microsoft.Jet.OLEDB.4.0'
 Left = 32
 Top = 72
end

object DataSet: TADODataSet
 Connection = Connection
 CursorType = ctStatic
 CommandText = 'select * from customer'
 Parameters = <>
 Left = 40
 Top = 112
end

У меня с такой строчкой работает на ура. Тока свою БД подставь в пути.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!