Сетевая БД в 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 - Обновление какой-либо записи, тебе же остатки надо считать!?

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@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

Опции темы