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

  • Автор темы Guest
  • Дата начала
G

Guest

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

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
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!