Диалоговое окно или как открыть базу данных

Тема в разделе "Visual Basic", создана пользователем -, 9 июн 2008.

  1. Гость

    Как вызвать диалоговое окно мне известно. Как создать базу данных - тоже, единственное чего я не понимаю, это как открыть уже мною созданную базу данных если путь к ней был изменен. На форме у меня текстовые поля, компонент data1 для связи с сеткой DBGrid.
    ЗЫ.Когда проект на стадии разработки путь указывается посредством VB, но если перенести базу *.mdb или саму готовую программу в другую папку, то путь теряется. А как его открыть при помощи commondialog я не знаю.
     
  2. Tanya

    Tanya Гость

    Предварительно помещаем на форму frmMain элемент управления Microsoft Common Dialog Control (comdlg32.ocx)

    dim cnn As Connection
    dim stDBPath as String

    stDBPath = "..."
    ...

    if Len(Dir$(stDBPath))=0 then
    With frmMain.CommonDialog1
    .Filter = "Access|*.mdb"
    .ShowOpen

    stDBPath=.FileName
    If Len(stDBPath) > 0 Then
    MsgBox "Не указана база данных"
    End
    End If
    End With
    end if

    Set cnn = New Connection
    With cnn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = stDBPath
    .Open

    If Err Then
    Set cnn = Nothing
    MsgBox "Нет связи", vbOKOnly + vbInformation
    Else
    frmMain.Show
    End If

    End With
     
Загрузка...

Поделиться этой страницей