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

Программирование (VB,C#,ASP,.NET): новости, советы, примеры



Выпуск # 245


http://www.kbyte.ru/

 

Новый выпуск!

Дело было вечером, делать было нечего, и решил я выпустить рассылку с последними обновлениями сайта, строго не судите, но если есть что сказать, пишите, не молчите, буду рад ответить.

 

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

Система ЭКСПЕРТ

    Вопрос #000665: Параметры в VB6

    Вопрос #000639: Как програмно считать разрешение из видео файл...

    Вопрос #000635: Свойство Combo в VB 6.0

    Вопрос #000627: Обработка сообщения мыши компонентом UserContro...

    Вопрос #000611: Новый вопрос без темы

Последнее на форумах

    KbyteNotepad v. 2.0

    Файлы на VB .NET 2003

    Ох и "железо"...Помогите...

    AutoSubscribe .NET - автоматический выпуск рассылок для платформы Framework .NET

    Подключение к БД на VB6...

Последние статьи

    Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)

    Работа с SQL – Запросы

    Использование XML.Serialization

    Выбор языка программирования для научных работ (2-я редакция)

    Работаем с MIME

Интересные коды и решения

Юмор на Kbyte.Ru

 

Система ЭКСПЕРТ

 

Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, никаких наездов, оскорблений и насмешек со стороны гуру, просто спросите и получите ответ ;-)


Вопрос #000665: Параметры в VB6

Автор вопроса: Сергей // 06.01.2008 / 05:11

С Новым Годом, Эксперты!
У меня такая вот проблема в моей апликухи на VB6:
Передаю апликухе в качестве входного параметра имя файла
"C:\Program Files\Экзаменатор\Экзаменатор.exe" "Test_10_kl.ekz" - (примерно такой параметр:)
а где мне его в VB найти?:( Вот в Delphi7 входной параметр := -ца значению функции ParamStr.
И потом с этим пораметром делаем чё хотим...
А как на Visual Basiс-e не знаю :-(
Так вот есть ли в VB6 подобная функциия или переменная ну или какой другой способ?
Будьте добры подскажите пожалуйста...!)
Зараннее благодарен... 8-)


--------------------------------------
Категория: --- Visual Basic 5.0/6.0

Отвечает: Алексей Немиро // 06.01.2008 / 05:19

Здравствуйте, Сергей!

В Visual Basic для этого используется функция Command


--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 

Вопрос #000639: Как програмно считать разрешение из видео файл...

Автор вопроса: Fox // 06.12.2007 / 11:15

Добрых суток
У меня вопрос как програмно считать разрешение из видео файла при помощи C#?

Отвечает: Алексей Немиро // 08.12.2007 / 07:24

Наиболее оптимальным вариантом будет открыть видио-файл, получить необходимые данные и закрыть.
Вот небольшой пример:

1. Подключите к проекту Microsoft.DirectX.AudioVideoPlayback.
2. Разместите на форме элемент openFileDialog:
001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
 int height = this.Height;
 int width = this.Width;
 Video _video = new Video(openFileDialog1.FileName);
 _video.Owner = this;
 videoPanel.Width = width;
 videoPanel.Height = height;
 _video.Play();
 _video.Pause();
 Console.WriteLine("Ширина: " + _video.DefaultSize.Width);
 Console.WriteLine("Высота: " + _video.DefaultSize.Height);
}

В коносли должен появиться размер видео-файла.

 

Вопрос #000635: Свойство Combo в VB 6.0

Автор вопроса: Федоренко Дмитрий Константинович // 04.12.2007 / 06:37

Здравствуйте эксперты.
Хочу задать вам вопрос такого плана.
Например, я использую в программе форму, на которой размещен Combo и
каждый раз должен выбирать из этого списка(Combo) того или иного
сотрудника(записиь), скажем я точно знаю, что определенная запись
используется чаще всего, для этого я пишу ее значение в свой ini фаил, а
потом при открытии формы, считываю значение этой записи из файла и хочу,
чтоб в компоненте Combo фокус стоял именно на этой записи, избавляя меня от
лишнего просматривания, поиска и выбора её, при большом объеме записей.
Другими словами, как можно сразу сфокусироваться на нужном мне
элементе(записи) списка Combo, то есть чтоб именно он стоял (отображался в
списке) сразу?

