| Вопрос: Чтение из ДБФ | Добавлено: 14.05.05 18:40 |
Автор вопроса:  Junior
|
| Ответы | Всего ответов: 19 |
|
Номер ответа: 16 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #16 | Добавлено: 19.05.05 21:38 |
|
Project>References "Microsoft ADO Ext. for DLL and Security
Public Sub WritetoListView(ListView As ListView, DBpath$, Password$, Table$) '+
'Отображает базу в ListView Dim db As Database, rs As Recordset ListView.View = lvwReport Set db = OpenDatabase(DBpath$, False, False, "MS Access;pwd=" & Password$) Set rs = db.OpenRecordset("select * from [" & Table$ & "]" 
For i = 0 To rs.Fields.Count - 1 'Создаём столюцы ListView.ColumnHeaders.Add , , rs.Fields(i).Name Next If rs.EOF = False Then 'Заполняем значениями столбцы While Not rs.EOF 'Цикл в котором по очереди перебираются столбцы Set lvItm = ListView.ListItems.Add(, , IIf(IsNull(rs(0)), "", rs(0))) For i = 1 To rs.Fields.Count - 1 lvItm.SubItems(i) = IIf(IsNull(rs(i)), "", rs(i)) Next sno = sno + 1 DoEvents rs.MoveNext 'переход к слейдущему столбцу Wend End If End Sub То что тебе нужно, там я написал пояснения. |
||
|
Номер ответа: 17 Автор ответа: Junior Вопросов: 8 Ответов: 15 |
Профиль | | #17 | Добавлено: 20.05.05 20:25 |
|
Так, поехали...
Microsoft ADO Ext.2.8 for DLL and Security отметил Ругается User Defined type not defined на сколько я понял, на строку Dim db As Database, rs As Recordset И если можно, поясните, как изменить эту строку под DBF Set db = OpenDatabase(DBpath$, False, False, "MS Access;pwd=" & Password$) |
||
|
Номер ответа: 18 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #18 | Добавлено: 20.05.05 22:19 |
|
х.з... знач что то не то делаешь... вот мой модуль, он слегка не дописанный... там же демопроект
http://www.webfile.ru/313293 |
||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 21.05.05 01:12 |
| ок, письмо принял, разберусь отвечу | ||