Как вставить запись из поля БД в Label на форме в VB6?

@vasiliw8 · Регистрация: 04.03.2014

Author24 — интернет-сервис помощи студентам

Как вставить запись из поля БД в Label на форме в VB6? Надо зайти в поле B_Day и если в одной из записей есть запись соответствующая сегодняшней дате, то в Label1 должно быть "ОК" иначе "Not OK". Если "ОК" в Label2 должна появиться запись из поля Name, соответствующая этой дате и в Label3 запись из поля Number_Phone.
Поле B_Day в формате(Дата,Время),Name (Текстовый)Number_Phone (Текстовый).
БД создана в Access Office 2010.

@The trick · 05.03.2014, 13:25

DB - соединение с БД

Visual Basic

Dim Rec As Recordset
Set Rec = DB.Execute("SELECT Name, Number_Phone FROM [èìÿ òàáëèöû] WHERE B_Day=" & Format(Date, "\#MM\/dd\/yyyy\#"))
If Rec.RecordCount Then
    Label1.Caption = "OK": Label2.Caption = Rec.Fields("Name"): Label3.Caption = Rec.Fields("Number_Phone")
Else
    Label1.Caption = "NOT OK": Label2.Caption = vbNullString: Label3.Caption = vbNullString
End If

@vasiliw8 · 05.03.2014, 15:29 **[ТС]**

The trick,
После вставки кода пишет: Compile error:
User - defined type not defined.
Надо ли установить контрол Data на форму и связать его с БД, как это делается в VB5?

Добавлено через 9 минут
The trick,
Сейчас это выглядит так:

Visual Basic

Private Sub Form_Activate()
Label4 = Date
 Dim Rec As Recordset
Set Rec = DB.Execute("SELECT Name, Number_Phone FROM [Òàáëèöà1] WHERE B_Day=" & Format(Date, "\#MM\/dd\/yyyy\#"))
If Rec.RecordCount Then
    Label1.Caption = "OK": Label2.Caption = Rec.Fields("Name"): Label3.Caption = Rec.Fields("Number_Phone")
Else
    Label1.Caption = "NOT OK": Label2.Caption = vbNullString: Label3.Caption = vbNullString
End If
 
End Sub

Небольшая ошибка: вместо User - defined type not defined пишет Variable not defined

@The trick · 05.03.2014, 15:44

Я тебе дал реализацию, подключение к БД делай сам примеров куча.

Сообщение от The trick

DB - соединение с БД

@vasiliw8 · 06.03.2014, 13:11 **[ТС]**

The trick,
Спасибо, попробую, но было бы мне намного легче получить полный ответ.
В VB5 я ориентируюсь лучше, но там DAO, здесь ADO и все по другому.
Я не программист и не изучаю программирование, все это нужно мне для личного пользования.
БД: Database3.accdb, Таблица: Таблица1

Добавлено через 16 часов 47 минут
Большая просьба.
Как сделать подключение к базе данных в VB6 о которой сказано выше?
Путь к БД: C:\Users\User\Desktop\Nap3\Database3.accdb

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
		1
	Как вставить запись из поля БД в Label на форме в VB6? 05.03.2014, 00:38. Показов 1545. Ответов 4 Метки нет (Все метки) Как вставить запись из поля БД в Label на форме в VB6? Надо зайти в поле B_Day и если в одной из записей есть запись соответствующая сегодняшней дате, то в Label1 должно быть "ОК" иначе "Not OK". Если "ОК" в Label2 должна появиться запись из поля Name, соответствующая этой дате и в Label3 запись из поля Number_Phone. Поле B_Day в формате(Дата,Время),Name (Текстовый)Number_Phone (Текстовый). БД создана в Access Office 2010. 0

@The trick Модератор 9911 / 3815 / 879 Регистрация: 22.02.2013 Сообщений: 5,688 Записей в блоге: 78
	05.03.2014, 15:44	4
	Я тебе дал реализацию, подключение к БД делай сам примеров куча. Сообщение от The trick DB - соединение с БД 1

@vasiliw8 38 / 38 / 16 Регистрация: 04.03.2014 Сообщений: 249
	06.03.2014, 13:11 [ТС]	5
	The trick, Спасибо, попробую, но было бы мне намного легче получить полный ответ. В VB5 я ориентируюсь лучше, но там DAO, здесь ADO и все по другому. Я не программист и не изучаю программирование, все это нужно мне для личного пользования. БД: Database3.accdb, Таблица: Таблица1 Добавлено через 16 часов 47 минут Большая просьба. Как сделать подключение к базе данных в VB6 о которой сказано выше? Путь к БД: C:\Users\User\Desktop\Nap3\Database3.accdb 0

Как вставить запись из поля БД в Label на форме в VB6?

Решение