Login
Воспоминание программирование на VB 08.04.2024
1244 просмотров
Перейти к просмотру всей ветки
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