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

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вставить запись из поля БД в Label на форме в VB6?

25 сообщений из 27, страница 1 из 2

все

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

#38580246

vasiliw8

Гость

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

...

Рейтинг:

0 / 0

06.03.2014, 14:52

| Ответить | Цитировать | Написать

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

#38580472

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

vasiliw8полный код, включая подключение к БД.Ага, а ещё зарплату за тебя получить и всю тебе отдать...

...

Рейтинг:

0 / 0

06.03.2014, 17:52

| Ответить | Цитировать | Написать

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

#38580486

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

На форуме полно примеров работы с БД аксесса из VB

...

Рейтинг:

0 / 0

06.03.2014, 18:12

| Ответить | Цитировать | Написать

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

#38580544

vasiliw8

Гость

Akina,
Не говори мне, что делать и я не скажу тебе куда пойти.
Вообще то я обратился за помощью, а не за нравоучениями.
Не хочешь помочь - помолчи.

...

Рейтинг:

0 / 0

06.03.2014, 20:15

| Ответить | Цитировать | Написать

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

#38580549

vasiliw8

Гость

Shocker.Pro,
Спасибо за ответ.
Я не программист и не изучаю программирование, все это нужно мне для личного пользования и я обратился за ПОМОЩЬЮ .

...

Рейтинг:

0 / 0

06.03.2014, 20:20

| Ответить | Цитировать | Написать

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

#38580609

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

Ага... требование в почти ультиимативной форме - это обращение за помощью.
Лучше посмотри, как оформляли темы те, кому реально и с охотой помогли. И сделай так же.

...

Рейтинг:

0 / 0

06.03.2014, 21:38

| Ответить | Цитировать | Написать

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

#38580679

vasiliw8

Гость

Akina,

Бесполезная словесная перепалка не делающая честь нашему форуму.

...

Рейтинг:

0 / 0

06.03.2014, 23:30

| Ответить | Цитировать | Написать

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

#38580705

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Dim Conn As ADODB.Connection, RS As ADODB.Recordset
Conn.Open "строка_подключения"
RS.Open "SELECT Name, Number_Phone FROM Неизвестно_какая_таблица WHERE B_Day=#"+Format$(Date, "mm\/dd\/yyyy")+"#", Conn
If Not RS.EOF Then
  Label1 = "OK"
  Label2 = RS("Name")
  Label3 = RS("Number_Phone")
Else
  Label1 = "Not OK"
End If
RS.Close
Conn.Close

строку подключения раздобудьте на http://connectionstrings.com

...

Рейтинг:

0 / 0

07.03.2014, 01:18

| Ответить | Цитировать | Написать

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

#38580707

vasiliw8

Гость

Shocker.Pro,
Большое спасибо за ответ. Буду пробовать.

...

Рейтинг:

0 / 0

07.03.2014, 01:25

| Ответить | Цитировать | Написать

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

#38581504

vasiliw8

Гость

Shocker.Pro,
Как это написать правильно (подключение к БД), я что то напутал?

Private Sub Form_Activate()
Label4 = Date
Dim Conn As ADODB.Connection, RS As ADODB.Recordset
Conn.Open Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\User\Desktop\Nap3|\Database3.accdb;Persist Security Info=False;
RS.Open "SELECT Name, Number_Phone FROM Таблица1 WHERE B_Day=#" + Format$(Date, "mm\/dd\/yyyy") + "#", Conn
If Not RS.EOF Then
Label1 = "OK"
Label2 = RS("Name")
Label3 = RS("Number_Phone")
Else
Label1 = "Not OK"
End If
RS.Close
Conn.Close

Пишет: Compile error: User defined-type not defined.

...

Рейтинг:

0 / 0

07.03.2014, 18:50

| Ответить | Цитировать | Написать

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

#38581541

outc

Гость

vasiliw8,

чисто на всякий

под ВБА
Label1.caption = "OK"

...

Рейтинг:

0 / 0

07.03.2014, 20:04

| Ответить | Цитировать | Написать

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

#38581578

vasiliw8

Гость

outc,
Выполнение кода останавливается на строке подключения к БД.

...

Рейтинг:

0 / 0

07.03.2014, 21:25

| Ответить | Цитировать | Написать

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

#38581626

Казанский

Гость

Это еще не выполнение, это только компиляция. Строку надо взять в кавычки:

Код: vbnet

Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\User\Desktop\Nap3|\Database3.accdb;Persist Security Info=False;"

...

Рейтинг:

0 / 0

07.03.2014, 23:02

| Ответить | Цитировать | Написать

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

