| Вопрос: *.DBF | Добавлено: 07.09.02 02:15 |
Автор вопроса:  mshep
|
| Кто может - прошу прислать несложные исходники по работе с *.DBF. VB только начинаю осваивать, книг нет - хочу поучиться по чужому опыту. Заранее благодарен. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  LIS Вопросов: 7 Ответов: 256 |
Профиль | | #1 | Добавлено: 07.09.02 03:10 |
|
' For DAO 3.51 ... Replace IV to 5.0 if you are with dBase 5.0 Dim db As Database Dim rs As Recordset Private Sub Form_Load() sDBPath = "c:\dbu\" ' open the database as a dBase IV file, using database path Set db = DBEngine.Workspaces(0).OpenDatabase( _ sDBPath, False, False, "dBase IV;") ' open the database file 'TEST' as a table Set rs = db.OpenRecordset("test", dbOpenTable) With rs If (.EOF And .BOF) Then ' EmptyRecordset Else MsgBox (rs!code) End If End With End Sub and GOOD LUCK... |
||
|
Номер ответа: 2 Автор ответа:  Блаш Вопросов: 10 Ответов: 30 |
Профиль | | #2 | Добавлено: 07.09.02 09:54 |
|
Если не будет работать, то это может значить, что нужен провайдер не Dbase а на пример Фоксовый. |
||
Страница: 1 |