Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic: новости сайтов, советы, примеры кодов.

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.067 RSS
←   Сентябрь 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

Автор
Павел Сурменок

Статистика

4.067 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 299.


Информационный Канал Subscribe.Ru

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 299.

VBNet VBMania
Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • MDesign
  • IgorykSoft
  • DanSoft
  • Хрестоматия VB
  • VBCoder
    		• Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Эх! Опять надо отставание от графика ликвидировать :)
    Читайте!


    Содержание выпуска



    Как подключиться к базе с паролем?

    Вопрос:

    Создал в Аксесе БД, поставил на нее пароль.
    Подключаюсь к ней из моей программы, пишу:

    Dim Wrk As DAO.Workspace
    Dim Base As DAO.Database

    Set Wrk = CreateWorkspace("MyDB", "admin", "password", dbUseJet)
    Set Base = Wrk.OpenDatabase(App.Path + "\1.mdb")

    Выдает ошибку 3028. Причем, если указать заведомо неверный пароль, то выдает ошибку 3031: "Ошибочный пароль". Что не так?

    Ответ:

    Data1.Connect = dbLangCyrillic & ";pwd=PASSWORD"
    ---< OR >---
    Set NewDB = NewWs.OpenDatabase(strDBPath, EncryptOptions, False, _
    dbLangCyrillic & ";pwd=PASSWORD")

        [Алексей]

    наверх

    Как открыть базу не в монопольном режиме?

    Вопрос:

    База с паролем не открывается в том случае, если она уже где-то открыта, например в том же Аксесе. Так вот что надо написать, чтобы база открывалась не в монопольном режиме?

    Ответ:

    Set NewDB = NewWs.OpenDatabase(strDBPath,EncryptOptions, true, _
    dbLangCyrillic & ";pwd=PASSWORD")

        [Алексей]

    наверх

    Какой аналог в VB.NET конструкции App.Path?

    Вопрос:

    Какой аналог в VB.NET конструкции App.Path?

    Ответ:

    System.appdomain.currentdomain.basedirectory

        Павел Сурменок

    наверх

    Чем отличаются функции MoveMemory и CopyMemory?

    Вопрос:

    Чем отличаются функции MoveMemory и CopyMemory?

    Посмотрел МСДН - в информации об обеих функциях написано:

    This function is defined as the RtlCopyMemory function. For more information, see Winbase.h and Winnt.h.

    То есть, обе функции вызывают в конечном счете RtlCopyMemory. Зачем это надо?

    Ответ:

    Цитирую справочник А.Климова:

    Функция MoveMemory
    Данная функция является всего лишь другим названием функции CopyMemory. Так исторически сложилось, что среди программистов стали популярны два названия одной и той же функции. Ничем другим, кроме своего названия, они не отличаются.

        Артур

    наверх

    Как програмно найти процесс и поставить ему приоритет (например, высокий)

    Вопрос:

    Как програмно найти процесс и поставить ему приоритет (например, высокий)

    Ответ:

    Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
    Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As
    Long, ByVal dwPriorityClass As Long) As Long
    Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As
    Long) As Long

    Public Enum Priority
       IDLE_PRIORITY_CLASS = &H40
       NORMAL_PRIORITY_CLASS = &H20
       HIGH_PRIORITY_CLASS = &H80
       REALTIME_PRIORITY_CLASS = &H100
    End Enum

    Public Sub SetPriority(pParam As Priority)
       SetPriorityClass GetCurrentProcess(), pParam
    End Sub

        .::Savenger::.


    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:

    Автор вопроса: Сергей

    Ответ ожидается по этому адресу

       Обьясните, как пользоваться событием Drag&Drop. В общем, дайте просто код, как переносить по форме, например, обьект picture1.

    Автор вопроса: psinetron

    Ответ ожидается по этому адресу

       Хотел написать программу, которая перехватывала бы нажатия клавиш, и посылала левые символы, но вот вычислять нажатую кнопку получается, только если активно окно VB-программы.
    Подскажите пожалуйста, можно ли это исправить.

    Автор вопроса: Sergey

    Ответ ожидается по этому адресу

       Каким образом с помощью VB6 открыть конкретный существующий файл Excel (например, уже есть созданный Excel'eм My.xls), считать в нем данные, внести корректировку и записать обратно? Все примеры видел только с вновь создаваемым файлом... VBA не приветствуется... Только отдельный VB6.

    Автор вопроса: andrey.barmaley

    Ответ ожидается по этому адресу

       Создаю RecordSet на лету (из кода), устанавливаю поля, заполняю строки. Каким образом можно установить фильтр для него или сортировку?

    Дело в том, что динамически созданный RecordSet не имеет подключения, и висит объектом в памяти, скидывать его в файл я не могу и не хочу по определению. Использовать массивы, - тоже не хочу из-за неудобства выборок.

    Пример кода:
    в референсе ссылка на ADO 2.7

    Dim rs1 As ADODB.Recordset
    Private Sub Command1_Click()
    Set rs1 = New ADODB.Recordset
    rs1.Fields.Append "q1", adVariant
    rs1.Fields.Append "q2", adVariant
    rs1.Fields.Append "q3", adVariant
    rs1.Fields.Append "q4", adVariant
    rs1.Fields.Append "q5", adVariant
    rs1.Fields.Append "q6", adVariant
    rs1.Fields.Append "q7", adVariant
    rs1.Fields.Append "q8", adVariant
    rs1.Fields.Append "q9", adVariant
    rs1.Fields.Append "q10", adVariant

    rs1.CursorLocation = adUseClient

    rs1.Open , , adOpenKeyset, adLockOptimistic
    ' Хоть мы и заказали ключевой набор, был открыт статический, кто не
    ' верит пусть проверит ;)

    For a = 0 To 9
         rs1.AddNew
         rs1.Fields(a).Value = a
         rs1.Update
    Next a

    rs1.MoveFirst

    ' А ВОТ ЗДЕСЬ ИДУТ САМЫЕ НУЖНЫЕ СТРОКИ!!!
    ' Сортируем и обламываемся
    rs1.Sort = "q1 desc"
    ' Фильтруем и обламываемся
    rs1.Filter = "q1=1"

    ' Дело в том, что CursorType в данном объекте СТАТИЧЕСКИЙ,
    ' соответственно запрещены все не касающиеся его операции.
    ' Возможен ли выход из данной ситуации?
    ' Принимаются существенные ответы, новичков просьба не беспокоить


    End Sub



    Ответы:

    Вопрос:

       Помогите с алгоритмом! Нужно посчитать оптимальное размещение хаба(ов) по этажам здания. Т.е. есть здание с произвольным количеством этажей и квартир на этажах (на каждом не больше N), нужно разместить хабы так, чтоб их совокупная стоимость была как можно меньше (5 портов - 22$; 8-36$; 12-53$ и т.д. (цены могут менятся)) и кол-во провода было бы минимальным.

    Ответ:

    Автор ответа: C...R...a...S...H

    Для решения этой задачи просто алгоритма скорее всего будет мало
    Такая задача является задачей линейного программирования (задача об оптимальном размещении), для ее решения Вам лучше всего применить специализированный программный пакет например Maple (я надеюсь, не зря учусь в Университете).
    А если хочется геморроя, то просто рассчитай среднюю стоимость одного порта:

    5-22$ =4,4$
    8-36$ =4,5$
    12-53$ =4,4166666666666666666666666666667$

    Получается самый дешевый на 5 портов.
    Он и является наиболее оптимальным по кол-ву провода, если квартиры
    расположены не по кругу.

    Вопрос:

       Загружаю в WebBrowser html документ:

    WebBrowser1.Navigate "C:\test.html"

    Как из WebBrowser1 сделать сохранение этого html файла в txt формате?

    Ответ:

    Автор ответа: C...R...a...S...H

    Private Sub Command1_Click()
    WebBrowser1.Navigate "c:\xSharez\Web\756,556\Cool\cannes-alcatel-2004.shtml.html"
    DoEvents
    DoEvents
    DoEvents
    DoEvents
    'Надо подождать загрузки
    Dim aa As Object
    For Each aa In WebBrowser1.Document.documentelement.All
    Print aa.outerhtml 'если хочешь хтмл
    Print aa.outertext 'если хочешь текст
       Next
    End Sub


    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх

    Выпуск подготовили:

    		 Сурменок Павел
    http://subscribe.ru/
    http://subscribe.ru/feedback/    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.vbnewsadvices    		 Отписаться
    В избранное