Современные решения

для защиты Windows приложений

и восстановления исходного кода

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)