Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с даными / 16 сообщений из 16, страница 1 из 1
30.01.2004, 17:49
    #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:53
    #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:54
    #32394181
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
да и динасет не нужен
Достаточно dbOpenStatic какого-нибудь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 18:11
    #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:18
    #32394203
mastermind
mastermind
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
возможно нужно
ip = rst!IPaddress
но результат тот же
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 18:25
    #32394210
SergeySV
SergeySV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
проверь значение fnamе в процессе работы твоего кода, похоже что оно пустое, поэтому и вылезает такое сообщение.

Как ставить breakpoint в редакторе VBA знаешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 18:26
    #32394211
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
Не возможно, а точно нужно ;-)
Надо бы посмотреть в отладчике, чему становится равно это fname
Может, тама Null?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2004, 18:48
    #32394227
AlexJuice
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
А List0 не мультиселектный?
List0.Value -> List0.Column(x)
где х начинается с нуля
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2004, 10:38
    #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, 15:31
    #32395551
mastermind
mastermind
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
Что нужно потключить, какие библиотеки, для рекордсета ...
или другая проблема, не проходите мимо ... )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2004, 15:39
    #32395571
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
Обычно в тексте ошибки написано, что не так:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2004, 15:54
    #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, 16:19
    #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:24
    #32395651
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
Вот это откуда взялось в ДАО?
dbOpenStatic
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.02.2004, 16:25
    #32395652
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с даными
Хех, как полезна кнопка рефреш в броузере:)

А переменную теперь другую используем: buf.... Ну да ладно, главное. что заработало:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Работа с даными / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 317ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1676890]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 53ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 209ms
total:  317ms
x
x
Закрыть


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