Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вставить запись из поля БД в Label на форме в VB6? / 25 сообщений из 27, страница 1 из 2
  1  все
06.03.2014, 14:52
    #38580246
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Как вставить запись из поля БД в 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, 17:52
    #38580472
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
vasiliw8полный код, включая подключение к БД.Ага, а ещё зарплату за тебя получить и всю тебе отдать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 18:12
    #38580486
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
На форуме полно примеров работы с БД аксесса из VB
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 20:15
    #38580544
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Akina,
Не говори мне, что делать и я не скажу тебе куда пойти.
Вообще то я обратился за помощью, а не за нравоучениями.
Не хочешь помочь - помолчи.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 20:20
    #38580549
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Shocker.Pro,
Спасибо за ответ.
Я не программист и не изучаю программирование, все это нужно мне для личного пользования и я обратился за ПОМОЩЬЮ .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 21:38
    #38580609
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Ага... требование в почти ультиимативной форме - это обращение за помощью.
Лучше посмотри, как оформляли темы те, кому реально и с охотой помогли. И сделай так же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.03.2014, 23:30
    #38580679
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Akina,

Бесполезная словесная перепалка не делающая честь нашему форуму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2014, 01:18
    #38580705
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Код: 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:25
    #38580707
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Shocker.Pro,
Большое спасибо за ответ. Буду пробовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2014, 18:50
    #38581504
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
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, 20:04
    #38581541
outc
outc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
vasiliw8,

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

под ВБА
Label1.caption = "OK"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2014, 21:25
    #38581578
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
outc,
Выполнение кода останавливается на строке подключения к БД.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.03.2014, 23:02
    #38581626
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Это еще не выполнение, это только компиляция. Строку надо взять в кавычки:
Код: vbnet
1.
Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|C:\Users\User\Desktop\Nap3|\Database3.accdb;Persist Security Info=False;"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 00:41
    #38581666
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Казанский,
Взял строку в кавычки, но все осталось по прежнему. Та же ошибка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 01:19
    #38581679
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Нужно залезть в References и подключить Microsoft ActiveX Data Objects 2.8

и научитесь использовать тэги оформления кода - FAQ , вам же продемонстрировали уже
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 01:20
    #38581680
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
outcпод ВБА
Label1.caption = "OK"автор указывает, что ему для VB6, там это свойство по умолчанию...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 12:09
    #38581747
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
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



Подключил то, что Вы мне рекомендовали. Теперь пишет: Run-time error '91': Object variable or With block variable not set.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 12:16
    #38581751
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
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:23
    #38581753
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Код: vbnet
1.
 Dim Conn As ADODB.Connection, RS As New ADODB.Recordset
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 12:28
    #38581755
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Опять пишет: Run-time error '91': Object variable or With block variable not set.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 13:56
    #38581788
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
НУ вы хоть строчку указывайте, на которой ошибка, возможности хрустального шара исчерпаны
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 13:57
    #38581789
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
А, Conn тоже надо снабдить New
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 14:13
    #38581798
vasiliw8
vasiliw8
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
Shocker.Pro,


Теперь пишет: Недопустимое имя файла.
Строчка которая начинается: Conn.Open
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 14:15
    #38581801
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
а что там делают вертикальные черточки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.03.2014, 14:23
    #38581805
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить запись из поля БД в Label на форме в VB6?
 
vasiliw8благодаря Вам я учусь.
ответственно вам заявляю - учиться надо благодаря учебникам
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вставить запись из поля БД в Label на форме в VB6? / 25 сообщений из 27, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 409ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156469]:
 0ms
get settings:
 11ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 276ms
total:  409ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]