Visual Basic 6.0 - Database
Re: Database
From: "Roman Brunets" <postmaster [@] hbook.donetsk.ua>
> Помогите плиз pеализовать кнопку откpытия сабжа с выводом стандаpтного
> диалогового окна откpытия. А также пpошу помощи в pеализации функции
сохpанения
> базы.
Я шизею, дорогая редакция. (с) :)))
В ru.dbms.telepat!!!!!
* Origin: Donbass Internet Center DIPT (2:5020/400)
Re: Database
From: Alexander Trishin <trialFORSPAM [@] trishin.com>
Roman Brunets wrote on Wed, 29 Oct 2003 22:57:31 +0000 (UTC):
>> Помогите плиз pеализовать кнопку откpытия сабжа с выводом стандаpтного
>> диалогового окна откpытия. А также пpошу помощи в pеализации функции
> сохpанения
>> базы.
>
> Я шизею, дорогая редакция. (с) :)))
Делов-то. Всего два вызова:
Дилог.Покажись("я сказал")
База.Сохранись("быстро")
;)
--
AT
* Origin: Demos online service (2:5020/400)
Re: Database
Мы где-то виделись, Michael?
29 Oct 03 22:06:21 в RU.VISUAL.BASIC Michael Alekseyev, Jr. -> All:
MAJ> Помогите плиз pеализовать кнопку откpытия сабжа с выводом стандаpтного
MAJ> диалогового окна откpытия. А также пpошу помощи в pеализации функции
MAJ> сохpанения базы.
Похоже, тебе нужен CommonDialog.
Ctrl+T -> [v] Microsoft Common Dialog Control
его методы .ShowOpen и .ShowSave вызывают диалоги открытия и сохранения
соответственно.
Всего хорошего!
Дмитрий Козырев aka Master
* Origin: Дорогу осилит идущий. (2:5023/11.148)
Re: russian msdn
Привет, Что не ждали? только в обморок не падай Dmitriy!
Пят Окт 24 2003 21:30, Dmitriy Kozyrev wrote to Eugeny Voronets:
EV>> Встpечный вопpос...
EV>> существует ли pазpаботчик имеющий необходимость читать MSDN на
EV>> неанглийском языке ?
DK>
DK> Говорят, есть его перевод на немецкий.
не говорят а есть, у меня перед глазами, блин по совету эхи читаю online английский. Хотя немцам немецкий понятней, конечно. Hе могу сказать чтр немецкий вариант плох, но каждому свое.
[Team Rock'n'Roll is alive!] [Team Я не Ревякин] [Team ПИВО]
[TEAM ШАМПАНСКОЕ и много ШАМПАНСКОГО]
* Origin: << Я не FixPack, но буду вас фиксить... >> (2:5012/23.69)
Re: SQL синтаксис...
From: "Валерий Калинин" <kalinin [@] yartelecom.ru>
так нужно...
> SQLd = "SELECT id FROM Doljnost WHERE Nazvanie =" & "'" & Combo1.Text &
"'"
> SQLp = "select id from Podrazdelenie Where Nazvanie =" & "'" & Combo2.Text
& "'"
> Set rsSQLd = data.OpenRecordset(SQLd)
> Set rsSQLp = data.OpenRecordset(SQLp)
> rsNaznachenie!doljnost_id = rsSQLd("id")
> rsNaznachenie!Podrazdelenie_id = rsSQLp("id")
* Origin: Yartelecom Computer Networks (2:5020/400)
Re: Классы
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Andrey!
You wrote in conference fido7.ru.visual.basic on Tue, 28 Oct 2003 19:06:17 +0300:
AS> Моя программа должна обрабатывать (анализировать) графы и сети петри.
AS> При этом я еще не решил как буду представлять их в программе (с помощью коллекций
AS> или с помощью базы данных (на случай если придется обрабатывать большие
AS> графы))
AS> В итоге у меня сейчас примерно такая структура классов:
[Sorry, skipped]
AS> А в принципе можно было бы использовать всего один класс, включающий в
AS> себя методы создания сети петри и методы-алгоритмы для ее анализа.
AS> В общем, как правильно организовать структуру классов :) ?
Я бы порекомендовал не заморачиваться с классами, а писать набором процедур :-)
Типа того, что "если ты не знаешь, какие классы тебе нужны, значит они тебе не нужны".
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re[4]: SQL синтаксис...
From: Мартынов Сергей <smart [@] stal.ru>
Здраствуйте Vadim,
Вы писали 29 октября 2003 г., в 16:53:26:
VR> Мартынов Сергей пишет:
>> Здраствуйте Валерий,
>> Вы писали 29 октября 2003 г., в 16:40:59:
>>>> а какой сервер, ты уверен что строковые данные в таких кавычках '' ?
>> ВК> по мануалу вроде так
>>>> может быть такие "", в конце строки надо точку с запятой ;
>> ВК> в конце какой строки???
>> для Access'а:
>> SGLd = "SELECT Id FROM Doljnost WHERE Nazvanie = """ & Combo1.Text
VR> & """;"
VR> Вы не правы, сударь. Для Аксеса как раз одинарные кавычки и никаких
VR> запяточек. А автору вопроса неплохо бы сказать публике, какая именно
VR> ошибка выдается.
сударь только что проверил (правда это VBA Access XP):
поле ceh_code - текстовое 3 символа
нормально прокатило
Dim tconn As Connection
Set tconn = Application.CurrentProject.Connection
tconn.Execute "SELECT * INTO ttemp from t2004 where t2004.ceh_code=""001"" ;"
tconn.Close
Set tconn = Nothing
--
До свидания,
Мартынов Сергей
* Origin: ОАО СеверСталь (2:5020/400)
Re: russian msdn
Hello Eugeny!
Sat Oct 25 2003 21:23, Eugeny Voronets wrote to Dmitriy Kozyrev:
DK>> Говорят, есть его перевод на немецкий.
EV> Так понятно, я не удивлюсь увидев его на японском напpимеp. :)
EV> только вот пеpеведенный явно какими нибудь умельцами.
DK>> А вообще, кое-какие сложные статьи, изобилующие новыми понятиями и
DK>> терминами, я предпочитаю читать на русском языке.
EV> ?
EV> сеpьезно ?
EV> я бы побоялся, тогда мне кажется вообще ничего не понятно станет.
Мне кажется ты протсо все переводы по определению считаешь плохими.
Dmitry
* Origin: Malikov [@] ngs.ru (2:5005/68.18)
SQL синтаксис...
From: "Sergey Nikonov" <foma [@] ortv.ru>
Hello, Валерий!
You wrote on Wed, 29 Oct 2003 13:09:30 +0000 (UTC):
ВК> SQLd = "SELECT Id FROM Doljnost WHERE Nazvanie = "
ВК> +chr(39)+Combo1.Text+chr(39)
ВК> Set rsSQLd = data.OpenRecordset(SQLd)
ВК> что тут не так???
ВК> какого типа должен быть SQLd? TString?
ВК> или какой сиснтаксис у параметрических запросов???
Я всегда пишу так:
SQLd = "SELECT Id FROM Doljnost WHERE Nazvanie = ' " & Combo1.Text & " ' "
Пробелы между одинарными и двойными кавычками я поставил для наглядности,
при таком написании, у меня никогда не возникало проблем, ни с Access, ни с
MSSQL, ни с Oracle.
Сергей Hиконов. E-mail: foma [@] ortv.ru
* Origin: A well-installed InterNetNews site (2:5020/400)
Re: modulezz
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Tim.
Вы, было дело, писали, 23:37 28.10.03:
TS> может то знает как пpоигpывать в эхотаге сабж (mod,it,xm и т.д.)?
NPMOD32.DLL {220 кб, но зато встроенный визуальный интерфейс,
zip-модуль, конвертор форматов и пр. пр.} FREE
http://www.modplug.com/mods/nrelease.php3
'========== Sample Code (c)2002 Shura ==========
Declare Function ModPlug_CreateEx Lib "npmod32.dll" (ByVal lpszArgs As String) As Long
Declare Function ModPlug_Destroy Lib "npmod32.dll" (ByVal pPlugin As Long) As Long
Declare Function ModPlug_SetWindow Lib "npmod32.dll" (ByVal pPlugin As Long, ByVal hwnd As Long) As Long
Declare Function ModPlug_Load Lib "npmod32.dll" (ByVal pPlugin As Long, ByVal lpszFileName As String) As Long
Declare Function ModPlug_Play Lib "npmod32.dll" (ByVal pPlugin As Long) As Long
Declare Function ModPlug_Stop Lib "npmod32.dll" (ByVal pPlugin As Long) As Long
'* 1.80+ *
Declare Function ModPlug_SetCurrentPosition Lib "npmod32.dll" (ByVal plugin As Long, ByVal nPos As Long) As Long
Declare Function ModPlug_GetCurrentPosition Lib "npmod32.dll" (ByVal plugin As Long) As Long
Declare Function ModPlug_GetVersion Lib "npmod32.dll" () As Long
Declare Function ModPlug_IsPlaying Lib "npmod32.dll" (ByVal plugin As Long) As Long
Declare Function ModPlug_IsReady Lib "npmod32.dll" (ByVal plugin As Long) As Long
Declare Function ModPlug_GetMaxPosition Lib "npmod32.dll" (ByVal plugin As Long) As Long
'* 1.91+ *
Declare Function ModPlug_SetVolume Lib "npmod32.dll" (ByVal plugin As Long, ByVal vol As Long) As Long
Declare Function ModPlug_GetVolume Lib "npmod32.dll" (ByVal plugin As Long) As Long
Dim RetVal As Long
Dim x As Long
Dim ModFileName$
Private Sub Command1_Click()
'Create the plugin instance
RetVal = ModPlug_CreateEx("loop|true|controls|stereo|spcolor|white|vucolor|white")
'Now, create the plugin window
x = ModPlug_SetWindow(RetVal, Me.hWnd)
ModFileName$ = "MYMOD.MOD" 'remember to include full
'path if MOD is not in app
'directory
x = ModPlug_Load(RetVal, ModFileName$)
'Play the MOD.
x = ModPlug_Play(RetVal)
End Sub
Private Sub Command2_Click()
'Stop the plugin.
x = ModPlug_Stop(RetVal)
'Now, destroy the plugin window...
x = ModPlug_Destroy(RetVal)
RetVal = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Command2_Click
End Sub
'========== End Of Sample =============
--
Alexander aka Shura
* Origin: Talk.Mail.Ru (2:5020/400)