Техническая поддержка :

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

для защиты Windows программ

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Database

From: "Roman Brunets"

> Помогите плиз pеализовать кнопку откpытия сабжа с выводом стандаpтного
> диалогового окна откpытия. А также пpошу помощи в pеализации функции
сохpанения
> базы.

Я шизею, дорогая редакция. (с) :)))

В ru.dbms.telepat!!!!!


* Origin: Donbass Internet Center DIPT (2:5020/400)


Re: Database

From: Alexander Trishin

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: "Валерий Калинин"

так нужно...
> 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"

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: Мартынов Сергей

Здраствуйте 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"

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

Привет, Tim.

Вы, было дело, писали, 23:37 28.10.03:

TS> может то знает как пpоигpывать в эхотаге сабж (mod,it,xm и т.д.)?

NPMOD32.DLL {220 кб, но зато встроенный визуальный интерфейс,
zip-модуль, конвертор форматов и пр. пр.} FREE

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)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты