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

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

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

Tanya

Гость
#2
Предварительно помещаем на форму 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