#38581666

vasiliw8

Гость

Казанский,
Взял строку в кавычки, но все осталось по прежнему. Та же ошибка.

...

Рейтинг:

0 / 0

08.03.2014, 00:41

| Ответить | Цитировать | Написать

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

#38581679

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Нужно залезть в References и подключить Microsoft ActiveX Data Objects 2.8

и научитесь использовать тэги оформления кода - FAQ , вам же продемонстрировали уже

...

Рейтинг:

0 / 0

08.03.2014, 01:19

| Ответить | Цитировать | Написать

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

#38581680

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

outcпод ВБА
Label1.caption = "OK"автор указывает, что ему для VB6, там это свойство по умолчанию...

...

Рейтинг:

0 / 0

08.03.2014, 01:20

| Ответить | Цитировать | Написать

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

#38581747

vasiliw8

Гость

Shocker.Pro,
Большое спасибо за ответ, благодаря Вам я учусь.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Activate()
Label4 = Date
 Dim Conn As ADODB.Connection, RS As ADODB.Recordset
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\User\Desktop\Nap3|\Database3.accdb;Persist Security Info=False;"
RS.Open "SELECT Name, Number_Phone FROM &#210;&#224;&#225;&#235;&#232;&#246;&#224;1 WHERE B_Day=#" + Format$(Date, "mm\/dd\/yyyy") + "#", Conn
If Not RS.EOF Then
  Label1 = "OK"
  Label2 = RS("Name")
  Label3 = RS("Number_Phone")
Else
  Label1 = "Not OK"
End If
RS.Close
Conn.Close
End Sub

Подключил то, что Вы мне рекомендовали. Теперь пишет: Run-time error '91': Object variable or With block variable not set.

...

Рейтинг:

0 / 0

08.03.2014, 12:09

| Ответить | Цитировать | Написать

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

#38581751

vasiliw8

Гость

Shocker.Pro,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Activate()
Label4 = Date
 Dim Conn As ADODB.Connection, RS As ADODB.Recordset
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\User\Desktop\Nap3|\Database3.accdb;Persist Security Info=False;"
RS.Open "SELECT Name, Number_Phone FROM Таблица1 WHERE B_Day=#" + Format$(Date, "mm\/dd\/yyyy") + "#", Conn
If Not RS.EOF Then
  Label1 = "OK"
  Label2 = RS("Name")
  Label3 = RS("Number_Phone")
Else
  Label1 = "Not OK"
End If
RS.Close
Conn.Close
End Sub

В предидущем послании была ошибка в тэге, исправил.

...

Рейтинг:

0 / 0

08.03.2014, 12:16

| Ответить | Цитировать | Написать

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

#38581753

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

 Dim Conn As ADODB.Connection, RS As New ADODB.Recordset

...

Рейтинг:

0 / 0

08.03.2014, 12:23

| Ответить | Цитировать | Написать

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

#38581755

vasiliw8

Гость

Опять пишет: Run-time error '91': Object variable or With block variable not set.

...

Рейтинг:

0 / 0

08.03.2014, 12:28

| Ответить | Цитировать | Написать

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

#38581788

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

НУ вы хоть строчку указывайте, на которой ошибка, возможности хрустального шара исчерпаны

...

Рейтинг:

0 / 0

08.03.2014, 13:56

| Ответить | Цитировать | Написать

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

#38581789

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А, Conn тоже надо снабдить New

...

Рейтинг:

0 / 0

08.03.2014, 13:57

| Ответить | Цитировать | Написать

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

#38581798

vasiliw8

Гость

Shocker.Pro,

Теперь пишет: Недопустимое имя файла.
Строчка которая начинается: Conn.Open

...

Рейтинг:

0 / 0

08.03.2014, 14:13

| Ответить | Цитировать | Написать

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

#38581801

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

а что там делают вертикальные черточки?

...

Рейтинг:

0 / 0

08.03.2014, 14:15

| Ответить | Цитировать | Написать

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

#38581805

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vasiliw8благодаря Вам я учусь.

ответственно вам заявляю - учиться надо благодаря учебникам

...

Рейтинг:

0 / 0

08.03.2014, 14:23

| Ответить | Цитировать | Написать

25 сообщений из 27, страница 1 из 2

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вставить запись из поля БД в Label на форме в VB6?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&startmsg=38580246&tid=2156469]:	0ms
get settings:	7ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	54ms
get topic data:	11ms
get forum data:	2ms
get page messages:	54ms
get tp. blocked users:	1ms
others:	232ms

total:	379ms