Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Tormento
0 / 0 / 0
Регистрация: 07.02.2015
Сообщений: 93
#1

Открыть базу данных с паролем

08.04.2015, 20:04. Просмотров 1065. Ответов 6
Метки нет (Все метки)

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
Dim DS As String = Application.StartupPath & "MyBase\BD.accdb"
Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + DS)
Dim SqlCom As OleDb.OleDbCommand
Dim DT As New Data.DataTable
Dim DA As OleDb.OleDbDataAdapter
DT.Clear() 'Очищаем таблицу
SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Таблица1]", Con)
Con.Open()
SqlCom.ExecuteNonQuery()
DA = New OleDb.OleDbDataAdapter(SqlCom)
DA.Fill(DT)
Con.Close()
что и куда нужно дописать если база данных BD.accdb сохранена с паролем 123 и нужно ее открыть.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2015, 20:04
Ответы с готовыми решениями:

Помогите открыть базу данных на Access в VB.NET
Надо открыть базу что бы потом можно было передвигаться по таблице, читать и...

Доступ к базе данных ACCESS под паролем
Доброго времени. Есть формочка, которая работает по SQL с базой данных ACCESS....

Дабавление данных из файла в базу данных Access
Здравствуйте! При передаче данных из файла tpo1.txt в базу данных sst.mdb...

Запись данных из TextBox в базу данных
Делаю регистрацию в базе данных, нужно что бы данные введенные пользователем в...

Не сохраняет базу данных
Dim sql1 As String = "Insert into Платежное_поручение(Номер, Вид,...

6
Brahus
4 / 4 / 4
Регистрация: 04.04.2015
Сообщений: 15
08.04.2015, 20:07 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

в строке подключения добавь
PureBasic
1
"Jet OLEDB:Database Password=123"
1
Tormento
0 / 0 / 0
Регистрация: 07.02.2015
Сообщений: 93
08.04.2015, 23:05  [ТС] #3
vb.net
1
Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + DS & "Jet OLEDB:Database Password=123")
не работает
0
edward_freedom
1553 / 1432 / 303
Регистрация: 01.10.2011
Сообщений: 2,636
08.04.2015, 23:13 #4
Tormento, Ты на свой пароль изменил или ошибка появляется?
0
Pavel55
810 / 271 / 106
Регистрация: 27.10.2006
Сообщений: 632
08.04.2015, 23:46 #5
vb.net
1
2
3
4
Dim DBpath = "C:\DataBase.accdb"
Dim connection As OleDbConnection = New OleDbConnection()        
connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + DBpath + ";Persist Security Info=True;Jet OLEDB:Database Password=1"
connection.Open()
Вместо 1 свой пароль подставьте
0
Nachrichter
594 / 552 / 86
Регистрация: 19.03.2012
Сообщений: 1,071
09.04.2015, 05:05 #6
Цитата Сообщение от edward_freedom Посмотреть сообщение
Tormento, Ты на свой пароль изменил или ошибка появляется?
edward_freedom, так у ТС имя БД превратилось в:
SQL
1
DATA SOURCE=" + DS & "Jet OLEDBatabase Password=123"
ибо
Цитата Сообщение от Brahus Посмотреть сообщение
добавь
это не всегда copy-paste!
1
Brahus
4 / 4 / 4
Регистрация: 04.04.2015
Сообщений: 15
09.04.2015, 16:02 #7
Параметры разделяются точкой с запятой
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
Dim DS As String = Application.StartupPath & "MyBase\BD.accdb"
Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + DS + ";Persist Security Info=False;Jet OLEDB:Database Password=123")
Dim SqlCom As OleDb.OleDbCommand
Dim DT As New Data.DataTable
Dim DA As OleDb.OleDbDataAdapter
DT.Clear() 'Очищаем таблицу
SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Таблица1]", Con)
Con.Open()
SqlCom.ExecuteNonQuery()
DA = New OleDb.OleDbDataAdapter(SqlCom)
DA.Fill(DT)
Con.Close()
1
09.04.2015, 16:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.04.2015, 16:02

Запись в базу данных спецсимволов
Sub AddStr() SqlCom = New OleDb.OleDbCommand("INSERT INTO (, , , )...

Загрузка картинок в базу данных
скажите пожалуйста как загружать картинки в базу дааных но без ссылки в vb.net...

Не отправляется запрос в базу данных
Вот код: Dim dm As New dbDataSet 'dbDataSet - это база...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru