русский

Воспоминание программирование на VB 08.04.2024

08.04.24 18:57
Re: Воспоминание программирование на VB 08.04.2024
 
uscheswoi_82 коренной житель
uscheswoi_82
in Antwort uscheswoi_82 08.04.24 16:07, Zuletzt geändert 08.04.24 22:34 (uscheswoi_82)

Тогда в конце 90х и начале 2000х, когда появился Visual Basic 6.0 чтобы хорошие деньги зарабатывать, в принципе достаточно было и вот этих стандартных компонентов:



Чтобы обратиться к БД, нужно её сначало создать а потом подключить библиотеку к проекту. Я буду создавать в Microsoft Access 2000, но БД можно создать и в VisData:



Вот так выглядет VisData:



Потом нужно подключить библиотеку DAO к проекту, я подключу Microsoft DAO 3.6 Object Library:




Чтобы прочитать из базы данных записи, нужно написать следующий код:

Dim rec As Recordset
Dim db As Database
Private Sub Form_Load()
  On Error Resume Next
  Set db = OpenDataBase("C:\test2024_2\Neuer_Ordner\db1.mdb")
  Set rec = db.OpenRecordset("SELECT * FROM Ludi")
  Do While Not rec.EOF
    Debug.Print rec("Imya") & " " & rec("Familiya") & " " & rec("Datarozhdeniya")
    rec.MoveNext
  Loop
End Sub


В окне отладчика увидите такое:

Andrey Popkov 01.03.1980
Anna Petruchina 05.10.1981
Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Tagebuch der schwerbehinderten Person
 

Sprung zu