Base -> txt

[SK | Heaton]

Мужики как перекинуть таблицу при помощи кода в тхт файл
заранее благодарю

[Konst_One]

из какой базы?

[SK | Heaton]

mdb.. пользуюсь ADODC

[Konst_One]

через SELECT INTO с IN '' и указанием драйвера и названия файла. см. документацию по акцессу

[Konst_One]

и еще вот это посмотри:

http://bbs.vbstreets.ru/viewtopic.php?p=131550#131550

[SK | Heaton]

OK ща посмотрью

[SK | Heaton]

если честно сказать ни**ра не понял..
Konst_One
напиши пожалуйста как скопировать однутаблицу в другую. Или как скопировать в тхт файл..
Буду очень признателен

[SK | Heaton]

в одной базе есть таблица data и rep. Структура таблиц одинаково. Просто надо скопировать таблицу data в rep..

[Konst_One]

Код: Выделить всё

select * into REP  in 'C:\TMP\copy.mdb'
from DATA

REP - не дожно быть перед выполнение данного запроса в базе copy.mdb

[Konst_One]

если обе таблицы уже существуют и лежат в одной базе и имеют одинаковую структуру, то тогда так:

Код: Выделить всё

insert into [rep] select * from [data]

[SK | Heaton]

Konst_One
опупеть
поставил запрос который ты написал. он грит действия не пашит так,как объект закрыт.. Я открываю объект. А он пишет действия не пашит так,как объект ОТКРЫТ.. я не пойму
Мне надо скопировать таблицу после фильтрации и сортировки с Рекордсета на REP. А твой запрос вроде все копирует..

[Konst_One]

Код:

Код: Выделить всё

insert into [rep] select * from [data] WHERE ...

и вставляй условия выборки какие тебе нужны

[SK | Heaton]

таже ошибка грит что закрыт и Application - defined or object-defined error

Код: Выделить всё

Adodc1.RecordSource = "insert into [rep] select * from [data] where date between " & d1 & " and " & d2 & " order by sim asc"


[Konst_One]

кажется тебе сначала почитать по работе с базами данных книжечку какую-нибудь, а потом уже вопросы задавать. я тебе код SQL давал, чтобы его не в ADODC вставлять в качестве источника , а для выполнения через ADODB.Connection

[Konst_One]

order by в запросе INSERT - это сильно

[SK | Heaton]

Хорош смятся над начинающим..Вместо того чтоб научит, ты смеёшься..

Ну объясни куда писать плизз.

[Konst_One]

SQL , который я тебе дал можно выполнить через Connection:

Код: Выделить всё

Dim cn as ADODB.Connection
Dim SQL as string

SQL="insert into [rep] select * from [data] where date between " & d1 & " and " & d2

Set cn=New ADODB.Connection
cn.Open "Provider=Microsoft Jet 4.0 OLE DB Provider;Data Source=C:\tmp\my.mdb;User ID=Admin;Password=;"

cn.Execute SQL

[Konst_One]

учиться лучше по книжкам умным , а не по ответам на форуме ИМХО

[SK | Heaton]

пасиб учту..
Завтро проверьюю

еще раз пасиб

[SK | Heaton]

Konst_One
получилось... пасиб..

А ты не знаешь как можно вызвать форму отчета Аксеса на Вб ?!

[lord0n]

Konst_One
получилось... пасиб..

А ты не знаешь как можно вызвать форму отчета Аксеса на Вб ?!

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

[SK | Heaton]

lord0n
да искал я..
нету...
если знаешь скажи..

[Konst_One]

форму отчета акцесса вернуть в бейсик никак нельзя.
можно сделать снэпшот твоего отчета и его уже показать при помощи снепшот вьювера (есть кажется и ocx для этого). отчет предварительно должен быть подготовлен.

[SK | Heaton]

Отчет готов.. Просто надо чтоб его показывал, отчет менятся при изменение таблицы..

[Konst_One]

читай предыдущий пост

[SK | Heaton]

(есть кажется и ocx для этого). отчет предварительно должен быть подготовлен.

а что насчёт этого ?!

[Konst_One]

snapshot (.snp) см. документацию на акцесс

[Konst_One]

http://www.accessdatabasetips.com/ms-access-snapshot-reports.html

http://office.microsoft.com/ru-ru/assistance/HP052612161049.aspx

http://support.microsoft.com/default.aspx?scid=kb;ru;175274

http://office.microsoft.com/ru-ru/assistance/HP052612151049.aspx[/url]

[SK | Heaton]

ВОТ ПАСИБ... ЕСЛИ БЫЛ БЫ РЕП я бы ДОБАВИЛ ТЕБЕ