Visual Basic 6.0 - Re[2]: Пароль на БД
Re[2]: Пароль на БД
>>> DAO, ADO, RDO? В смысле интересует больше строка в программе, где нужно
S>> указать Пароль в ADO указывается в ConnectionString,
AP> Как ADO указать я нашел, теперь интересует DAO.
Там все то же. Просто св-во располагается в другом объкте.
S>> но ты бы лучше сказал, какая база?
AP> MS Access
Кстати, а в случае DAO эта инфа второстепенна.
* Origin: WinPoint 95 (2:5030/1450.6)
Более простой способ создания консольных приложений
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hi All,
Почему-то укрепилось поверье, что для того, чтобы работать с консолью из-под
VB, нужно много всякой возни с ReadConsole/WriteConsole и другими
разношёрстными API. Hа самом деле всё проще: нужно просто открыть "con:" как
файл и читать из него/писать в него. Из IDE такое, ясное дело, не заработает;
нужно скомпилировать файл и выставить ему подсистему в Win32 Console (байт по
адресу 114h, иногда 124h, изменить с 02 на 03). Получится полноценное
консольное приложение вовсе безо всякого API! Есть лишь два недостатка этого
метода: 1) невозможно одновременно держать con: открытым для чтения и записи,
поэтому для перехода от чтения к записи или наоборот нужно закрывать и
переоткрывать файл; 2) невозможна переадресация ввода/вывода, он всегда
осуществляется на/с консоль(и).
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)
HEX in VB
RY>> function AddHexValue(hex1 as string, hex2 as string) as string
RY>> if left$(hex1,2)<>"&H" then hex1 = "&H" + hex1
RY>> if left$(hex1,1)<>"&" then hex1 = "&" + hex1
RY>> if left$(hex2,2)<>"&H" then hex2 = "&H" + hex2
RY>> if left$(hex2,1)<>"&" then hex2 = "&" + hex2
RY>> dim h1 as long, h2 as long, hv as long
RY>> h1 = clng(h1)
RY>> h2 = clng(h2)
RY>> hv = h1 + h2
RY>> addhexvalue = hex$(h2)
RY>> end sub
RY>> Вот тебе и функция. ;)
AA> Hу тогда вот тебе ишшо и мой вариант
Ты мне предлагаешь соревнование? :)
* Origin: 1134 (2:5045/44.13)
HEX in VB
AA> Enum OutTypes
AA> tpDecimal = 1
AA> tpHex
AA> tpOctal
AA> End Enum
debug.print tpDecimal & tpHex & tpOctal
123
AA> Err.Raise 5, , "Invalid OutType value specified!" & vbCr &
AA> "Valid values are 0 to 2"
Hю! ;)
* Origin: 1134 (2:5045/44.13)
Re: HEX in VB
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Roman.
Вы, было дело, писали 9 мая 2004 г., 8:36:
RY> Ты мне предлагаешь соревнование? :)
Делать мне боле неча :-)
It's just an alternative!
--
С уважением, Alexander
4:18:38 PM
* Origin: Talk.Mail.Ru (2:5020/400)
Re: HEX in VB
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Roman.
Вы, было дело, писали 9 мая 2004 г., 8:41:
RY> AA> Enum OutTypes
RY> AA> tpDecimal = 1
RY> AA> tpHex
RY> AA> tpOctal
RY> AA> End Enum
RY> AA> Err.Raise 5, , "Invalid OutType value specified!" & vbCr &
RY> AA> "Valid values are 0 to 2"
RY> Hю! ;)
Hе думаешь же ты, что это код из какого-нибудь серьезного проекта?
Писалось сходу, на коленке и предполагался сначала Choose(), потому и
приписал 1, а с Select Case, конечно, надо
"Valid values are 1 to 3"
Hевелика ошибка imho. Для того он и Enum, чтобы писать _правильные_
значения параметров. А вообще функция - полное дерьмо и вряд ли
кому-нибудь и когда-нибудь понадобиться. Так, для демонстрации
нескольких удобных вещей: Enum, Optional аргумент, использование
Variant для автоматического преобразования типов, Err.Raise.
Подозреваю, что для того, кто еще не знает как с Hex работать, это
тоже будет не лишним...
--
С уважением, Alexander
4:20:28 PM
* Origin: Talk.Mail.Ru (2:5020/400)
IRDA - VB6
From: "Max Lesnik" <xpert [@] vpost.ru>
Всем привет!
А вот пробовал ли кто управлять IRDA контроллером из VB6? Может, есть
ActiveX какие?
--
С наилучшими пожеланиями, Max Lesnik.
* Origin: Talk.Mail.Ru (2:5020/400)
Visual Basic для Office 2000 специалист нужен
Hello Dima.
03 May 04 00:36, you wrote to me:
EP>> пpобpазование doc в pdf должно быть pеализвано с помощью
EP>> свободной пpогpаммы ghostscript (http://www.ghostscript.com/), HЕ
EP>> акpобатовских изделий.
DG> Твой выбоp.
DG> 1) Получаешь имя дока
DG> 2) пpеобpазователь.exe <*.doc> <*.pdf>
DG> 3) Аттачиш к письму, жмёш ок. -- Send
Есть проблема: GhostScript на входе ждёт не doc, а PostScript, который легко можно получить, если из ворда делать печать в файл для любого принтера PostScript. Есть ли способы управлять этим процессом из VBA?
Eugene
* Origin: Oasis Station (2:5020/40)
Re: Пароль на БД
From: "Slaventij" <v.Davydenko [@] mt-bank.com>
> DAO, ADO, RDO? В смысле интересует больше строка в программе, где нужно
указать
Пароль в ADO указывается в ConnectionString, но ты бы лучше сказал, какая
база?
* Origin: MT-Bank (2:5020/400)
Frame
H!, _[All]_!
Как на фоpме сделать Frame1.BackColor пpозpачным? Т.е. чтобы можно было увидеть pисунок, котоpый pасположен на фоpме. Может какой контpол/пpимеp имеется? Заpанее спасибо. Хотелось бы, чтобы это pаботало на Win98.
g'bye and g'luck, _[All]_!
* Origin: S2k - http://www.revengecrew.org (2:5054/29.33)