Доступ к базе данных Access из VB

Узнай цену своей работы

Формулировка задачи:

Привет ребята! Голову сломал уже,не соображу где ошибки. Мне нужно выполнить поиск по Базе данных. вот я так пишу
Я прикрутил парочку ОпшенБатон ,но они свою функцию не выполняют.Мне нужно чтобы в полях текст на форме клиенты появлялись данные. Вложил маленькую бд свою и проект ,который мучаю. Кто что-нибудь подскажет буду очень рад!

Решение задачи: «Доступ к базе данных Access из VB»

textual
Листинг программы
Public Sub OpenDB()
    Set conn = Nothing
    Set conn = New ADODB.Connection
    DSNName = "DRIVER=Microsoft Access Driver (*.mdb, *.accdb);DBQ=" & App.Path
    DSNName = DSNName & HomeDir & "\ALEKSEI.mdb"
    conn.Open DSNName
    If conn.State = 1 Then
        MsgBox "Соединение установлено"
    Else
        MsgBox "Соединение не установлено"
    End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.067 из 5
Похожие ответы