| Вопрос: Чтение из ДБФ | Добавлено: 14.05.05 18:40 |
Автор вопроса:  Junior
|
|
Наверное я не первый и не десятый, задающий подобный вопрос, но ответа на сайте я не нашел, дайте ссылку плз или ответ
Есть DBF файл из 2 колонок. Как подключиться к этому файлу и выдернуть записи из первой клолнки аналог для текстовика прост Open "С:\1.txt" For Input As #FN Do Until EOF(FN) Line Input #FN, strstring loop вот мне тоже, только из DBF а если можно, то принцип как из других баз данные тянуть |
| Ответы | Всего ответов: 19 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 17.05.05 11:22 |
|
Ставишь элемент Data,подключаешь dbf, пишешь:
sub ReadX() with data1.recordset .movefirst do while not .eof() strstring=!Имя_поля .......чего там с ним делать... loop end with end sub |
||
|
Номер ответа: 2 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 17.05.05 11:47 |
| Извиняюсь.... перед LOOP забыл поставить .MoveNext | ||
|
Номер ответа: 3 Автор ответа: Junior Вопросов: 8 Ответов: 15 |
Профиль | | #3 | Добавлено: 17.05.05 18:56 |
|
Возникли трудности с подключением к этой базе...
Set cn = New ADODB.Connection cn.ConnectionString = "c:\acc.dbf" cn.Open Судя по нужно указать драйвер, хотя cn.Provider = "MSDASQL.1" должен быть по умолчанию, но ни с этой строчкой, ни без нее не подключает. Если использовать Data View Window, то мастером прекрасно подключает к этой базе и видны поля таблицы. |
||
|
Номер ответа: 4 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #4 | Добавлено: 17.05.05 19:33 |
|
А ты подключись через DAO a не через ADO.
т.е. с помощью контрола data. там без проблем. |
||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 17.05.05 19:40 |
|
А строка подключения к ADO что-то вроде:
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="
 SN=Файлы dBASEBQ=с:\TempefaultDir=c:\tempriverId=533;MaxBufferSize=2048;PageTimeout=5;";Initial Catalog=c:\temp |
||
|
Номер ответа: 6 Автор ответа: JuniorВопросов: 8 Ответов: 15 |
Профиль | | #6 | Добавлено: 17.05.05 20:27 |
| а пример можно? | ||
|
Номер ответа: 7 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #7 | Добавлено: 17.05.05 20:45 |
|
Увы - не использую ADO. Пока что лишь DAO,
но ты можешь поставить контрол Microsoft ADO Data Control (msadodc.ocx), там вроде более-менее ясно... |
||
|
Номер ответа: 8 Автор ответа: JuniorВопросов: 8 Ответов: 15 |
Профиль | | #8 | Добавлено: 17.05.05 21:37 |
|
Мне все равно, что использовать, главное, что бы работало. У меня пример есть на ADO, то только он на строку Set cn = New ADODB.Connection ругается Automation error
А с DAO примеров нет. |
||
|
Номер ответа: 9 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #9 | Добавлено: 18.05.05 10:06 |
|
На.
_http://www.arsbas.narod.ru/dao.zip |
||
|
Номер ответа: 10 Автор ответа: JuniorВопросов: 8 Ответов: 15 |
Профиль | | #10 | Добавлено: 18.05.05 18:03 |
|
Супер, работает! Спасибо.
Только почему то ругается на эти 4 строки ata1.RecordSource = "Select account from acc"
ata1.Refresh
ata1.Recordset.MoveLast: Data1.Recordset.MoveFirst
ProgressBar1.Min = 0: ProgressBar1.Max = Data1.Recordset.RecordCount Говорит, мол Object doesn't support this property or method Но в файлик данные пишутся! У меня MS DAO 3.6 подключена |
||
|
Номер ответа: 11 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #11 | Добавлено: 18.05.05 19:02 |
|
Только почему то ругается на эти 4 строки Хм... Что значит на 4? На конкретную строку не указывается, что-ли?
|
||
|
Номер ответа: 12 Автор ответа: JuniorВопросов: 8 Ответов: 15 |
Профиль | | #12 | Добавлено: 18.05.05 19:29 |
| На любую из этих четырех | ||
|
Номер ответа: 13 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #13 | Добавлено: 18.05.05 19:39 |
Чудны дела твои Господи!.... 
Можешь прислать на arsbas@narod.ru? Ты меня заинтересовал. |
||
|
Номер ответа: 14 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #14 | Добавлено: 18.05.05 20:07 |
| А компот?!?! В смысле форму?! (Form1.frm) | ||
|
Номер ответа: 15 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #15 | Добавлено: 19.05.05 11:34 |
|
А у тебя откуда база? Чтой-то кажется мне что она
не DBASE IV. |
||