ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как DataGrid связать с таблицей в БД?
15 сообщений из 40, страница 2 из 2
  2  все
как DataGrid связать с таблицей в БД?
    #35184884
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
TIKOможно так с использованием закладок
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim vBookmark As Variant
Private Sub Add()
    vBookmark = rs.Bookmark
    rs.AddNew
End Sub
Private Sub Cancel()
    rs.CancelBatch
    If rs.RecordCount >= vBookmark Then
        rs.Bookmark = vBookmark ' возврат на позицию до ввода новой строки
    Else
        rs.MoveFirst
    End If
End Sub


я так пробовола, выдает ошибку "Операция была отменена" на строку rs.Bookmark = vBookmark
...
Рейтинг: 0 / 0
12.03.2008, 13:18
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35184949
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Код: plaintext
1.
2.
3.
4.
5.
rst.AddNew
 rst.Fields("Èäåí-ð êëàññà íàïðÿæåíèÿ").Value = max_ID +  1 
 FClassVoltage.Tn_grnapr.SetFocus
 FClassVoltage.TCod.Text = "1"
 FClassVoltage.TIsm.Text = "êÂ"
 ????? varBookmark = rst.Bookmark ' ñîõðàíèòü ïîçèöèþ íîâîé ñòðîêè â íàáîðå
устанавливать закладку нужно до добавления поля
Код: plaintext
1.
2.
3.
4.
5.
6.
 varBookmark = rst.Bookmark 
 rst.AddNew
 rst.Fields("Èäåí-ð êëàññà íàïðÿæåíèÿ").Value = max_ID +  1 
 FClassVoltage.Tn_grnapr.SetFocus
 FClassVoltage.TCod.Text = "1"
 FClassVoltage.TIsm.Text = "êÂ"
и еще
добавь еще в параметры рекорсета при окрытии
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockBatchOptimistic
так пробуй
...
Рейтинг: 0 / 0
12.03.2008, 13:35
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35184955
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Не знаю но у меня вроде все нормально работает посмотрите:
...
Рейтинг: 0 / 0
12.03.2008, 13:36
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185109
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
TIKO
Код: plaintext
1.
2.
3.
4.
5.
rst.AddNew
 rst.Fields("Èäåí-ð êëàññà íàïðÿæåíèÿ").Value = max_ID +  1 
 FClassVoltage.Tn_grnapr.SetFocus
 FClassVoltage.TCod.Text = "1"
 FClassVoltage.TIsm.Text = "êÂ"
 ????? varBookmark = rst.Bookmark ' ñîõðàíèòü ïîçèöèþ íîâîé ñòðîêè â íàáîðå
устанавливать закладку нужно до добавления поля
Код: plaintext
1.
2.
3.
4.
5.
6.
 varBookmark = rst.Bookmark 
 rst.AddNew
 rst.Fields("Èäåí-ð êëàññà íàïðÿæåíèÿ").Value = max_ID +  1 
 FClassVoltage.Tn_grnapr.SetFocus
 FClassVoltage.TCod.Text = "1"
 FClassVoltage.TIsm.Text = "êÂ"
и еще
добавь еще в параметры рекорсета при окрытии
rst.CursorLocation = adUseClient
rst.CursorType = adOpenDynamic
rst.LockType = adLockBatchOptimistic
так пробуй

не робит(((
...
Рейтинг: 0 / 0
12.03.2008, 14:09
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185120
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
DEP1Не знаю но у меня вроде все нормально работает посмотрите:

просто разница в 2-х строчках
FClassVoltage.TCod.Text = "1"
FClassVoltage.TIsm.Text = "кВ"

если их убрать- то все работает-но мне они нужны для задания значения по умолчанию-чтобы пользователь не вводил
...
Рейтинг: 0 / 0
12.03.2008, 14:11
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185182
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Дайте значения по умолчанию в SQL во время создания таблицы (Default Value) и убирите эти два TextBox а если они не нужны будут.
...
Рейтинг: 0 / 0
12.03.2008, 14:26
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185193
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
DEP1Дайте значения по умолчанию в SQL во время создания таблицы (Default Value) и убирите эти два TextBox а если они не нужны будут.

но в TextBox значения по умолчанию не отображаются- поэтому я задаю, а вдруг пользователь решит сменить?
...
Рейтинг: 0 / 0
12.03.2008, 14:28
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185244
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
попробуй дать:
Код: plaintext
1.
conn.CursorLocation = adUseClient

и не использовать боокмарков.
...
Рейтинг: 0 / 0
12.03.2008, 14:40
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185263
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
DEP1попробуй дать:
Код: plaintext
1.
conn.CursorLocation = adUseClient

и не использовать боокмарков.

тогда выдает первую ошибку((((((((((((((
...
Рейтинг: 0 / 0
12.03.2008, 14:44
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185351
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Я думаю проблема с Recorset ами так как там у тебя два rst и rst1 ты добавляеш в rst1 но отменяеш rst может проблема в этом.
...
Рейтинг: 0 / 0
12.03.2008, 15:04
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185370
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
DEP1Я думаю проблема с Recorset ами так как там у тебя два rst и rst1 ты добавляеш в rst1 но отменяеш rst может проблема в этом.

добавляю в rst но отменяю rst1. просто я пока не знаю как по другому решить задачу
...
Рейтинг: 0 / 0
12.03.2008, 15:08
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185419
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Смотри вместо того чтобы использовать другой обект Recordset можно сделать так это во время клика на кнопку (Добавить):

Код: plaintext
1.
2.
3.
4.
5.
If rst.State = adStateOpen Then
    rst.Close
End If

rst.Open " select max(k_grnapr) as maxID FROM s_ClassVoltage", conn, adOpenDynamic, adLockOptimistic

и убери строки:

Код: plaintext
1.
2.
rst1.Close
Set rst1 = Nothing

и rst1 тебе вообше не нужно.
...
Рейтинг: 0 / 0
12.03.2008, 15:22
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185442
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
DEP1Смотри вместо того чтобы использовать другой обект Recordset можно сделать так это во время клика на кнопку (Добавить):

Код: plaintext
1.
2.
3.
4.
5.
If rst.State = adStateOpen Then
    rst.Close
End If

rst.Open " select max(k_grnapr) as maxID FROM s_ClassVoltage", conn, adOpenDynamic, adLockOptimistic

и убери строки:

Код: plaintext
1.
2.
rst1.Close
Set rst1 = Nothing

хмммм.....а если после добавления пользователь захочет изменить?
и как делать добавление и изменение в rst? если оно уже имеет другое значение? и если я сделаю rst.Close - то грид у меня станет пустым...(я пробовала)

и rst1 тебе вообше не нужно.
...
Рейтинг: 0 / 0
12.03.2008, 15:26
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35185467
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Тогда отмените тот rst который добавили и присваиваете гриду этот самый rst и отмените тот же rst.
...
Рейтинг: 0 / 0
12.03.2008, 15:32
| Ответить | Цитировать | Написать  
как DataGrid связать с таблицей в БД?
    #35186797
Klera
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Klera
Гость
Help....
...
Рейтинг: 0 / 0
13.03.2008, 07:42
| Ответить | Цитировать | Написать  
15 сообщений из 40, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как DataGrid связать с таблицей в БД?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35185193&tid=2162549]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 252ms
total:  376ms
созд. / загр.: 376ms
x
x
Закрыть


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