Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2011, 13:03   #1
Volodq
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 14
По умолчанию Перенос данных между таблицами в разных базах.

Ситуация следующая.
Необходимо в таблицу созданную в SQL Server 2000 загрузить данные из листа эксель.
Я разместил на форме компонент ADOQuery связал его с файлом.
Затем разместил DataSourse и связал с ADOQuery.
Туда же привязал DBgrid. для просмотра результата.
Написал SQL запрос для получения значения необходимых полей
SELECT nomer, dolhnik, datarohd, adress, summa
FROM [Лист1$]
До этого момента все работает данные выбирает. А вот как отправить эти данные в таблицу Dolg базы Pris понять не могу.
Понимаю, что должно быть не сложно. Но нигде не нахожу описания меж базового обмена.
Volodq вне форума Ответить с цитированием
Старый 12.05.2011, 13:53   #2
OlegVE
Форумчанин
 
Регистрация: 27.09.2010
Сообщений: 376
По умолчанию

Здравствуйте
Может что-то вроде этого
Код:
...
 ADOQueryExcel.First;
 while not ADOQueryExcel.Eof do
 begin
  AdoQuerySQL2000.Close;
  AdoQuerySQL2000.SQL.Text := 'INSERT into Dolg (nomer, dolhnik, datarohd, adress, summa) values ('ADOQueryExcel.FieldByName('nomer').AsString+','
+ADOQueryExcel.FieldByName('dolhnik').AsString+','
+ADOQueryExcel.FieldByName('datarohd').AsString+','+ADOQueryExcel.FieldByName('adress').AsString+','
+ADOQueryExcel.FieldByName('summa').AsString+')';
  AdoQuerySQL2000.ExecSQL;
  ADOQueryExcel.Next;
 end;
...
До свидания
OlegVE вне форума Ответить с цитированием
Старый 13.05.2011, 09:58   #3
Volodq
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 14
По умолчанию

Сделал следующее
Переименовал компоненты для доступа к БД на AdoQuerySQL2000 и ADOQueryExcel
настроил связь. проверил SELECT-ом выборка работает.
Очистил в AdoQuerySQL2000 содержимое раздела хранящего запрос.
В ADOQueryExcel в разделе хранящем запрос оставил запрос указанный выше.
Создал кнопку в её событии клик разместил запрос.
При попытке запуска программы выдает ошибку указатель стоит как написал ниже.
values ('ADOQueryExcel|.FieldByName('nomer').AsString+','
текст ошибки
[Error] Vnes_dann.pas(140): Missing operator or semicolon
[Error] Vnes_dann.pas(143): Statement expected, but expression of type 'String' found
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Vnes_dann.pas'
В чем дело понять не могу, ведь по логике все правильно.
Volodq вне форума Ответить с цитированием
Старый 27.05.2011, 11:54   #4
Volodq
Пользователь
 
Регистрация: 12.05.2011
Сообщений: 14
По умолчанию

В итоге получилось так
ADOQueryExcel.Open;
ADOQueryExcel.First;
while not ADOQueryExcel.Eof do
begin
Dolhniki_Query.Close;
Dolhniki_Query.SQL.Text:= 'INSERT INTO [Dolg] ([Nomer_Dok], [Dolhnik], [datarohd], [Adress], [Summa])'+
'VALUES ('+QuotedStr(ADOQueryExcel.FieldByN ame('nomer').AsString)+
','+QuotedStr(ADOQueryExcel.FieldBy Name('nomer').AsString)+
','+QuotedStr(ADOQueryExcel.FieldBy Name('datarohd').AsString)+
','+QuotedStr(ADOQueryExcel.FieldBy Name('adress').AsString)+
','+QuotedStr(ADOQueryExcel.FieldBy Name('summa').AsString)+')';
Dolhniki_Query.ExecSQL;
ADOQueryExcel.Next;
end;
Volodq вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос множество данных из разных книг на 1 лист общей книги Nick-1984 Microsoft Office Excel 2 06.04.2011 13:02
Триггеры в базах данных OCTAGRAM PHP 5 02.03.2011 01:47
Перенос данных с разных листов в один с фильтром... Tsvetochek Microsoft Office Excel 3 15.05.2010 17:06
обмен данными из двух таблиц (одинаковой структуры) но в разных базах Tanuska___:) БД в Delphi 1 26.11.2008 19:41
Перенос записей между таблицами Македонский БД в Delphi 12 27.08.2007 09:41