Visual Basic 6.0 - Поиск

Hi Dmitry!



Бес попутал ;) - я-то как раз и принимаю BSTR* всеми DLLами...

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)




Hадо с помощью ВБА и данных из формочки в аксесе сформировать запрос
Дано:

Поля id,count,price,sum : числовое
Поле date: Дата/время-Краткий формат даты
DateBox: Формат поля Краткий формат даты

При
Set rs2 = CurrentDb.OpenRecordset("SELECT date,id,count,price,sum FROM dbase
WHERE date='" + CStr(DateBox) + "' AND id=" + CStr(rs1![id]))
Ошибка
Hесоответствие типов данных в выражении условия отбора

при
Set rs2 = CurrentDb.OpenRecordset("SELECT date,id,count,price,sum FROM dbase
WHERE date=" + CStr(DateBox) + " AND id=" + CStr(rs1![id]))
Ошибка
Число содержит синтаксическую ошибку в выражении.........date=06.12.2004 AND
id=6

date=[06.12.2004] AND id=6 тож не катит
наверное надо что бы получилось date="06.12.2004" AND id=6, тока я не
могу понять как мне тогда заэкранировать символ "
--
Andriy Beregovenko
"Promkontakt" network administrator
:-)


* Origin: Promkontakt (2:5020/400)





Сделай в аксесе конструктором это же запрос и посмотри чего тебе аксес в SQL
наваяет, там по моему нужно заключать это дело в пару символов "#" типа
"#_значение_# "

следующее: news:cp3s42$uu5$1 [@] news.lucky.net...









dbase





* Origin: Demos online service (2:5020/400)





Возникла проблема,
нужно организовать переход по клавише Tab в определенном порядке, заранее
неизвестном
(контролы строятся динамически, причем неизвестно какие, сколько и в каком
порядке построятся)
у всех контролов посему tabstop=false
Сделал на форме один задвинутый за границу экрана контрол у которого
tabStop=True
и ловлю его GotFocus, но это геморойно, тяжело , к тому-же начинаются глюки
при переходе из приложения в приложение, с формы на форму и.т.д.
может можно как-то с помощъю сабклассинга сделать возможным отловить нажатие
клавиши таб?
буду благодарен за ссылки на примеры или примеры как это сделать.
мылить ежель чего на naumovtrash(песик)mail.ru


* Origin: Demos online service (2:5020/400)




Можно ли заставить CommonDialog при выполнении метода ShowOpen
показывать в поле диалога FileName полный путь к заданному файлу?
--
Вадим
* Origin: Talk.ru (2:5020/400)


Hello, Владимир!







А просто задавать контролам TabIndex - недостаточно?
* Origin: Then those Things ran about... (2:5080/1003.16)









Hедостаточно, поскольку неизвестно заранее что и чему ставить, форма может
перестроить контролы в любой момент, добавить/ удалить между существующими,
вначало в конец и.т.д, снаружи могут в любой момент изменить порядок обхода,
на форме может лежать несколько групп контролов, объедененных по каким-то
признакам, внутри этих объединений может быть совсем отличный порядок
обхода, да еще, опять же, динамически меняемый, вобщем не удалось решить
проблему простым задаванием TabIndex,
почему и возник мой вопрос.
* Origin: Demos online service (2:5020/400)




test
--
* Origin: Talk.Mail.Ru (2:5020/400)




Привет, All,

Давненько я тут не был :) Все больше readonly

Тут у меня вопрос возник к тем, кто занимался сабжем: как
создать single instance object? т.e. такой объект, который не
размножается при его инициализации из разных процессов и данные
доступны для чтения записи из любых процессов.

Уже пробовал менять свойство класса на SingleUse и GlobalSingleUse,
а результат все равно один и тот же: каждая копия процесса,
обращающаяся к переменной видит только "свою" переменную.

Вот мой класс из ActiveX Exe:

Dim m_MyVar As Long
'_______________________________________
Public Property Get MyVar() As Long
MyVar = m_MyVar
End Property
'_______________________________________
Public Property Let MyVar(ByVal dwNewValue As Long)
m_MyVar = dwNewValue
End Property
'_______________________________________

Вот тестовая программа:

Dim obj As vbpMyActiveX_test.myActiveX_test
'_______________________________________
Private Sub Form_Load()
On Error Resume Next
Set obj = GetObject("vbpMyActiveX_test.myActiveX_test")

MsgBox "Объекта еще нет. vbErr=" & CStr(Err.Number) & " (" & Err.Description & ")"
Err.Clear
Set obj = CreateObject("vbpMyActiveX_test.myActiveX_test")
'Set obj = New myActiveX_test

Else
MsgBox "Объект создан. vbErr=" & CStr(Err.Number) & " (" & Err.Description & ")"
End If
End Sub
'_______________________________________
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set obj = Nothing
End Sub
'_______________________________________
Private Sub cmdGet_Click()
txtGet.Text = CStr(obj.MyVar)
End Sub
'_______________________________________
Private Sub cmdSet_Click()
If IsNumeric(txtSet.Text) Then
obj.MyVar = CLng(txtSet.Text)
End If
End Sub
'_______________________________________

Две разные копии программы возвращают разные значения переменной,
что нормально для обычных длл, но с чем я, собственно, и борюсь.

Где я туплю? По-подробнее, если можно - еще не приходилось создавать
такие объекты.

--
Best regards,
Dmitry Miloserdov

* Origin: Talk.Mail.Ru (2:5020/400)


Привет, Dmitriy!

По поводу твоего сообщения: "Re: Help! VBS - "Лишний" час в TimeReceived
(MAPI.Session)"...









"Почтовик" - это почтовый сервер? Дык! OutLook-то показывает правильное
время (для тех же писем, на том же сервере). А скрипт - видит со сдвигом +1час.

Т.е. если это и "глюк", то он как-то обходится почтовым клиентом M$офиса
(при обращении к Exchange-у)... Вот и не понятно - как/где мне (в своём скрипте
VBS) обнаружить и учесть этот "+1 час" в данных о датах (обрабатываемых писем
на ентом сервере).

А поиски в MSDN по контекстам "tzi" "bias" выдают множество самых разных
сведений. В самых разных областях... В подавляющем большинстве - под C... Hо
ответа (на моё "где/как" под VBS) я не увидел...

А если оставить "как есть" сейчас (вычитание часа "влоб"), то весной,
скорей всего аукнется...

/\/.\/.\/. С уважением, Влад.

* Origin: Я уже никогда... (2:5020/1641.9)