| ← Март 2003 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
8
|
9
|
||
|
11
|
12
|
13
|
14
|
15
|
||
|
18
|
19
|
20
|
22
|
23
|
||
|
25
|
26
|
27
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://vbnet.ru
Открыта:
31-07-2001
Статистика
0 за неделю
Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 140.
| Информационный Канал Subscribe.Ru |
Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 140.
|
VBNet
VBMania
Голосование: Ссылки: |
Господа!!! читайте MSDN!!! Несколько слов от автора:
Загляните в раздел "Конкурс".
Читайте! Содержание выпуска
Книги
Остальные книги о VB можно найти здесь. наверх Конкурс Здравствуйте, любители Visual Basic! Подведены итоги второго конкурса на лучшую статью по программированию на Visual Basic. В конкурсе участвовало 6 работ и, надо признаться, что было очень трудно выбрать из них самую лучшую! Спасибо всем, кто принял участие в конкурсе, прислав свои работы, а также тем, кто помогал в выборе победителя, голосовав на сайте. О результатах. Я не смог выбрать одну статью в качестве победителя и решил, что на этот раз первых мест будет два. Итак, вот победители: Первое место:
Гриненко Виталий "Классовая теория програмизьма",
Ларин Александр "Реализация
длинной арифметики на Visual Basic'е". Какие же призы мы приготовили авторам? Как и в прошлый раз мы предлагаем Гриненко Виталию и Ларину Александру самим выбрать в качестве приза книгу из магазина оЗон. Книги будут оплачены сайтом VBNet. Калмыков Дмитрий получает комплект CD дисков, выпускаемых сайтом VBNet. Все остальные участники конкурса, работы которых были представлены на сайте, получают в качестве поощрительного приза любой из дисков, выпускаемых сайтом VBNet. Ну и хочу сообщить всем, что начинается новый конкурс! Присылайте свои статьи на сайт и становитесь победителями конкурса! Нужно отметить, что конкурсы на VBNet выходят на новый уровень развития с теперь у нас есть спонсор в лице авторитетного журнала "Hard'n'Soft", который предлагает победителям конкурса бесплатные подписки на журнал. Думаю, что это придаст вам больше сил и участников конкурса станет еще больше. наверх Citycat by Email Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое. Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru. наверх Новости сайта VBNet
Последние 20 тем форума на VBNet.Ru: 01:41 / 2 мар. Модем, поодключения... | Хитов: 6 | Ответов: 0 01:41 / 2 мар. Модем, поодключения... | Хитов: 2 | Ответов: 0 23:59 / 1 мар. com порт | Хитов: 5 | Ответов: 1 20:12 / 1 мар. ASP чат без global.asa | Хитов: 4 | Ответов: 0 19:37 / 1 мар. Сообщение Windows - нужна помощь | Хитов: 13 | Ответов: 0 17:52 / 1 мар. работа с тел. линией | Хитов: 11 | Ответов: 0 16:40 / 1 мар. Лицензирование ActiveX | Хитов: 17 | Ответов: 3 13:51 / 1 мар. Как воспроизвести звук из массива переменных In... | Хитов: 7 | Ответов: 0 11:54 / 1 мар. Гррр | Хитов: 15 | Ответов: 0 10:49 / 1 мар. COM-порт. | Хитов: 9 | Ответов: 0 05:16 / 1 мар. Reestr??? | Хитов: 7 | Ответов: 0 23:55 / 28 фев. помогите с винсокс!!! | Хитов: 18 | Ответов: 1 22:59 / 28 фев. Новое сообщение без темы | Хитов: 4 | Ответов: 0 20:40 / 28 фев. TreeView аналог winamp | Хитов: 25 | Ответов: 3 14:40 / 28 фев. шрифты и ListBox | Хитов: 11 | Ответов: 0 11:01 / 28 фев. vb.net и БД | Хитов: 21 | Ответов: 2 09:55 / 28 фев. NET | Хитов: 20 | Ответов: 0 05:55 / 28 фев. Vbscript / ASP | Хитов: 42 | Ответов: 5 22:38 / 27 фев. Не пойму что с DLL | Хитов: 26 | Ответов: 2 22:03 / 27 фев. нажать, открыть, записать, закрыть... | Хитов: 42 | Ответов: 4 Последние поступления в Библиотеку кодов: Римские цифры (47) Новости от VBNet-чиков!: наверх Новости сайта VBMania наверх Новости сайта Азбука VB наверх Новости сайта MSDN наверх Новости сайта GotdotNet Новые статьи: наверх Новости сайта dotSite Новые статьи:
Новые примеры:
наверх Узнать точку пересечения срединных перпендикуля... Вопрос: Автор вопроса: Страшный Сон Надо узнать точку пересечения срединных перпендикуляров в трёугольнике, проще говоря, просто узнать точку пересечения двух отрезков! Кто-нить в этом разбирается? Ответы: Автор: Silent Bob Можно приравнять ур-я прямых. Подробно онахождении ур-ий по координатам можно прочитать в руководстве для поступающих в МГУ. Автор: AlexSid Составляешь систему уравнений прямых. Решаешь... По методу Крамера, например! Если есть решение, значит ты получил то, что надо. Нет - значит параллельны... (хотя, если это серед. перпендикуляры, то такой случай исключается). Автор: Страшный Сон Расскажите тада что-нибудь об этих уравнениях, или ссыллочку дайте. > хотя, если это серед. перпендикуляры, то такой случай исключается Я так не думаю. Если у треугольника один из углов равен 180 градусам, а длина самой длинной стороны равна сумме длин двух других, то ср. перпендикуляры будут параллельны. В таком случае треугольник будет выглядеть как линия, а описать окружность вокруг него будет невозможно. :-))) Автор: vig11 У треугольника один угол не может быть равным 180 градусам. 180 градусов это сумма всех углов треугольника. Автор: AlexSid "Если у треугольника один из углов равен 180 градусам"... Я не рассматриваю вырожденного случая! Глянь на http://algolist.manual.ru/maths/geom/intersect/lineline2d.php... И вообще на algolist.ru, может найдешь чего. Автор: Страшный Сон > У треугольника один угол не может быть равным 180 градусам. 180 градусов это сумма всех углов треугольника. Ну вот так и есть - один угол равен 180 градусам, два других - нулю. Треугольник такой. Автор: Страшный Сон Уау, получилось! Нашло оно этот проклятый центр описанной окружности! Правда, пришлось немного поломать голову над этим уравнением... Автор: Bob Пресечение прямых получишь используя функцию peresec Немножко нелепо выглядит (без особых раздумий перенёс со старых своих исходников на С), но работать должна, проверь. Я проверял корректность функции рисуя на форме пересекающиеся линии. Global Const HORIZ = 0 Global Const VERT = 1 Global Const ANGLL = 2 Global Const ORTO = 3 Global Const ERRORH = 50 Global Const OFF = -1 Global Const OMM = 1 Public Function Parline(ByRef a As Variant, ByRef b As Variant, x0 As Variant, _ y0 As Variant, x1 As Variant, y1 As Variant) As Integer Dim dx, dy, tmp As Double Dim PI As Double PI = 4 * Atn(1) tmp = Sqr((x1 - x0) ^ 2 + (y1 - y0) ^ 2) If tmp = 0# Then: Parline = ERRORH: Exit Function dx = Abs(x1 - x0) dy = Abs(y1 - y0) If dy < 0.25 Then: a = 0#: b = y0: Parline = HORIZ: Exit Function If dx < 0.25 Then: a = 1E+15: b = x0: Parline = VERT: Exit Function If dx > dy Then dx = dx / tmp dx = Atn(-dx / Sqr(-dx * dx + 1)) + 2 * Atn(1) If Abs(dx) < 0.0001 Then a = 0# b = y0 Parline = HORIZ Exit Function Else If Abs(dx - PI / 2) < 0.0001 Then a = 1E+15: b = x0: Parline = VERT: Exit Function End If Else dy = dy / tmp dx = Atn(dy / Sqr(-dy * dy + 1)) If Abs(dx) < 0.0001 Then a = 0#: b = y0: Parline = HORIZ: Exit Function Else If Abs(dx - PI / 2) < 0.0001 Then a = 1E+15: b = x0: Parline = VERT: Exit Function End If End If a = (y1 - y0) / (x1 - x0) b = y0 - a * x0 Parline = ANGLL End Function Public Function Peresec(ByRef xp As Variant, ByRef yp As Variant, x1 As Variant, _ y1 As Variant, x2 As Variant, y2 As Variant, x3 As Variant, y3 As Variant, _ x4 As Variant, y4 As Variant) As Integer Dim to1, to2 As Integer Dim a1, a2, b1, b2 As Single xp = -1 yp = -1 to1 = Parline(a1, b1, x1, y1, x2, y2) to2 = Parline(a2, b2, x3, y3, x4, y4) If to1 = VERT Then If Sqr(x1 ^ 2 + y1 ^ 2) < Sqr(x2 ^ 2 + y2 ^ 2) Then x2 = x1 Else x1 = x2 End If End If If to2 = VERT Then If Sqr(x3 ^ 2 + y3 ^ 2) < Sqr(x4 ^ 2 + y4 ^ 2) Then x4 = x3 Else x3 = x4 End If End If If to2 = to1 And (to2 = VERT Or to2 = HORIZ) Then If Abs(b1 - b2) > 0.0001 Then: GoTo OFF If to1 = HORIZ Then If x1 > x2 Then: Swap x1, x2 If x3 > x4 Then: Swap x3, x4 yp = b1 xp = x4 If Abs(x2 - x1) > Abs(x4 - x3) Then If x1 = x3 And x2 > x4 Then: GoTo OM End If xp = x2 If Abs(x2 - x1) < Abs(x4 - x3) Then If x1 = x3 And x2 < x4 Then: GoTo OM End If xp = x1 If x1 = x4 Then: GoTo OM xp = x2 If x2 = x3 Then: GoTo OM If x4 = x2 Then xp = x1 If Abs(x2 - x1) < Abs(x4 - x3) Then GoTo OM xp = x3 If Abs(x2 - x1) > Abs(x4 - x3) Then GoTo OM End If If (x2 < x3) Or (x1 > x4) Then GoTo OFF Peresec = ERRORH Exit Function End If If y1 > y2 Then: Swap y1, y2 If y3 > y4 Then: Swap y3, y4 If (y2 - y1) > (y4 - y3) Then xp = b1 If (y1 = y3) And (y2 > y4) Then: yp = y4: GoTo OM 'If y2 = y3 Then: yp = y2: GoTo Om 'If y1 = y4 Then: yp = y1: GoTo Om If y2 = y4 Then If Abs(y2 - y1) < Abs(y4 - y3) Then: yp = y1: GoTo OM If Abs(y2 - y1) > Abs(y4 - y3) Then: yp = y3: GoTo OM End If End If If y2 - y1 < y4 - y3 Then If (y1 = y3) And (y2 < y4) Then: xp = b1: yp = y2: GoTo OM End If End If If (to1 = VERT) And (to2 = HORIZ) Then xp = b1 yp = b2 If (((b2 >= y1 And b2 <= y2) Or (b2 <= y1 And b2 >= y2)) _ And ((b1 >= x3 And b1 <= x4) Or (b1 <= x3 And b1 >= x4))) Then GoTo OM Else GoTo OFF End If End If If (to2 = VERT) And (to1 = HORIZ) Then xp = b2 yp = b1 If (((b2 > x1 And b2 < x2) Or (b2 < x1 And b2 > x2)) And _ ((b1 >= y3 And b1 <= y4) Or (b1 <= y3 And b1 >= y4))) Then GoTo OM Else GoTo OFF End If End If xp = x1 yp = y1 If (Abs(x1 - x3) < 0.01 And Abs(y1 - y3) < 0.01 And a1 <> a2) Then GoTo OM If (Abs(x1 - x4) < 0.01 And Abs(y1 - y4) < 0.01 And a1 <> a2) Then GoTo OM xp = x2 yp = y2 If (Abs(x2 - x4) < 0.01 And Abs(y2 - y4) < 0.01 And a1 <> a2) Then GoTo OM If (Abs(x2 - x3) < 0.01 And Abs(y2 - y3) < 0.01 And a1 <> a2) Then GoTo OM If (x1 > x2) Then: Swap x1, x2 If (y1 > y2) Then: Swap y1, y2 If (x3 > x4) Then: Swap x3, x4 If (y3 > y4) Then: Swap y3, y4 If (to1 = ANGLL Or to2 = ANGLL) Then If (Abs(a1 - a2) < 0.0001) Then If (Abs(b2 - b1) < 0.0001) Then If (((x1 > x3) And (x2 < x3)) Or ((x1 > x4) And (x2 < x4))) Then GoTo OM Else GoTo OFF End If Else GoTo OFF End If End If End If If (to1 = ANGLL And to2 = ANGLL) Then xp = (b2 - b1) / (a1 - a2) '___ If Abs(b1) < Abs(b2) Then yp = xp * a1 + b1 Else yp = xp * a2 + b2 End If If ((xp >= x1 And xp <= x2) And (xp >= x3 And xp <= x4) Or _ ((Abs(xp - x1) < 0.001) And (Abs(xp - x2) < 0.001))) Then GoTo OM Else GoTo OFF End If End If If (to2 = ANGLL) Then Swap a1, a2 Swap b1, b2 Swap to1, to2 Swap x1, x3 Swap y1, y3 Swap x2, x4 Swap y2, y4 End If If (to1 = ANGLL And to2 = VERT) Then xp = x3 yp = xp * a1 + b1 If ((xp > x1 And xp < x2) And (yp > y3 And yp < y4)) Then GoTo OM Else GoTo OFF End If End If If (to1 = ANGLL And to2 = HORIZ) Then yp = y3 xp = (b2 - b1) / a1 If ((xp > x1 And xp < x2) And (xp > x3 And xp < x4) Or _ ((Abs(xp - x1) < 0.001) And (Abs(xp - x2) < 0.001))) Then GoTo OM Else GoTo OFF End If End If Peresec = ERRORH Exit Function OFF: Peresec = OFF Exit Function OM: Peresec = OMM Exit Function End Function Public Sub Swap(ByRef a As Variant, ByRef b As Variant) Dim tmp As Variant tmp = a a = b b = tmp End Sub Автор: Страшный Сон Ну ты блин закрутил... Никакой процессор не возьмётся выполнять стоко всякого д..... 100 раз в секунду! Автор: СBob Это работает. Не нравится сделай лучше. Удачи! наверх Доска объявлений Ищу телеработу.
наверх Мои программы BalloonMessage for MS Agent BalloonMessage for Microsoft Agent реализует диалог программы с
пользователем, используя при этом технологию Microsoft Agent. OCX реализует три
типа диалоговых окон: InputBox, MsgBox и MsgLabels. Авторы: Шатрыкин Иван и Павел Сурменок. наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: Игорь Ответ ожидается по этому адресу Как ияменить цвет фона отдельной кнопки, не меняя при этом основные настройки Windows? Автор вопроса: Serega435 Ответ ожидается по этому адресу Подскажите, плз как преобразовать документ DOC (Word) в RTF. Слышал, что эти функции есть в библиотеках WordPad, но как с ними работать? Автор вопроса: Stalker Ответ ожидается по этому адресу Как сделать, чтобы программа запускалась как сервис в Win NT/2000/XP (Service NT)? Я смотрю, что на этот вопрос никто не знает ответа. Ламеры задают вопросы наподобие "Как засунуть программу в Systray, там где часики", а продвинутые ламеры на них отвечают. Вопрос задаешь чуть посложней, так все кричат в один голос: "это на VB нельзя сделать". Что никто не может толком программировать на VB? В общем я частично согласен, что на VB сервисы не пишутся. Но можно использовать ocx, написанные на с/с++ или создать сервис используя API. Может кто-то сталкивался с этим, или есть готовый пример? Автор вопроса: Yory Ответ ожидается по этому адресу Мой проект (VB6) использует DAO 3.50, работал без проблем (Win 95/98/2000). Появились машины с той же самой операционкой, не открывающие базу данных при работе из exe-шника. При работе в среде отладки все отлично. Тогда меняю DAO 3.50 на DAO 3.60. На этих машинах все отлично, но на части тех, где раньше проблем не было (не на всех!) база загружаться перестала. Новую .dll я, естественно, нормально устанавливаю и регистрирую. Автор вопроса: DeDMoRoZ Ответ ожидается по этому адресу Мой вопрос связан с API. Заключается он в следующем. Мне нужно помещать в ListBox все запускаемые exe и com приложения в Windows 95. А так же все открываемые папки. И после клика в ListBox переходить к выполнению тои или иной задачи. К примеру у меня открыта папка Windows и работает exe файл Nootpade.exe они помещены в этот ListBox. Первая строка c:\windows вторая c:\windows\nootpade.exe (в ListBox). Пощелчки по 1 строке мы переходим к папке Windows а по второй переходим к nootpade.exe. Вообщем получить что то вроде панели задач (нижняя часть экрана) как Windows. Так же нужно поместить обсалютно все работающие процессы в системе во второй ListBox и по щелчку нужно что бы задача снималась. То есть что вроде "Заверщение работы програм" как Windows по нажатию на Alt+Ctrl+Del. МОЖЕТ кто нибудь знает где достать такой компонент или пример (только не очень сложный) а ещё лучше OCX. Автор вопроса: 001 Ответ ожидается по этому адресу Можно ли в VB вставлять в код программы подпрограммы "на лету"? Так это приблизительно выглядит на Паскале: if <какое-то условие> then ... <тело программы> ... begin ... <код подпрограммы> ... end; ... <тело программы> ... А как в Visual Basic? Ответы: Вопрос: Доброе время суток. А реально написать прогу на VB6 и сделать так чтобы она висела в трее (прям значком) а при нажатии на нее левой открывалась, а правой показывала меню? Ответ: Автор ответа: Dima Реально. Даже не сложно. Вопрос: Помагите с решением проблема такая. Есть функции как copy, cut, paste можно воспользаватся с помащю как Clipboard и как через WinApi Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long,_ LParam As Any) As Long Какая разнится между ними разнится и какая из них боле эфектвна. Ответ: Автор ответа: ]CBK[CRaSH Через Clipboard Private Sub mnuEditCopy_Click() Clipboard.Clear Clipboard.SetText frmMain.ActiveControl.SelText End Sub Private Sub mnuEditCut_Click() Clipboard.Clear Clipboard.SetText frmMain.ActiveControl.SelText frmMain.ActiveControl.SelText = "" End Sub Private Sub mnuEditDelete_Click() frmMain.ActiveControl.SelText = "" End Sub Private Sub mnuEditPast_Click() frmMain.ActiveControl.SelText = Clipboard.GetText Clipboard.Clear End Sub Через API ??? Вопрос: Я столкнулся с такой проблемой. Хочу чтобы формулы в документе сами пресчитывались. Формулы написаны в редакторе формул MS Equation 3.0. Но никак не могу найти таких примеров. Ответ: Автор ответа: mif Насколько я знаю они никак не пересчитываются. Может быть это и позволяет сделать MathType (не ручаюсь за правильность), но его я не искал - тогда у меня не было инета. Пересчитываться могут разве что таблицы MSExcel вставленные в документ Word. А так математику я делал в MathCad и ручками перебивал в Word. PS. В Ворде я набрал пару десятков курсовых (на технической специальности) и диплом в 103 стр... Вопрос: ХА. Я наконец то отрыл код получения заводского серийника HDD!!!!!!!!!! Если каму-нибудь надо могу прислать. НО программа написана на С я ее подредактировал. Поевляется окошко консольного приложения и создается файл key.dat c номером Вобшем круто!!!!!!!!!!! Ответ: Автор ответа: Senin V.N. Ну если выложишь в Инет исходники, то классно, если выложишь только прогу, то таких у меня уже 2 штуки, причем одна не работает по NT, а другая требует установки какого-то драйвера. Вопрос: Как определить, какие файлы, включая библиотеки, ActiveX-компоненты и т.д., необходимо включить в инсталлятор готового приложения? Стандартный VB Pack Wizard, по-моему, добавляет в пакет много лишнего ... Ответ: Автор ответа: ]CBK[CRaSH Посмотри файл твоего проекта Мой_проект.vbp Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WIN98\SYSTEM\stdole2.tlb#OLE Automation Reference=*\G{00020813-0000-0000-C000-000000000046}#1.3#0#..\..\..\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX Object-ActiveX подключенный к проекту Reference-ActiveDLL подключенный через меню Reference Вопрос: Можно-ли запустить из VB файл *.mdb. Если да, то как это сделать? Ответ: Автор ответа: progist ShellExecute - запустит кого угодно и куда угодно. Ответ: Автор ответа: DUKE Запустить можно все что угодно, используя API : Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _ hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) Private Const SW_SHOWMAXIMIZED = 3 Call ShellExecute(0&, "open", "yourfile.ext", vbNullString, vbNullString, SW_SHOWMAXIMIZED) Вопрос: Как обновить DataEnvirinment при печати новой записи, а то после изменений в наборе recordset в DataReport выводится старая запись. Можно-ли в VB6 при формировании DataReport обойтись без DataEnvirinment? Ответ: Автор ответа: Malikov Тут проблема не в enviromente. Дело в том что печать идет в асинхронном режиме, и ты вызываешь его снова когда он еще обрабатывается, ессно данные он сменить не успевает. Напиши что нибудь типа(где repdoc_invoice - твой DataReport): While repdoc_invoice.AsyncCount > 0 DoEvents Wend Unload repdoc_invoice repdoc_invoice.PrintReport False А обойтись без enviromenta легко, я обычно так и делаю на инициализацию прописываешь: Private Sub DataReport_Initialize() Set repdoc_invoice.DataSource = RstDocData end sub Вопрос: Как поставить vbnet на машину с win98 ?? Вылетает сообщение "типа не устанавливается не вин98", а в хелпе "On Windows 98 or Windows Me run instmsiA.exe" Ответ: Автор ответа: Дмитриев Николай VB.Net на Вынь95, 98, Ме не ставится, ставится он только на W2k или Windows XP, так как для работы он требует Microsoft .NET Framework, который ставится соответственно только на две указанные выше системы. Вопрос: Подскажите, плз, как можно перетаскивать объект по форме мышкой (хорошо бы, что-бы было видно контур, как в нормальных приложениях) и как можно соединить два объекта на форме линией (опять же, с помощью крысы). Ответ: Автор ответа: Роман Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long Перетаскивать объект: Private Declare Sub ReleaseCapture Lib "user32" () Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Sub "за что хватаемся"_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngReturnValue As Long If Button = vbLeftButton Then Call ReleaseCapture lngReturnValue = SendMessage("что перетаскиваем".hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End Sub Нарисовать линию: Form.Line (X1,Y2)-(X2,Y2),цвет,B или BF B - пустой прямоугольник BF - закрашенный прямоугольник Вопрос: Мой проект (VB6) использует DAO 3.50, работал без проблем (Win 95/98/2000). Появились машины с той же самой операционкой, не открывающие базу данных при работе из exe-шника. При работе в среде отладки все отлично. Тогда меняю DAO 3.50 на DAO 3.60. На этих машинах все отлично, но на части тех, где раньше проблем не было (не на всех!) база загружаться перестала. Новую .dll я, естественно, нормально устанавливаю и регистрирую. Кто поможет? Ответ: Автор ответа: progist А Reference? Ответ: Автор ответа: Michael Fezulaev Я однажды сталкнулся с такой проблемой. Дело в том что когда ставиш свою прогу на другую машину и на той машине нет дравера для DAO или стоит другой дравер, то VB не может открыть. Перепиши дравер DAO 3.50 на ту машину или инсталируй её. (Мне это помгло) Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
|||||||||||||||||||||||||||||||||||||||
Выпуск подготовили: |
Сурменок Павел | |||||||||||||||||||||||||||||||||||||||
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
