| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi+DTS [D5, MSSQL]

BJValentine ©   (2002-08-09 13:24:00) 

Ребята, помогите. Передо мной стоит серъёзная задача. Пол-предприятия работает с DBF, а половина - с MS Sql. Данные одни и те же. У меня работает прога, которая из DBF копирует нужную часть записей в MS SQL. Всё то оно хорошо, но прога эта глючная и медленная, т. к. я копирую след. образом:
SqlTable.FieldByName("FieldNameSql").asString:=DBFTable.FieldByName("FieldNameDbf).asString;

Помогите мне разобраться с DTS. Чтобы моя прога сама могла использовать функции DTS (ссылку какую-нибудь или экземпл). Заранее спасибо.

---

BJValentine   (2002-08-09 17:01:00) [1]

Sniknik, где ты раньше был? Ты действительно мастер! Большое спасибо!

---

sniknik   (2002-08-09 15:39:00) [2]

Примерчик
IF EXISTS (SELECT * FROM sysobjects WHERE (name = N"CashSail"))
BEGIN
INSERT INTO CashSail
SELECT * FROM mydbfs...CashSail
END ELSE BEGIN
SELECT * INTO CashSail
FROM mydbfs...CashSail
CREATE INDEX CashIndex ON CashSail (CashNumber)
CREATE INDEX ZIndex ON CashSail (ZNumber)
END
это через линкед сервер (в принципе директория подключенная к MSSQL которую он видит как свою базу, обращения видно как ..)

mydbfs здесь он и есть можно руками сделать в Ентерпр.менеджере можно програмно
EXEC sp_addlinkedserver
@server = "MYDBFs",
@provider = "Microsoft.Jet.OLEDB.4.0",
@srvproduct = "OLE DB Provider for Jet",
@datasrc = "C:\",
@provstr = "dBASE IV"
(запрос выполнить в Query Analizere или через ADOCommand)

а без всей этой байды через OPENROWSET тоже самое
IF EXISTS (SELECT * FROM sysobjects WHERE (name = N"CashSail"))
BEGIN
INSERT INTO CashSail
SELECT * FROM OpenRowset("MSDASQL.1", "Driver={Microsoft dBase Driver (*.dbf)};DBQ=D:\Work\Zip;", "select * from CashSail")
END ELSE BEGIN
SELECT * INTO CashSail
FROM OpenRowset("MSDASQL.1", "Driver={Microsoft dBase Driver (*.dbf)};DBQ=D:\Work\Zip;", "select * from CashSail")
END
(здесь драйвер ODBC т.к. с OLEDB проблемы были)

---

Leran2002   (2002-08-09 15:35:00) [3]

В Query1.SQL записываешь что-то типа этого:

INSERT INTO ":MSSQLAlias:Table_Name"
SELECT * FROM ":DBFAlias:Table_Name.dbf"

и в программе выполняешь запрос методом:

Query1.ExecSQL;

---

BJValentine   (2002-08-09 15:15:00) [4]

А можно примерчик таких запросов? И что такое ЛИНКЕД СЕРВЕР?

---

sniknik   (2002-08-09 13:50:00) [5]

Не советую пользоватся DTS, в программе это както некстати. Лутше сделать линкед сервер для подсоедениеия dbf-а к mssql или проше запросами в MSSQL (см. BOL. на OPENROWSET). это позволит в MSSQL "напрямую" брать данные из dbf.

запрос SELECT INTO или INSERT INTO это похоже самый быстрый вариант.

---

MOA   (2002-08-09 13:46:00) [6]

М.б. можно совсем просто - запуск по расписанию DTS пакета не разве не подходит?

---

Наверх