Login
<Access - VB>
59
NEW 24.03.04 11:52
Люди!!!! Как связать небольшой датенбанк в <Access> с <Visual Basik>, пробую по примерам из Кофлер (а), но что то упускаю и получаю постоянно ошибку, забыл но два года назад связывал.
Great lovers don't need big cars!
Great lovers don't need big cars!
24.03.04 13:22
in Antwort Abdula007 24.03.04 11:52
например через DAO:
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = dao.OpenDatabase("п:олный\путь\к\базе\имя_,файла_базы.mdb")
Set rs = db.OpenRecordset("какой-то SQL-запрос")
....
rs.close
Set rs=Nothing
db.close
Set db=Nothing
Ну и библиотеку к пректу соответствующую не забудь подключить
Dim db As dao.Database
Dim rs As dao.Recordset
Set db = dao.OpenDatabase("п:олный\путь\к\базе\имя_,файла_базы.mdb")
Set rs = db.OpenRecordset("какой-то SQL-запрос")
....
rs.close
Set rs=Nothing
db.close
Set db=Nothing
Ну и библиотеку к пректу соответствующую не забудь подключить
NEW 24.03.04 13:47
in Antwort _Igs_ 24.03.04 13:22
вот именно при подключении к проекту мне пишет, что адресс слишком длинный - я пишу его полностью: <D:\Beispiel\Datenbank\Drittprodukte.mdb>
пробовал
<Private Sub DataEnvironment_Initialize()
DataEnv.adressConnect.Properties("Data Source").Value = App.Path + "\Drittprodukte.mdb"
End Sub>
тоже даёт ошибку - похоже надо всё повторять сначала
Great lovers don't need big cars!
пробовал
<Private Sub DataEnvironment_Initialize()
DataEnv.adressConnect.Properties("Data Source").Value = App.Path + "\Drittprodukte.mdb"
End Sub>
тоже даёт ошибку - похоже надо всё повторять сначала
Great lovers don't need big cars!
NEW 24.03.04 13:53
in Antwort Abdula007 24.03.04 13:47
Я тут код полностью писать не буду, скажу только что пользуюю для этих целей не DAO а ADO, примеров кода вот здесь навалом http://www.activevb.de/startseite/index.html
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de
[син]Снаряды носите бережно, пусть вас видят, а не помнят!!!http://uzbek01.blogspot.com[/син]
NEW 24.03.04 15:11
in Antwort Uzbek 24.03.04 13:53
Да похоже надо взять пару дней отпуска и всё повторят, наскоком я тут похоже ничего не сделаю
Great lovers don't need big cars!
Great lovers don't need big cars!
NEW 25.03.04 09:12
in Antwort Abdula007 24.03.04 11:52
Нашёл ошибку! Может другим понадобиться: <Provider Typ> не <Microsoft Jet 3.51 OLE DB> как в примерах у Кофлера, а <Microsoft Jet 4.0 OLE DB> и всё пошло!!!!!
Great lovers don't need big cars!
Great lovers don't need big cars!
NEW 25.03.04 09:41
in Antwort Abdula007 25.03.04 09:12
Ну это зависит от того какой движок ДБ стоит, так что некоторым может и тот вариант подойти.
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de
Снаряды носите бережно - пусть вас видят, а не помнят!
http://www.urasbajew.de
[син]Снаряды носите бережно, пусть вас видят, а не помнят!!!http://uzbek01.blogspot.com[/син]