|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.05.2011, 13:03 | #1 |
Пользователь
Регистрация: 12.05.2011
Сообщений: 14
|
Перенос данных между таблицами в разных базах.
Ситуация следующая.
Необходимо в таблицу созданную в SQL Server 2000 загрузить данные из листа эксель. Я разместил на форме компонент ADOQuery связал его с файлом. Затем разместил DataSourse и связал с ADOQuery. Туда же привязал DBgrid. для просмотра результата. Написал SQL запрос для получения значения необходимых полей SELECT nomer, dolhnik, datarohd, adress, summa FROM [Лист1$] До этого момента все работает данные выбирает. А вот как отправить эти данные в таблицу Dolg базы Pris понять не могу. Понимаю, что должно быть не сложно. Но нигде не нахожу описания меж базового обмена. |
12.05.2011, 13:53 | #2 |
Форумчанин
Регистрация: 27.09.2010
Сообщений: 376
|
Здравствуйте
Может что-то вроде этого Код:
|
13.05.2011, 09:58 | #3 |
Пользователь
Регистрация: 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' В чем дело понять не могу, ведь по логике все правильно. |
27.05.2011, 11:54 | #4 |
Пользователь
Регистрация: 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; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос множество данных из разных книг на 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 |