Как записать текстовый файл в Recordset?

[aol]

Уважаемые Гуру Васика!

Заблудился в 3-х соснах:

Есть текстовый файл test.txt
1;2;3
3;2;1

Есть следующий код:
Private Sub Command1_Click()
Dim rst As Recordset
Dim dbs As Database
Set dbs=OpenDatabase(App.Path, False,False, "Text;")
Set rst=dbs.OpenRecordset("test.txt")
End Sub

Есть schema.ini
[test.txt]
ColNameHeader=True
Format=Delimited(;)
MaxScanRows=25
CharacterSet=OEM

Получается ошибка: Run-time error '13' Type mismatch

Что не так?

Не пинайте больно!

[alibek]

Скорее всего подключены и DAO, и ADO.
Подключи в референсах только одну библиотеку или в декларациях описывай полное название класса (с именем библиотеки).

[Konst_One]

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

Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset

Set cn=New ADODB.Connection
cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
                   "Dbq=" & App.Path & ";" & _
                   "Extensions=asc,csv,tab,txt;" & _
                   "Persist Security Info=False"

Set rs=New ADODB.Recordset
Set rs.ActiveConnection=cn

rs.Open "SELECT * FROM [test.txt]"

[Random]

Попробуй Visual Data Meneger. Главное подключться к БД.
А там - делай что хочешь

[aol]

Спасибо, что не бросили в трудную минуту!

Действительно оказалось, что у меня подключены DAO и ADO.


Вопросы к Konst_One:

1. При таком подключении необходимо ли наличие schema.ini?
2. Связываю Adodc1 и DataGrid1, дописываю в Ваш код, чтобы посмотреть содержимое rs следующее:

Set Adodc1.Recordset = rs
Adodc1.Refresh
DataGrid1.Refresh

В итоге в DataGrid1 пустота.
Опять что-то делаю не так?

Извините за назойливость. С уважением...

[CORBA]

Спасибо, что не бросили в трудную минуту!

Действительно оказалось, что у меня подключены DAO и ADO.


Вопросы к Konst_One:

1. При таком подключении необходимо ли наличие schema.ini?
2. Связываю Adodc1 и DataGrid1, дописываю в Ваш код, чтобы посмотреть содержимое rs следующее:

Set Adodc1.Recordset = rs
Adodc1.Refresh
DataGrid1.Refresh

В итоге в DataGrid1 пустота.
Опять что-то делаю не так?

Извините за назойливость. С уважением...

>>1. При таком подключении необходимо ли наличие schema.ini?

А разве для доступа к текстовому файлу нужно схемы прописывать?

>>2. ....

Ты не грид с рекордсетом связал, а два рекордсета между собой.

ЗЫ Могу ошибиться VB под рукой нет, но вроде так надо :

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

Set DataGrid1.DataSource = rs

[aol]

Уважаемому COBRA!

Схему всетаки прописывать необходимо, а то как без неё форматировать текстовый файл?

Я ADODC1 и DataGrid1 предварительно связал в форме. Потом в коде пытаюсь в ADODC1 записать содержимое rs, чтобы оно отобразилось в DataGrid1. Но к сожалению в DataGrid1 ничего не появляется.

Set DataGrid1.DataSource = rs дает ошибку '7004'

[Twister]

Уважаемому COBRA!

Вообще-то CORBA...

[aol]

Уважаемый CORBA!

Прошу прощения!

Это все пальцы толстые...

[Konst_One]

schema.ini - обязателен
ADODC - лучше не использовать, а работать напрямую с рекордсетом, как я уже написал.
Грид надо подключать = Microsoft DataGrid Control 6.0 (SP6) (OLEDB)

[aol]

Благодарю всех за участие!

Мне удалось с помощью кода, любезно предоставленного Konst_One, решить мою задачу.

Удачи, господа!