ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с даными
16 сообщений из 16, страница 1 из 1
Работа с даными
    #32394175
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
У меня вопрос,
в базе есть таблица "Printers" которая имеет два поля "name" и "ip" мне нужно програмно присвоить переменной значение поля "ip" при заданом значении поля "name", я пишу

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Printers", dbOpenDynaset)
ip = rst. ...
дальше я не знаю как присвоить переменной ip значение третей ячейки поля "ip"
помогите пожалуйста.
...
Рейтинг: 0 / 0
30.01.2004, 17:49
| Ответить | Цитировать | Написать  
Работа с даными
    #32394178
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Код: plaintext
1.
Set rst = CurrentDb.OpenRecordset( "SELECT ip FROM Printers WHERE name = '" & MyName & "'" , dbOpenDynaset) 
ip = rst!ip


Зачем вызывать всю таблицу, если нужна только одна запись?
...
Рейтинг: 0 / 0
30.01.2004, 17:53
| Ответить | Цитировать | Написать  
Работа с даными
    #32394181
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
да и динасет не нужен
Достаточно dbOpenStatic какого-нибудь
...
Рейтинг: 0 / 0
30.01.2004, 17:54
| Ответить | Цитировать | Написать  
Работа с даными
    #32394196
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
Я пишу:

fname = List0.Value

Set rst = CurrentDb.OpenRecordset("SELECT IPaddress FROM Printers WHERE name = '" & fname & "'", dbOpenStatic)

ip = rst!ip

Label4.Caption = ip

при запуске видается окно с просьбой ввода name, а нужно, чтобы взяло fname

или я чтото не то делаю
...
Рейтинг: 0 / 0
30.01.2004, 18:11
| Ответить | Цитировать | Написать  
Работа с даными
    #32394203
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
возможно нужно
ip = rst!IPaddress
но результат тот же
...
Рейтинг: 0 / 0
30.01.2004, 18:18
| Ответить | Цитировать | Написать  
Работа с даными
    #32394210
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
проверь значение fnamе в процессе работы твоего кода, похоже что оно пустое, поэтому и вылезает такое сообщение.

Как ставить breakpoint в редакторе VBA знаешь?
...
Рейтинг: 0 / 0
30.01.2004, 18:25
| Ответить | Цитировать | Написать  
Работа с даными
    #32394211
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Не возможно, а точно нужно ;-)
Надо бы посмотреть в отладчике, чему становится равно это fname
Может, тама Null?
...
Рейтинг: 0 / 0
30.01.2004, 18:26
| Ответить | Цитировать | Написать  
Работа с даными
    #32394227
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
А List0 не мультиселектный?
List0.Value -> List0.Column(x)
где х начинается с нуля
...
Рейтинг: 0 / 0
30.01.2004, 18:48
| Ответить | Цитировать | Написать  
Работа с даными
    #32394947
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
Я пишу:

Dim rst As Recordset
Dim fname As String
fname = List0.Value
Set rst = CurrentDb.OpenRecordset("SELECT Printers.ip FROM Printers WHERE Printers.fname = '" & fname & "'", dbOpenStatic)
ip = rst!ip
Label4.Caption = ip

оно матерится на строчку :
Set rst = CurrentDb.OpenRecordset("SELECT Printers.ip FROM Printers WHERE Printers.fname = '" & fname & "'", dbOpenStatic)

(таблица Printers прилинкованная)

кто зает почему? помогите
...
Рейтинг: 0 / 0
02.02.2004, 10:38
| Ответить | Цитировать | Написать  
Работа с даными
    #32395551
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
Что нужно потключить, какие библиотеки, для рекордсета ...
или другая проблема, не проходите мимо ... )
...
Рейтинг: 0 / 0
02.02.2004, 15:31
| Ответить | Цитировать | Написать  
Работа с даными
    #32395571
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Обычно в тексте ошибки написано, что не так:)
...
Рейтинг: 0 / 0
02.02.2004, 15:39
| Ответить | Цитировать | Написать  
Работа с даными
    #32395597
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
:-)
пишет "invalid argument" in Set rst = CurrentDb.OpenRecordset("SELECT Printers.ip FROM Printers WHERE Printers.fname = '" & fname & "'", dbOpenStatic)
не могу росшарить что здесь не так :-(
...
Рейтинг: 0 / 0
02.02.2004, 15:54
| Ответить | Цитировать | Написать  
Работа с даными
    #32395641
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
В fname есть значение какое-нить при выполнении?
Перед выполнением напишите:
Debug.print fname и в дебагере посмотрите, что там.

Аксес какой версии?
...
Рейтинг: 0 / 0
02.02.2004, 16:19
| Ответить | Цитировать | Написать  
Работа с даными
    #32395642
mastermind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mastermind
Гость
Сам себе отвечаю
нужно писать:
Set rst = CurrentDb.OpenRecordset("SELECT ip FROM printers WHERE printers.fname = '" & buf & "'")
и читать МСДН )))
спасибо за ответы ;-)
...
Рейтинг: 0 / 0
02.02.2004, 16:19
| Ответить | Цитировать | Написать  
Работа с даными
    #32395651
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Вот это откуда взялось в ДАО?
dbOpenStatic
...
Рейтинг: 0 / 0
02.02.2004, 16:24
| Ответить | Цитировать | Написать  
Работа с даными
    #32395652
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Хех, как полезна кнопка рефреш в броузере:)

А переменную теперь другую используем: buf.... Ну да ладно, главное. что заработало:)
...
Рейтинг: 0 / 0
02.02.2004, 16:25
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с даными
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32395651&tid=1676890]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 211ms
total:  338ms
созд. / загр.: 338ms
x
x
Закрыть


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