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

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

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

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

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


ADO

Hello All
Может вопpос слегка глупый, но как такое можно сделать: пользователь пеpемещается по записям в таблице(гpиде), одновpеменно инфоpмация не уместившаяся показывается напpимеp в textbox'e.
Если не сложно киньте уpл пpимеpа pаботы на основе АДО с БД(Access mdb). Что в то стандаpтных сэмплах этого не нашел:(
Можно ли с помощью АДО pаботать с базами данных MySQL?

Bye
* Origin: -= HOW LITTLE A PERSON NEEDS TO BE LUCKY =- (2:5033/11.162)


AsynchConnect

From: anton [@] asuxxivek.spb.ru (Anton)

Hе могу остановить Асинхронное соединение (ADO)

Так осуществляю соединение:

Conn_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=MyDataBase;Data Source=server"
Set Conn = New ADODB.Connection
Conn.ConnectionString = Conn_String
Conn.ConnectionTimeout = 10
Conn.CommandTimeout = 10
Conn.Open Conn_String, , , adAsyncConnect

Hо если сервера с именем "server" в сети нет, попытка соединения будет
длиться до таймаута
Допустим я не хочу ждать и делаю попытку отменить соединение:
Conn.Cancel

что, как я полагаю верно!
Однако выполнение проги останавливается на этом операторе и точно
также слетает только после таймаута

Почему???
* Origin: groups.google.com (2:5020/400)


AsynchConnect

From: anton [@] asuxxivek.spb.ru (Anton)

Hе могу остановить Асинхронное соединение (ADO)

Так осуществляю соединение:

Conn_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;Initial Catalog=MyDataBase;Data Source=server"
Set Conn = New ADODB.Connection
Conn.ConnectionString = Conn_String
Conn.ConnectionTimeout = 10
Conn.CommandTimeout = 10
Conn.Open Conn_String, , , adAsyncConnect

Hо если сервера с именем "server" в сети нет, попытка соединения будет
длиться до таймаута
Допустим я не хочу ждать и делаю попытку отменить соединение:
Conn.Cancel

что, как я полагаю верно!
Однако выполнение проги останавливается на этом операторе и точно
также слетает только после таймаута

Почему???
* Origin: groups.google.com (2:5020/400)


Re: Из TextBox в массив.

From: "A. Skrobov"

Fri May 14 2004 22:02, Stanislav Tolstov wrote to A. Skrobov:

ST>>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST>>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы
ST>>> вы такую задачу pешили?
AS>> Ха.
AS>> Massiv = Split(Text1.Text)
ST> А как массив после кое-каких действий впендюpить обpатно в текстбокс?
;-)
Text1.Text = Join(Massiv)

* Origin: FidoNet Online (2:5020/175.2)


Re: Закодировать текстовый файл

From: "A. Skrobov"

Sat May 15 2004 01:11, Alexander Asyabrik wrote to A. Skrobov:

AA>>> Да и при работе байтовыми массивами скорость операций всегда
AA>>> выше, нежели чем со строками.
AS>> Вовсе даже не всегда, зависит от задачи.
AA> Погорячился, согласен.
;-)

AS>> Давай, пиши замену подстроки в байтовом массиве, посмотрим, будет ли
AS>> быстрее.
AA> Хм... А я вроде бы уже сюда информацию на эту тему забрасывал
AA> когда-то. Если очень коротко, для тех, кто понимает ;-), то так
AA> PS Hа скорость я такой ход не тестировал (в смысле с Replace), попробуй
AA> сам.
Любопытная фишка. А конкатенировать байтовые массивы тоже так запросто можно?
Или, ммм... заменить все подстроки вида ?было? на ?стало?, где ? -
произвольный символ? (цель та, чтобы не нашлось стандартной функции, и
заменять пришлось руками)
Безусловно, есть и у строк преимущества. Вон, в делфи есть и length-prefixed,
и zero-terminated строки, потому что у обоих типов есть свои преимущества и
недостатки. И никто, казалось бы, не кричит, что одни из них всегда круче
других, и другие надо выбросить, а те оставить.

* Origin: FidoNet Online (2:5020/175.2)


Закодировать текстовый файл

TA>>> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA>>> А вообще бывают?
AA>> Любой архиватор именно этим и занимается, но только вот в
AA>> результате _бинарные_ данные.
TA> Копаться в закодированном как в массиве бит? Интересно девки пляшут
TA> ;)
Способ разбор по байтам по простоте и удобству прочно стоит на 1м месте.


* Origin: 1134 (2:5045/44.13)


Hабор каманды !!!

IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
IS> Люди у меня есть к вам предложение ... давайте объеденимся в
IS> группу и создадим какой нибуть проэкт !!! ...
IS> _Ваши соображения по этому поводу !!!_
IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

Вношу предложение - слова "команды" и "объединимся" пишутся именно так, а "какой-нибудь" - это вообще два разных человека.

А к тебе ответное рацпредложение - давай спляшем на луне.


* Origin: 1134 (2:5045/44.13)


Из TextBox в массив.

ST> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы
ST> вы такую задачу pешили?
VB6 - функция Split
VB5 - если интересует, могу рассказать

другие VB - не уверен.


* Origin: 1134 (2:5045/44.13)


Закодировать текстовый файл

AA>> Что уж так сразу и "бит"? C _байтами_ повеселее будет
AA>> "плясать":-) Да и при работе байтовыми массивами скорость
AA>> операций всегда выше, нежели чем со строками.
AS> Вовсе даже не всегда, зависит от задачи.
AS> Давай, пиши замену подстроки в байтовом массиве, посмотрим, будет ли
AS> быстрее. Чyр без CopyMemory.
Быстрее чего? Быстрее replace? Или поиска и замены по Mid$? ;)



* Origin: 1134 (2:5045/44.13)


Из TextBox в массив.

AS>> You wrote in conference fido7.ru.visual.basic to "All"
AS>> to All on Fri, 14 May 2004 19:05:22
AS>> +0400:
ST>>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST>> ST>>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив.
ST>>> Как бы вы такую задачу pешили?
AS>> Ха.
AS>> Massiv = Split(Text1.Text)
ST> А как массив после кое-каких действий впендюpить обpатно в текстбокс?
Join


* Origin: 1134 (2:5045/44.13)



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




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