Заранее благодарен, Федоренко Дмитрий.

Отвечает: Алексей Немиро // 04.12.2007 / 06:46

Здравствуйте, Дмитрий.

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
Private Sub Form_Load()
 'добавляем записи
 Dim i As Long
 For i = 0 To 100
  Combo1.AddItem ("Запись " & i)
 Next i
 'выбераем 25 запись по индексу
 Combo1.ListIndex = 25
 'выбор записи по тексту
 'Dim findText As String
 'findText = "Запись 10"
 'For i = 0 To Combo1.ListCount - 1
 ' Combo1.ListIndex = i
 ' If Combo1.Text = findText Then
 '  Exit For
 ' End If
 'Next i
End Sub


--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/
Кодообменник Kbyte.Ru - меняйтесь кодами!

 

Вопрос #000627: Обработка сообщения мыши компонентом UserContro...

Автор вопроса: Антон // 28.11.2007 / 14:23

Здравствуйте!
В .NET можно создавать новые компоненты путем наследования от компонента UserControl. При этом новый компонент получается путём агрегирования других компонентов, которые и получают сообщения от мыши, когда курсор находится над ними. Вопрос такой: можно ли сделать так, чтобы новый компонент (на основе UserControl) будучи помещенным на форму получал сообщения от мыши (например MouseMuve) как одно целое (в не зависимости от того, над каким из его компонентов находится курсор)?
Буду очень благодарен за ответ.

--------------------------------------
Категория: --- Visual Basic .NET

Отвечает: Алексей Немиро // 08.12.2007 / 07:34

Это можно реализовать, зная размер Вашего контрола, его координаты на форме, координаты и размер самой формы на экране, и координаты мышки на экране.

--
- Если у Вас есть вопросы по программированию, которые бы Вы хотели обсудить, воспользуйтесь Форумом.
- Если у Вас есть код или пример кода, которым бы Вы хотели поделиться с общественностью, воспользуйтесь Кодообменником.
- Если у Вас есть готовые проекты или сайты, Вы всегда можете добавить их в раздел Наши проекты.

 

Вопрос #000611: Новый вопрос без темы

Автор вопроса: Федоренко Дмитрий Константинович // 15.11.2007 / 05:32

Здравствуйте уважаемые эксперты.
Скажите пожалуйста есть ли такое свойство у компонента Combo в VB 6.0,
которое задает длинну низпадающего списка.
Например, если у меня, скажем, 3-4 элемента занесено в этот список, то я при
выборе нужного вижу их все сразу, а если их очень много(так что они не
умещаются сразу все в видимую область), то приходится пользоваться бегунком
справа и прокручивать в поиске нужного элемента.
Так вот, есть ли такое свойство, которое позволяет задавать размеры этой
видимой области (длинну низпадающего списка), чтобы я смог увидеть например
не 3-4 элемента, а 10-20, пока мне это будет позволять делать экран монитора
:))) ? И что это за свойство?
Заранее благодарен за ответ.

Отвечает: Алексей Немиро // 15.11.2007 / 05:39

Здравствуйте, Дмитрий!

Нет, стандартного такого свойства нет, но это можно реализовать при помощи API.
Я не так давно добавлял примеры на эту тему в наш Кодообменник:
http://kbyte.ru/Code/ShowList.aspx?lid=1&gid=1&uid=0&sort=0

ЗЫ: прям дежавю какое-то :))


--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

 


Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

 

 

Последнее на форумах

KbyteNotepad v. 2.0 | Автор: Паша
Добавлено: 09.01.2008 / 10:01 | ответов: 2 | просмотров: 29

Здравствуйте! Может кто-то помнит проект KbyteNotepad. Я хочу выпустить его 2.x версии, но мне одному не справиться.

Я пишу первые строки KbyteNotepad на VB 2008, постите сюда, если вы хотите принять участие в проекте, выразите свое мнение о нем.
ЗЫ: Проект Open Source.
ЗЗЫ: Merry Christmas!

