Сетевая БД в VB 6.0

@Valerchen · Регистрация: 11.09.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте. Хотел написать программку для работы с удаленной БД в Visual Basic 6.0 Professional. Запустил Data Form Wizard, дошел до пункта Connection Information и застрял, т.к. когда выбираешь любой источник - DSN (кроме <None>), строка Server не активна и значит свою БД (на MS Access) я выбрать не могу. И хотелось бы узнать зачем строка Driver?

Картинки

Комментарий модератора

Сообщение от Правила форума

Картинки и любые другие файлы загружайте на форум, во избежание их удаления или потери на сторонних ресурсах.

Ссылки удалены

P.S. Может кто знает(желательно по пунктам), как можно простенько сетевую БД (обязательно Аксес) организовать?

@Valerchen · 11.09.2013, 13:20 **[ТС]**

Картинки

dev.Free · 11.09.2013, 15:57

Авторские статьи

Раздел базы данных. Мои статьи.

@Valerchen · 18.09.2013, 14:52 **[ТС]**

Пытаюсь использовать пример из статьи, пока не особо выходит.

Вот этот код (в окне Module1), после выполнения должен выдавать информацию получилось подключение к БД или нет. Но почему-то не выходит.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
 
Sub Main()
    OpenDB
    Form1.Show
End Sub
 
Sub OpenDB()
    Set conn = Nothing
    Set conn = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; Dbq=F:\DataBase.mdb;Uid=;Pwd=;"
    conn.Open
    If conn.State = 1 Then
       MsgBox "Соединение установлено"
    Else
       MsgBox "Соединение не установлено"
    End If
End Sub

Код окна Form1

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
    Call UpdateConnect
End Sub
 
Sub UpdateConnect()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    SQL = "SELECT * From Выдача"
    rs.Open SQL, conn, 3, 3
    Set DataGrid1.DataSource = rs
End Sub

При попытке запустить выдается ошибка и кнопка Debug указывает на строку "rs.Open SQL, conn, 3, 3". Хотелось бы узнать 3 и 3 что означают.

dev.Free · 18.09.2013, 14:55

Появляется ли сообщение об удачном подключении и на какой строчке ошибка? Дело в том, что соединение с базой не устанавливается, вот и не выполняется процедура SQL запроса к базе данных. Строчка подключения странноватая. Гляньте строки тут: http://www.connectionstrings.com/

@Valerchen · 18.09.2013, 15:00 **[ТС]**

При нажатии в окне ошибки на кнопку Debug, желтым отмечается строка "rs.Open SQL, conn, 3, 3" она третья снизу.
А строка подключения как вот здесь Подключение к базе данных через ADODB (статья)

dev.Free · 18.09.2013, 15:05

Valerchen, Скачайте исходник и замените путь к своей базе. Исходник в самом конце примера.

@Valerchen · 19.09.2013, 06:38 **[ТС]**

Чет даже пример не сработал.

@Valerchen · 19.09.2013, 14:20 **[ТС]**

Нет, пример работает. Все норм.

Добавлено через 7 часов 28 минут
Есть вот такой запрос в МС Акцесс
SELECT Оборудование.[Номенклатурный №], Оборудование.Количество, Оборудование!Количество-Nz(SUM(Выдача!Количество),0) AS Остаток
FROM Оборудование LEFT JOIN Выдача ON Оборудование.[Номенклатурный №]=Выдача.[Номенклатурный №]
GROUP BY Оборудование.[Номенклатурный №], Оборудование.Количество;
Подсчитывает остаток используя информацию двух таблиц. Но в таком виде в VB он не воспринимается. Кручу-верчу его как могу, а рабочего варианта пока не нашел. Хочется чтоб кнопку нажал и он остатки подсчитал.
Кнопки такого вида

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Command2_Click()
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    SQL = "UPDATE [Êëèåíòû] SET [Ôàìèëèÿ]='Íîâàÿ Ôàìèëèÿ', [Èìÿ]='Íîâîå èìÿ', [Îò÷åñòâî]='Íîâîå îò÷åñòâî', [Äàòà ðîæäåíèÿ]='01.10.2007' WHERE (Êîä=" & DataGrid1.Columns(0).Value & ")"
    rs.Open SQL, conn, 3, 3
    Set rs = Nothing
    Call UpdateConnect
End Sub

dev.Free · 19.09.2013, 16:18

UPDATE - Обновление какой-либо записи, тебе же остатки надо считать!?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@Valerchen 0 / 0 / 0 Регистрация: 11.09.2013 Сообщений: 10
	11.09.2013, 13:20 [ТС]
	Картинки Миниатюры 0

dev.Free Заблокирован
	11.09.2013, 15:57
	Авторские статьи Раздел базы данных. Мои статьи. 0

dev.Free Заблокирован
	18.09.2013, 14:55
	Появляется ли сообщение об удачном подключении и на какой строчке ошибка? Дело в том, что соединение с базой не устанавливается, вот и не выполняется процедура SQL запроса к базе данных. Строчка подключения странноватая. Гляньте строки тут: http://www.connectionstrings.com/ 0

@Valerchen 0 / 0 / 0 Регистрация: 11.09.2013 Сообщений: 10
	18.09.2013, 15:00 [ТС]
	При нажатии в окне ошибки на кнопку Debug, желтым отмечается строка "rs.Open SQL, conn, 3, 3" она третья снизу. А строка подключения как вот здесь Подключение к базе данных через ADODB (статья) 0

dev.Free Заблокирован
	18.09.2013, 15:05
	Valerchen, Скачайте исходник и замените путь к своей базе. Исходник в самом конце примера. 1

@Valerchen 0 / 0 / 0 Регистрация: 11.09.2013 Сообщений: 10
	19.09.2013, 06:38 [ТС]
	Чет даже пример не сработал. Миниатюры 0

dev.Free Заблокирован
	19.09.2013, 16:18
	UPDATE - Обновление какой-либо записи, тебе же остатки надо считать!? 0