Переключение на Главную Страницу Страницы: 1 [2]  ОтправитьПечать
Горячая тема (более 10 ответов) Хелп!! (число прочтений - 6081 )
U_zer
Экс-Участник


Re: Хелп!!
Ответ #15 - 02. Февраля 2007 :: 07:09
Печать  
Цитата:
Цитата:
Кинь ссылку плиз!

на микрософте или на том же MSDN поисковиком ишешь, я всегда так делаю, особенно если перестает шото работать иду сюда и качаю что необходимо...
искать тебе нужно 2 драйвера ODBC и OLE DB, исли они до сих пор не объедены в один


УРЯ!!!! Заработало!!!

Но вопрос 2) остается в силе. Может кто сталкивался?
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хелп!!
Ответ #16 - 02. Февраля 2007 :: 08:35
Печать  
Цитата:
Цитата:
Цитата:
Кинь ссылку плиз!

на микрософте или на том же MSDN поисковиком ишешь, я всегда так делаю, особенно если перестает шото работать иду сюда и качаю что необходимо...
искать тебе нужно 2 драйвера ODBC и OLE DB, исли они до сих пор не объедены в один


УРЯ!!!! Заработало!!!

Но вопрос 2) остается в силе. Может кто сталкивался?


Если я тебя правильно понял, то примерно вот так:
Код
Выбрать все
		SELECT *
			FROM $Регистр.Продажи AS Прод

		into table temp_table 


temp_table.dbf - имя этого временного файла
  
Наверх
 
IP записан
 
U_zer
Экс-Участник


Re: Хелп!!
Ответ #17 - 02. Февраля 2007 :: 09:18
Печать  
JohnyDeath писал(а) 02. Февраля 2007 :: 08:35:
Если я тебя правильно понял, то примерно вот так:
Код
Выбрать все
		SELECT *
			FROM $Регистр.Продажи AS Прод

		into table temp_table 


temp_table.dbf - имя этого временного файла


У меня есть следующее:

Код
Выбрать все
Рез = База.Соединение("Driver={Microsoft Visual FoxPro te=Russian;NULL=YES;DELETED=NO;BACKGROUNDFETCH=YES;");
Если Рез <> 0 Тогда
     ИмяФайла=СтрЗаменить(Парам.ПолучитьЗначение(С+1),".dbf","");
     Запрос = СоздатьОбъект("ODBCRecordSet");
     Запрос.УстБД(База);
     ТабСФ = Запрос.ВыполнитьИнструкцию("select
			 |D.MNFNMR as MNFNMR,
	   |D.DRUGTXT as DRUGTXT,
     	   |D.SERNM as SERNM,
	   |D.LETTERSNR as LETTERSNR,
	   |D.LETTERSDT as LETTERSDT,
		 |D.QUALNMR as QUALNMR
	   |from "+ИмяФайла+" D
	   |");
	База.Закрыть()
КонецЕсли;
Запрос = СоздатьОбъект("ODBCRecordSet");
Запрос.Выполнить("delete from dbo.BrackT");
ТЗ = "
|insert dbo.BrackT (MNFNMR, DRUGTXT, SERNM, LETTERSNR, LETTERSDT, QUALNMR) Values(?,?,?,?,?,?)";
Если Запрос.Подготовить(ТЗ) = 1 Тогда
    Запрос.ВыполнитьSQL_изТЗ(ТабСФ);
КонецЕсли;
 



Хотелось бы это как-то объединить в 1 селект/инсерт. Если это возможно.
  
Наверх
 
IP записан
 
JohnyDeath
1c++ power user
1c++ donor
Отсутствует



Сообщений: 3050
Местоположение: Волгоград
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хелп!!
Ответ #18 - 02. Февраля 2007 :: 09:42
Печать  
Ну примерно так:
Код
Выбрать все
select
	|D.MNFNMR as MNFNMR,
	|D.DRUGTXT as DRUGTXT,
	|D.SERNM as SERNM,
	|D.LETTERSNR as LETTERSNR,
	|D.LETTERSDT as LETTERSDT,
	|D.QUALNMR as QUALNMR
	|from "+ИмяФайла+" D
	|into table BrackT
	|"); 


В результате появится файл с именем BrackT.dbf
На ОДБЦ не проверял, поэтому не знаю. Рекомендую использовать ОЛЕДБ: и быстрее и возможностей побольше.
  
Наверх
 
IP записан
 
U_zer
Экс-Участник


Re: Хелп!!
Ответ #19 - 02. Февраля 2007 :: 09:44
Печать  
Да у меня база SQL.
Я как раз и пытаюсь вычитать данные из dbf файла и засунуть их в SQL таблицу.
Таблицу уже создал в базе. Нафиг же мне второй дбф файл-то?
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1 [2] 
ОтправитьПечать