Ссылка для скачивания первой беты, сделанной еще на VB 2003: http://pave-borisov.narod.ru/KbyteNotepadSetup.exe

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:09.01.2008 / 12:06
Лучше чем то, что было до этого :), но все равно далеко до идеала.
Мой тебе совет, сделай обычный блокнот с нормальной поддержкой плагинов, и все навороты реализуй именно через плагины.

Думаю можно замутить что-то типа этого:

1. Форма (ее не трогаем)
2. Меню – нужно дать возможность плагинам изменять меню, для этого надо передавать ссылку на меню.
3. Текстовое поле, но здесь я бы рекомендовал засунуть текстовое поле в контейнер, и передавать ссылку на контейнер, что бы текстовое поле можно было убить и поменять что-нибудь другое, а также чтоб из плагинов можно было немного изменить, или дополнить интерфейс блокнота. Например, при таком раскладе, можно будет добавлять несколько текстовых полей, вкладки какие-нибудь, медиаплейер вставить :)

В итоге, тебе надо будет написать простенькую программу - блокнот, а навороты уже делать через плагины, так будет проще и быстрее, и может народ заинтересуется, если основа будет нормальной ;)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Паша
Добавлено:09.01.2008 / 14:53
Про реализацию плагинов:
как форму (т. е. сторонний тип) отобразить из библы плагина?
Я пишу так:
Dim ff As New frmShema
ff.show

Форма не отображается, если подключать сборку плагина через интерфейс

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Файлы на VB .NET 2003 | Автор: SergeyRasshevatka
Добавлено: 09.01.2008 / 02:00 | ответов: 4 | просмотров: 69

Здравствуйте все кто нах. на kbyte.ru!!! MERRY CHRISTMAS!!!
У меня такой прабл.: В пятницу (11.01.08) у нас в районе олимпиада (зональная (краевая)) по программированию…
В списке доступных систем программирования VB6 (из всего, что я не знаю это то, что лучьше всего знаю:)!!!(ну ещё и Русский, чуть-чуть))
есть VB .NET 2003 он похож на VB6, но подскажите как в нём (языке) произвести запись\чтение в файл\из файла
В VB6 примерно такой вид:
Чтение:
Dim strFileName as string,strA as string
001:
002:
003:
004:
005:
006:
If Right(App.Path, 1) = "\" Then strFileName = App.Path + "in.txt" Else strFileName = App.Path + "\in.txt"
Open strFileName For input As #1
input #1, strA ' Так для примера...:)
Close #1

Colorized by: Eros.CodeSyntaxColor Engine

msgbox strA,21,"Так для примера...:)"
Запись:

001:
002:
003:
004:
005:
006:
If Right(App.Path, 1) = "\" Then strFileName = App.Path + "in.txt" Else strFileName = App.Path + "\in.txt"
Open strFileName For Output As #1
Print StrReverse("лйаф йынборп отЭ"))' Так для примера...:)
close

Colorized by: Eros.CodeSyntaxColor Engine


Кто знает VB .NET 2003 Прошу ПОМОЩИ...Если кто захочет мне помочь то просьба сделать ето до 11.01.08 :)
Зараннее СПАСИБО!!!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: SergeyRasshevatka
Добавлено:09.01.2008 / 02:04
В списке доступных систем программирования VB6

Сорри...Опечатка... VB6 там нетуууууууу:(
:)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Алексей
Добавлено:09.01.2008 / 06:16
все кто нах. на kbyte.ru

сократил :) надо было тогда уж так писать:
"все кто нах бл* на kbyte.ru" :)

есть VB .NET 2003 он похож на VB6

он также похож на VB 6.0, как и на VB .NET 2005, и на VB .NET 2008 :)

В общем, там все просто, если понимаешь архитектуру .NET и знаешь кто такой ООП и с какой стороны к нему надо подходить :)

Есть нэймспейс System.IO, в котором находится все необходимое для работы с файлами и дирректориями:
1. Импортируешь пространство имен System.IO, в редакторе кода увидишь, где это делается (если не увидишь, то грубо говоря, в самом верху):
001:
002:
003:
Imports System.IO

Colorized by: Eros.CodeSyntaxColor Engine

2. Работаешь с файлами, например, так:
001:
002:
003:
004:
005:
Dim rdr As New StreamReader("fileName.txt", System.Text.Encoding.GetEncoding(1251))
rdr.ReadLine() 'прочитали строку из файла, там еще есть функция для чтения всего файла, думаю ты ее найдешь сам ;) Ctrl + J
rdr.Close() 'закрыли файл

