Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Select ... into NewTable.dbf - ошибка синтаксиса Добавлено: 08.10.03 18:32  

Автор вопроса:  the Pagan | Web-сайт: gazprommed.irk.ru | ICQ: нет 

Здравствуйте!

Не подскажете как быть, нужно из одной таблицы dbf выбрать данные и записать выборку (рекордсет) в новую таблицу и сохранить на диск.

Вот такой синтаксис выдаёт ошибку.

Dim ocon As ADODB.Connection
Dim rs As ADODB.Recordset
    
Set ocon = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")


ocon.Open "Driver={Microsoft Visual FoxPro Driver}; SourceType=DBF; SourceDB=G:\Мои документы"

rs.Open "select * into G:\sample.dbf  from recept.dbf", ocon, 3, 1

Вот на последнюю строку матюгатся. Хотя просто выборку делает без проблем и если этот запрос пишу в VisData, то он работает.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 vitus



Вопросов: 9
Ответов: 43
  Web-сайт: www.jgukz.narod.ru
 Профиль | Цитата | #1 		Добавлено: 09.10.03 13:21

Поробуй так вставь эту строчку вместо своей.

strCnn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=ReadWrite;Initial Catalog=E:\BUX\REGSARC"

Вместо E:\BUX\REGSARC вставь свой путь к таблице.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам