- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
Public Sub DBOpen(Optional sFullPath As String = "")
If sFullPath = "" Then sFullPath = sPath
Dim f As Integer
Dim l As Integer
Dim tmp As String
Dim sName As String
Dim sSurname As String
Dim sSex As String
Dim dBirthdate As Date
Dim sCity As String
Dim sStreet As String
l = 0
f = FreeFile
Open sFullPath For Input As #f
While Not EOF(f)
Line Input #f, tmp
l = l + 1
Wend
Close #f
If l > 0 Then
ReDim asDB(0 To l - 1) As clsCitizen
l = 0
f = FreeFile
Open sFullPath For Input As #f
While Not EOF(f)
Input #f, sName, sSurname, sSex, dBirthdate, sCity, sStreet
Set asDB(l) = New clsCitizen
asDB(l).sName = sName
asDB(l).sSurname = sSurname
asDB(l).sSex = sSex
asDB(l).dBirthdate = dBirthdate
asDB(l).sCity = sCity
asDB(l).sStreet = sStreet
l = l + 1
Wend
Close #f
End If
sPath = sFullPath
End Sub
P.S: Слава Богу, что мне пришлось сталкиваться с базами данных ПОСЛЕ того, как я слез с VB6.
Type ..
.. As String
.. As Byte
....
End Type
>но все равно, напрямую в поля, скотина, отказывается читать
хм. сколько лет знаком - никогда не сталкивался.
надо будет проверить.
алсо устаревшее говно
While Not EOF(f)
Wend
надо
Do Until EOF(f)
Loop
edit:
вот пруф
http://www.dreamincode.net/forums/topic/29575-file-handling-in-visual-basic-6-part-1-sequential-files/
VI. SEQUENTIAL FILE HANDLING EXAMPLES
это универская лаба была