Colorized by: Eros.CodeSyntaxColor Engine

Для записи можно использовать класс StreamWriter.

Тема и нюансы работы с файлами в .Net уже много раз обсуждалась на этом форуме.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: SergeyRasshevatka
Добавлено:09.01.2008 / 15:20
сократил :) надо было тогда уж так писать:
"все кто нах бл* на kbyte.ru" :)

:-))))))))))
он также похож на VB 6.0, как и на VB .NET 2005, и на VB .NET 2008 :)

<<<<В нем больше сходстава c VB .NET 2003 чем с C++, и Java :)>>>>>>>
001:
002:
003:
004:
005:
006:
Imports System.IO
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rdr As New StreamReader(app.path + "fileName.txt", System.Text.Encoding.GetEncoding(1251))
        rdr.ReadLine() 'прочитали строку из файла, там еще есть функция для чтения всего файла, думаю ты ее найдешь сам ;) Ctrl + J
        rdr.Close() 'закрыли файл
        End Sub

Many thanks!!!)
ОГРОМНОЕ СПАСИБО!!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: Алексей
Добавлено:09.01.2008 / 15:26
<<<<В нем больше сходстава c VB .NET 2003 чем с C++, и Java :)>>>>>>>

естественно, синтаксис сохранен, слово Basic в названии ведь не просто
так осталось :) для Java и C++ в .Net есть свои аналоги ;)

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ох и "железо"...Помогите... | Автор: SergeyRasshevatka
Добавлено: 06.01.2008 / 13:54 | ответов: 3 | просмотров: 74

Здравствойте люди!
Я не разу не видел на сайте больших обсуждений железа но тем не менее прошу помогите кто чем может...
У меня проблема Вчера/сегодня просидел за компом всю ночь и он (комьпьютер) почти сдох...
Сижу я в Нэте, только написал сообщение на форум http://kbyte.ru/Forum/Show.aspx?id=7766&lang=ru
как вдруг мой мобильник (Siemens c65) выключился:
Включаю... Только кабель подкл. мобила откл.
Беру другой мобильник Motorola Razor v3(i) конектю через USB (как и сименс (только шнур естественно другой)) комп нового мадема не находит. Я подумал может USB портам компа хона т.к. ставлю туда Флешку тоже не находит устройство :(
Кстати всё тоже самое делаю на компе который рядом (у меня их два) все работает :-O
Вобщем там походу USB накрылись (все 6)...
Может у кого такое было... Подскажите пожалуйста, что мне делать...(просто перекидывать DVB на другой комп) да и лавэ на ЖПРС хавает...
Да и если это имеет значение то я юзаю нет Ассинхронно Спутниковая чашка + MOBILA...
Зараннее благодарен...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: Алексей
Добавлено:06.01.2008 / 14:11
0. Вполне возможно, что поломки у твоего компа никакой нет. Чтобы проверить эту теорию выполни следующую операцию: ляг на кровать, закрой глаза, пролежи так не менее 12 часов, потом аккуратно открой глаза, сначала левый глаз, потом правый, затем попытайся потихоньку приподняться, без резких движений, т.к. это может нарушить моторные функции и ты можешь случайно упасть :) далее, можешь проверить, работают ли у твоего компа USB, или нет.

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

2. Протести комп прогой типа Everest, либо Sandra. Если нет, запусти какую-нибудь игрушку, которая у тебя жутко тормозит, и поиграй в нее пол часа :)) если комп выживет, то скорей всего с железом все нормально, покрайней мере со всякими южными мостами точно, если таковые имеются (cpu: Intel).

3. Открой системник, посмотри, может что-то отвалилось.

x. При выполнении тройного сальто, войди в позу лотоса и нежно пни системник левой ногой :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: SergeyRasshevatka
Добавлено:06.01.2008 / 14:25
Вполне возможно, что поломки у твоего компа никакой нет. Чтобы проверить эту теорию выполни следующую операцию: ляг на кровать, закрой глаза, пролежи так не менее 12 часов, потом аккуратно открой глаза, сначала левый глаз, потом правый, затем попытайся потихоньку приподняться, без резких движений, т.к. это может нарушить моторные функции и ты можешь случайно упасть :) далее, можешь проверить, работают ли у твоего компа USB, или нет.

