Всем привет!

Люди пособите с проблемой. Есть приложение на VB с базой данных.
Необходимо преобразовать базу данных в текстовый файл при нажатии на кнопку.
Причем, если возможно, то выборочно по колонкам:

|_________________ Таблица _______________|
| Инфо || Теги || Текст | Параметры || Доп. инфо |

нужны только: | Теги || Текст | Параметры |

По форуму искал не нашел!
Если можно, медленно и два раза! А то документации не нашел, книг нет, помоч некому!

Заранее спасибо!

Пожалуйста для полных профанов!
Хочу "написать" програмку для набора объявлений, т.к. для производства крайне необходима - времени крайне не хватает!

Private Sub cmdFail_Click()
Dim ss As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
ss = "Provider=SQLOLEDB;Data Source=C:\Project\Dataobj.mdb;"
cn.Open ss, "UserName", "Password"
ss = "SELECT [Format], [textobj], [texttel] FROM [Tablobj]"
rs.Open ss, cn, adOpenStatic, adLockOptimistic
ss = rs.GetString(adClipString, , "|", "")

f = FreeFile
Open "C:\Project\test.txt" For Output As f
Print #f, ss
Close f
End Sub

Выдает ошибку:
[DBNETLIB] ConectionOpen (ParseConnectParams()).]Недопустимое подключение.

Кузя, может как-нибудь договоримся на boyler@nekto.com или boyler@odigo.com.
Если программу до ума довести, то и продать можно, по крайней мере у нас, но я делаю для себя!

Разобрался наконец.

Private Sub cmdFail_Click()
Dim ss As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Project\Dataobj.mdb;"
cn.Open ss
ss = "SELECT [Format], [textobj], [texttel] FROM [Tableobj]"
rs.Open ss, cn, adOpenStatic, adLockOptimistic
ss = rs.GetString(adClipString, , "|", "")

f = FreeFile
Open "C:\Project\test.txt" For Output As f
Print #f, ss
Close f
End Sub

Кузя, ты настоящий человек, с большой буквы!
Спасибо тебе огромное!

Всем счастья и удачи!!! :-)

А не тут то было!
В процесе возник еще вопрос. Раскрываю великую тайну :-) - делаю программу для набора объявлений под InDesing.
Вопрос таков: после набора объявлений надо чтобы все объявления записывались в тектовый файл по рубрикам (Недвижимость, авто, мото и т.д.).
С записью разобрались, а вот как по рубрикам?..
Попытался сделать так:

'подключение к базе данных объявлений
' с последующим отбором записей в таблице и записи их в переменную
ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Project\Dataobj.mdb;"
cn.Open ss
ss = "SELECT [Format], [textobj], [texttel] FROM [Tableobj] WHERE [Rubrika] = 'Недв/продам'"
rs.Open ss, cn, adOpenStatic, adLockOptimistic
ss = rs.GetString(adClipString, , " ", "")

' Записываем переменную в файл
Print #f, ss

'еще раз подключение к базе данных объявлений
' с последующим отбором записей в таблице и записи их в переменную
ss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Project\Dataobj.mdb;"
cn.Open ss
ss = "SELECT [Format], [textobj], [texttel] FROM [Tableobj] WHERE [Rubrika] = 'Недв/Куплю'"
rs.Open ss, cn, adOpenStatic, adLockOptimistic
ss = rs.GetString(adClipString, , " ", "")

' Записываем переменную в файл
Print #f, ss

НИХРЕНА НЕ РАБОТАЕТ!!!
Error: "Операция не допускается, если объект открыт!"

но я и сам вижу что это идеотизм каждый раз подключаться к базе и по одной рубрике записывать все в файл. Да и не работает такой вариант.

Как можно это оптимизировать?

Кузя, у тебя дар делать людей чуточку счастливее :-)

От всей конторы тебе БОЛЬШОЕ спасибо!
Был бы у нас в городе поставил бы ящик ...!

И последняя проблема :-)
Извини за наглость конечно, я обещаю поставить: "(с) Кузя & Boyler".

Количество выходов объявлений надо минусовать на один (-1), после выхода онных. В базе есть отдельный столбец "Kol". Возможно ли?

За отсутствие ответа не обижусь, понимаю что надоел ;-)!

"(с) Кузя & Boyler" - уже поставил! ;-)

Программа почти закончена, если тебе будет интересно кину сорс может пригодится кому!

Всем хорошим людям пламенный привет!

Еще один вопрос по тематике!
При выборки объявлений для записи в файл срабатывает дебагер если в базе данных нет записей в какой либо из рубрик!

Уточняю:
Допустим если в рубрике недвижимость нет объявления то валится вся программа.

Как зафиксить сей баг?
пробовал ставить условие на переменную "ss" - не срабатывает!
А может и неправильно поставил:

if ss = "" Then GoTo ...