powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к БД SQL 2005 через ADODC в VB
20 сообщений из 20, страница 1 из 1
Подключение к БД SQL 2005 через ADODC в VB
    #36743011
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет!

Я сегодня установил БД SQL 2005 и не могу делать update (или edit), insert (или add) через ADODC в VB, но select работает без ошибок.
Как можно правильно подключится к БД SQL 2005 и делать без ошибок update (или edit), insert (или add) через ADODC в VB.

Пожалуйста, если можно с примерами, помому что я новичок и не очень хорошо знаю VB, SQL 2005

Всем огромное спасибо!
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743167
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Угадать не смогли.
Как именно вы делаете и какие ошибки возникают?
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743275
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Adodc5.Recordset.AddNew
Adodc5.Recordset("id") = "9"
Adodc5.Recordset("login") = loginID
Adodc5.Recordset.Update

Ошибка: см.ниже
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743293
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
показывайте строку соединения с базой
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743294
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRizaevAdodc5.Recordset.AddNew
Adodc5.Recordset("id") = "9"
Adodc5.Recordset("login") = loginID
Adodc5.Recordset.Update

Ошибка: см.ниже
Ну а что тут непонятно, все по-русски.
Либо нет прав в базе, либо открываете только для чтения. Строку подключения и открытие рекордсета в студию.
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743345
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Adodc5.RecordSource = "insert into info_sotr values (462,'1','6','sh')"
Adodc5.Refresh

ошибка:
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743370
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRizaevAdodc5.RecordSource = "insert into info_sotr values (462,'1','6','sh')"
Adodc5.Refresh

ошибка:


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim cn As ADODB.Connection
Dim sql As String

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=111;Persist Security Info=False;Initial Catalog=test;Data Source=TEST"

sql = "insert into info_sotr values (462,'1','6','sh')"
cn.Execute sql
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743385
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ConnectionString: Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sh1;Initial Catalog=egrafik;Data Source=TK-D100112-01\SQLEXPRESS
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743388
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRizaevConnectionString: Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sh1;Initial Catalog=egrafik;Data Source=TK-D100112-01\SQLEXPRESS

вот эту строчку подставьте в пример выше и проверьте
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743785
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вам огромное спасибо, все работает как надо

еще такой вопрос: а если я буду делать селект исползуя этот скрипт, как можно вывести результаты на DataGrid1?

Спасибо заранее
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743796
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRizaevВам огромное спасибо, все работает как надо

еще такой вопрос: а если я буду делать селект исползуя этот скрипт, как можно вывести результаты на DataGrid1?

Спасибо заранее

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim cn As ADODB.Connection
Dim sql As String
Dim rs as ADODB.Recordset

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sh1;Initial Catalog=egrafik;Data Source=TK-D100112-01\SQLEXPRESS"

sql = "select * from info_sotr"

Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
Rs.Open sql, , adOpenStatic, adLockReadOnly, adcndtext

Set Datagrid1.DataSource = rs
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36743800
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
adcmdText
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36744393
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все работает как часы

Огромное спасибо
Вы супер
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36744493
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините, Konst_One
можно еще маленкий вопрос по этой же теме?

а как можно после селекта в text1.text выводить полученное инфо, например, имеется ФИО, год рожд., адрес, тел., но мне нужно только ФИО и тел.
Теперь вот это не как не получается у меня, если есть возможность, пожалуйста помогите и в этот раз.
Спасибо заранее
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36744499
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
или полученное инфо разместить в определенную переменную
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36744663
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SRizaevИзвините, Konst_One
можно еще маленкий вопрос по этой же теме?

а как можно после селекта в text1.text выводить полученное инфо, например, имеется ФИО, год рожд., адрес, тел., но мне нужно только ФИО и тел.
Теперь вот это не как не получается у меня, если есть возможность, пожалуйста помогите и в этот раз.
Спасибо заранее

конечно можно:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim cn As ADODB.Connection
Dim sql As String
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sh1;Initial Catalog=egrafik;Data Source=TK-D100112-01\SQLEXPRESS"

sql = "select * from info_sotr"


Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.Open sql, , adOpenStatic, adLockReadOnly, adCmdText

Set DataGrid1.DataSource = rs
Me.Text1.DataField = "LastName" 'название поля
Set Me.Text1.DataSource = rs
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #36745528
SRizaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #37290912
Pahan_92
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, мне тоже очень помогло
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #37291008
Pahan_92
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всё работает, спасибо долго искал. Вот только вопрос.
Можно ли изменения в текстбоксе сохранить в бд? Если да, то какой код? Зарание большое спасибо.
...
Рейтинг: 0 / 0
Подключение к БД SQL 2005 через ADODC в VB
    #37291027
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно, есть 2 варианта:

1) выполнить команду INSERT в базе , например по кнопке
2) переделать выше код с указанием другого вида рекордсета и потом по кнопке в конце Update выполнить
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к БД SQL 2005 через ADODC в VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]