Уже пробывал, часа полтора как завершил операцию :)
Поковыряйся в биосе, может там что-то вырубилось.

Уже поковырялся - ноль:(
Пробыю обнулить,батарейку вынул...
Протести комп прогой типа Everest, либо Sandra.

Есть, надо попробывать...
Если нет, запусти какую-нибудь игрушку, которая у тебя жутко тормозит, и поиграй в нее пол часа :))

Нет таких, а жаль... :)
со всякими южными мостами точно, если таковые имеются (cpu: Intel).

Да есть...Ещё и северный в коробке от компа завалялся :)))
Открой системник, посмотри, может что-то отвалилось.

Всё чётко, разви только какаято фигня сплавилась карбюратор кажется:)
x. При выполнении тройного сальто, войди в позу лотоса и нежно пни системник левой ногой :)

х. после выполнения пункта 2 обязательно...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: SergeyRasshevatka
Добавлено:06.01.2008 / 14:43
1. Поковыряйся в биосе, может там что-то вырубилось. Хотя хз, при каких обстоятельствах оно само могло рубануться, разве что от перегрева, крышу какой-нибудь микросхеме снесло :)

Скорее всего:)
Лазил биосе ставил всё по умолчанию не помогло...
После полного обнуления биоса всё снова работает :)
Отдельная благодарность Алексею!!!
x. При выполнении тройного сальто, войди в позу лотоса и нежно пни системник левой ногой :)

Как нибудь в другой раз.
Хотя дельный совет...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


AutoSubscribe .NET - автоматический выпуск рассылок для платформы Framework .NET | Автор: Алексей
Добавлено: 06.01.2008 / 05:40 | ответов: 0 | просмотров: 34

Вчера выпустил в свет компонент для Framework .NET, который позволяет программно выпускать рассылки через сервис Subscribe.Ru.
Кому интересно, найти сам компонент и пример использования можно здесь:
http://aleksey.nemiro.ru/Projects/Components/AutoSubscribe-NET.nspx

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Подключение к БД на VB6... | Автор: Kolya007
Добавлено: 05.01.2008 / 16:50 | ответов: 11 | просмотров: 206

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
Dim conn As ADODB.Connection 'Выдает ошибку
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & GetAppPath & ";" 'Какая строка подключения нужна для БД .DBF
conn.Open
Set rs = conn.Execute("SELECT * FROM reg", , adCmdText)
auth(0) = 'Тут надо произвести вывод по полям...
auth(1) = 'Как это зделать?..
auth(2) = 'Запись всего одна...
rs.Close
conn.Close

Colorized by: Eros.CodeSyntaxColor Engine

Ошибка User-defined type not defined...

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 1 | Автор: SergeyRasshevatka
Добавлено:06.01.2008 / 02:11
001:
002:
003:
Dim conn As ADODB.Connection 'Выдает ошибку

Colorized by: Eros.CodeSyntaxColor Engine

Для начала надо подключить к проекту компонетнт под названием Microsoft ADO Data Control 6.0 (OLEDB)
появившийся на панели "инструментов" контрол, методом D&D, нарисовать на форме и всё путём... VB больше не матерится...
Т. К. я не когда не занимался базами данных что делать дальше не могу сказать :(
Да и выше написанное это мой фирменный "Метод тыка" (иногда Научного) :)
(Если честно то я не знаю о чём идет речь:))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 2 | Автор: Kolya007
Добавлено:06.01.2008 / 02:38
Для начала надо подключить к проекту компонетнт под названием Microsoft ADO Data Control 6.0 (OLEDB)
появившийся на панели "инструментов" контрол, методом D&D, нарисовать на форме и всё путём... VB больше не матерится...

Спасибо, но меня интересует вариант без создания контрола на форме... Если таковой существует...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 3 | Автор: SergeyRasshevatka
Добавлено:06.01.2008 / 03:25
Ё май я думал тут в такое время (06.01.2008 / 02:35:45) никого не бывает кроме меня а тут вдруг Kolya00:)
Может что нибудь бы и посказал но повторюсь
Т. К. я не когда не занимался базами данных что делать дальше не могу сказать :(
Да и выше написанное это мой фирменный "Метод тыка" (иногда Научного) :)
(Если честно то я не знаю о чём идет речь:))

Совет: Дождаться пока проснуться все остальные. (Алексей например)
PS: Утро вечера мудреннееееееееzzzz.......:)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 4 | Автор: Алексей
Добавлено:06.01.2008 / 05:06
Я уже проснулся, у меня как раз почти 12 часов дня :)))

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & GetAppPath & ";" 'Какая строка подключения нужна для БД .DBF

http://www.connectionstrings.com/

ODBC


001:
Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;

OLE DB, OleDbConnection (.NET)


001:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=dBASE IV;User ID=Admin;Password=;

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 5 | Автор: Алексей
Добавлено:06.01.2008 / 05:08
Set rs = conn.Execute("SELECT * FROM reg", , adCmdText)
auth(0) = 'Тут надо произвести вывод по полям...
auth(1) = 'Как это зделать?..
auth(2) = 'Запись всего одна...

так же как и в ASP, объект та один и тот же.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 6 | Автор: Kolya007
Добавлено:06.01.2008 / 05:39
Спасибо, но меня интересует вариант без создания контрола на форме... Если таковой существует...

А такой существует?..
так же как и в ASP, объект та один и тот же.

Хотел удостовериться, что неошибаюсь...))
001:
Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;

Использую эту... Спасибо...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 7 | Автор: SergeyRasshevatka
Добавлено:06.01.2008 / 05:42
Я уже проснулся, у меня как раз почти 12 часов дня :)))

Я забыл что Вы живёте во Владивостоке, а у меня как раз почти 5.32 часов утра (ночи или чё там у меня за окном:))
спать не ложился сижу в НЕТЕ чё-то про метеорит нашол http://ssd.jpl.nasa.gov/sbdb.cgi?sstr=2007+WD5&orb=1
Скука ZzZzz...:)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 8 | Автор: Алексей
Добавлено:06.01.2008 / 05:44
А такой существует?..

Конечно :)
Проект -> Ссылки -> Microsoft DAO 3.6 Object Library
http://kbyte.ru/Unicode/ShowGroup.aspx?id=6

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 9 | Автор: Алексей
Добавлено:06.01.2008 / 05:49
SergeyRasshevatka, спать иногда полезно, от скуки точно помогает ;)

в НЕТЕ чё-то про метеорит нашол http://ssd.jpl.nasa.gov/sbdb.cgi?sstr=2007+WD5&orb=1

Занимательная статья: Error Condition :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 10 | Автор: Kolya007
Добавлено:06.01.2008 / 05:56
Конечно :)

Спасибо...))

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Ответ # 11 | Автор: Kolya007
Добавлено:06.01.2008 / 16:35
001:
002:
003:
Set rs = conn.Execute("SELECT * FROM reg", , adCmdText)

Colorized by: Eros.CodeSyntaxColor Engine

Ошибка: Внешняя таблица не имеет предпологаемый формат...
Строка на dBase 5.0, таблица БД тоже на dBase 5.0... Вот попробуй пойми...

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru


Наверх

 

Последние статьи

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 2205

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 3918

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 1136

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 3535

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Работаем с MIME
Автор: Немиро Алексей | добавлено: 29.11.2006 / 14:46 | просмотров: 3117

Не так давно мне пришлось немного поработать MIME (Multipurpose Internet Mail Extension) - это стандарт почтовых сообщений, в РуНете (Russian Internet) я не нашел нормального описания спецификации MIME, и посему решил написать небольшую статейку на эту тему. В данной статье вы узнаете об основных особенностях и стандартах MIME, а также научитесь «читать» MIME с использованием синтаксиса языка Visual Basic .NET 2005.

 

Статьи на Kbyte.Ru

Наверх

 

Интересные коды и решения

Как удалить картинку с элемента (Form, PictureBox, Image etc.)?
Дата добавления: 16.08.2006 / 20:02 | просмотров: 877 | платформа: VB

Как запустить процесс и дождаться его завершения?
Дата добавления: 24.03.2007 / 12:12 | просмотров: 922 | платформа: VB .NET

Пример добавления окончания к числу (англ.)
Дата добавления: 24.03.2007 / 12:33 | просмотров: 987 | платформа: VB .NET

Как программано выровнить форму по центру экрана?
Дата добавления: 23.08.2006 / 18:59 | просмотров: 1356 | платформа: VB .NET

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 2194 | платформа: ASP

Как сделать, чтобы при «редиректе» сервер выдал 301 код статуса, а не 302?
Дата добавления: 31.07.2006 / 13:50 | просмотров: 1165 | платформа: ASP .NET (VB)

Как распечатать Web-страницу?
Дата добавления: 17.08.2006 / 17:58 | просмотров: 1284 | платформа: VB

Как получить имя пользователя? (с использованием API)
Дата добавления: 24.03.2007 / 12:19 | просмотров: 843 | платформа: VB .NET

Как запретить изменение размера формы?
Дата добавления: 21.08.2006 / 20:11 | просмотров: 1489 | платформа: VB

Как узнать IP-адрес посетителя?
Дата добавления: 01.09.2006 / 12:20 | просмотров: 1681 | платформа: ASP

 

Универсальные коды на Kbyte.Ru

Наверх

 

Юмор на Kbyte.Ru

В США борьба за равноправие привела к тому, что теперь женщины приравниваются к неграм, голубым и инвалидам.

 

Рейтинг: 240
Всего голосов: 260
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

На курсах делового русского языка для английских бизнесменов:
- Артикль "a" переводится на русский язык как "типа", а артикль "the" как "конкретно".

 

Рейтинг: 282
Всего голосов: 412
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Сидят два хакера за компьютером. Вдруг заходит кот. Один говорит:
- Твой кот?
- Да.
- Как зовут?
- Zyxel.
- А почему так?
- Смотри.
Берёт веник, подходит к коту и говорит:
- Zyxel Конект!
Кот:
- Пшшшшшшшшшш

 

Рейтинг: 135
Всего голосов: 216
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Объявление в аэропорту: "Уважаемые пассажиры! Мы просим всех потерявших коричневый бумажник с пятью тысячами долларов не толпиться, а выстроиться по двое в очередь к окошечку бюро информации."

 

Рейтинг: 187
Всего голосов: 282
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Звонит один мужик своему интернет-провайдеру и говорит оператору:
- Алло, здраствуйте, у меня проблема! Я не могу зайти в интернет!
- А в чем, собственно говоря, дело?
- А у меня нет компьютера...

 

Рейтинг: 175
Всего голосов: 296
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Встречаются два хакера. Ну там йо-мое, за жизнь и все такое... Один как-то так мимоходом спрашивает:
- А у тебя кто провайдер?...
- ФСБ...
- КАК ФСБ!!??
- Да они у нас в конторе жучков понаставили, так я через них...

 

Рейтинг: 134
Всего голосов: 222
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

С тех пор, как я попробовала новый "Dove", моя кожа помолодела, стала нежной, приятной на ощупь. Поры раскрылись.
Я почувствовала прилив бодрости, новых сил! Даже сама удивилась! Хотя на вкус - мыло как мыло...

 

Рейтинг: 87
Всего голосов: 156
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Я по тебе уже так соскучилась... Ты так давно не брал меня в свои сильные руки. Ну давай же скорее возьми меня, я уже так горю... Неужели ты хочешь изменить мне с другой? Милый, пожалуйста, не надо, ведь я - твоя работа.

 

Рейтинг: 223
Всего голосов: 331
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Конфеты для программистов: "Мышки на сервере".

 

Рейтинг: 531
Всего голосов: 847
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Дочка спрашивает маму:
- А кто этот страшный, волосатый дядя с красными глазами?
- А это твой папа.
- А он что заболел?
- Нет, к интернету подключился...

 

Рейтинг: 178
Всего голосов: 285
Оцените этот анекдот через E-Mail:
Выберите оценку: 5 | 4 | 3 | 2 | 1

 

Весь юмор на Kbyte.Ru

Наверх


Выпуск подготовил: R-KDR-19826

Редактор: Немиро Алексей

Copyright (c) Nemiro AS, 2005-2007


В избранное