заполнение Datagrid при загрузке формы. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / заполнение Datagrid при загрузке формы.

19 сообщений из 19, страница 1 из 1

заполнение Datagrid при загрузке формы.

#34556499

ЕленаMC

Гость

Подскажите что я не так сделала?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Load()
Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"
cnn.CursorLocation = adUseServer
cnn.ConnectionString = strConn
cnn.Open
adr.Open "select * from docs ", cnn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = adr
adr.Close
cnn.Close
End Sub

в строке где пытаюсь присвоить датагриду данные: Set DataGrid1.DataSource = adr
пишет RunTime error 7004 "The rowset is not bookmarkadle"

...

Рейтинг:

0 / 0

28.05.2007, 23:50

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34556583

Magnus23

Участник

Сообщения: 9 288

Рейтинг: 0 / 0

Код: plaintext

cnn.CursorLocation = adUseClient

Это во-первых.
А во-вторых прекращайте клепать код не понимая смысла написанного. Надо ж и документацию иногда читать, тогда и проблем бы небыло.

Конкретнее: в соеденении указан серверный курсор, а в рекордсете вы требуете статический, т.е. клиентский, но если есть явнбое указанбие параметра в соеденении то рекордсетные параметры не учитываются. Кстати не уверен поддерживает ли mysql серверный курсор вообще. Все это описано в документации. А также в гугле, если запустить поиск по описанию ошибки. Многие ссылки ведут на топики этого же форума с обьяснениями почему это происходит и чтобы их найти нужно потратить 2 минуты.

Гугл и Ф1 ваши друзья. Фотку в студию.

Magnus

...

Рейтинг:

0 / 0

29.05.2007, 02:02

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34556834

ЕленаMC

Гость

Просто когда я делаю так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub Form_Load()
Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"
cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.Open
adr.Open "select * from docs ", cnn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = adr
adr.Close
cnn.Close
End Sub

то поле грид остается пустым. Вот я и подумала что это не правильно.

...

Рейтинг:

0 / 0

29.05.2007, 09:27

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34556898

ЕленаMC

Гость

мальчики, помогите! мне программу послезавтра отдать нужно! :( иначе директор съест!

...

Рейтинг:

0 / 0

29.05.2007, 09:51

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34556913

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Код: plaintext

Set DataGrid1.DataSource = adr
 adr.Close

Лепим рекордсет и тут же его закрываем?

...

Рейтинг:

0 / 0

29.05.2007, 09:57

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34557044

ЕленаMC

Гость

adr.Open "select * from docs ", cnn, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = adr

я значит не права. :) как я понимаю эти две строки:
adr.Open "select * from docs ", cnn, adOpenStatic, adLockReadOnly - открываю свою таблицу.
Set DataGrid1.DataSource = adr - присваиваю гриду значение adr.

если строкой Set DataGrid1.DataSource = adr я грид только "прилепила" то как присвоить ему значение?

...

Рейтинг:

0 / 0

29.05.2007, 10:39

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34557064

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Н-да. Нужно поосторожней с жаргоном.
Лепим - имеется ввиду присваиваем его датагриду, прилепляем.

Нужно просто убрать adr.Close.

...

Рейтинг:

0 / 0

29.05.2007, 10:46

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34557122

ЕленаMC

Гость

Спасибо! ты мой спаситель! :) вот только получилось после того, как я убрала и cnn.Close
критическая ли ошибка, если я не буду закрывать соединение?

...

Рейтинг:

0 / 0

29.05.2007, 10:59

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34557305

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Не очень. Можно сделать Set adr.ActiveConnection = Nothing и закрыть соединение.

...

Рейтинг:

0 / 0

29.05.2007, 11:44

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34558078

ЕленаMC

Гость

Еще один вопрос:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Private Sub Command1_Click()
Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"

cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.Open
adr.Open "select * from docs", cnn, adOpenKeyset, adBathOptimistic 
adr.AddNew
adr![firm] = sdfasfasf
adr![User] = вапвапвапвап

End Sub

...

Рейтинг:

0 / 0

29.05.2007, 14:50

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34558095

ЕленаMC

Гость

adr.Open "select * from docs", cnn, adOpenKeyset, adBathOptimistic в этой строке выдает ошибку 3001:
Аргументы имеют не верный тип,выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

...

Рейтинг:

0 / 0

29.05.2007, 14:53

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34558770

ЕленаMC

Гость

Ну кто-нибудь, подскажите! По идее ошибка незначительная, но я немогу понять в чем она заключается.

...

Рейтинг:

0 / 0

29.05.2007, 17:07

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559097

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

adBathOptimistic? Оптимистичная ванная?
adLock Bat c hOptimistic
В таких случаях помогает Option Explicit в начале модуля.

Код: plaintext

adr![firm] = sdfasfasf
adr![User] = вапвапвапвап

Текстовые данные должны быть в кавычках.

...

Рейтинг:

0 / 0

29.05.2007, 18:15

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559199

ЕленаMC

Гость

Спасибо!!! не представляешь как я тебе благодарна! я думала уже завта к начальнику на ковер придется идти. :) еще раз спасибо!

...

Рейтинг:

0 / 0

29.05.2007, 18:39

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559324

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Фотку в студию =)

...

Рейтинг:

0 / 0

29.05.2007, 19:35

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559336

ЕленаMC

Гость

Фотка в студии... а у меня очередная лажа... данные - не сохраняются. :(

...

Рейтинг:

0 / 0

29.05.2007, 19:43

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559341

ЕленаMC

Гость

прошу прощения, код не выложила...

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Dim strSQL As String
Dim cnn As New ADODB.Connection
Dim adr As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
          "DATABASE=doc; USER=root;PASSWORD=akista;OPTION=3"

cnn.CursorLocation = adUseClient
cnn.ConnectionString = strConn
cnn.Open
adr.Open "select * from docs ", cnn, adOpenDynamic, adLockBatchOptimistic
adr.AddNew
adr![firm] = firm
adr![data_from] = thislo
adr![modyfy] = Command3.Caption
adr![User] = polzov
adr![viddoc] = tip_doc
adr![firma] = zakazchik
adr.Update
adr.Close

...

Рейтинг:

0 / 0

29.05.2007, 19:46

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34559421

ЕленаMC

Гость

Нашла ошибку... место adLockBatchOptimistic надо было adLockOptimistic :)
Antonariy - не правильно подсказал

...

Рейтинг:

0 / 0

29.05.2007, 20:34

| Ответить | Цитировать | Написать

заполнение Datagrid при загрузке формы.

#34560030

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

При adLockBatchOptimistic нужно использовать UpdateBatch.

...

Рейтинг:

0 / 0

30.05.2007, 09:40

| Ответить | Цитировать | Написать

19 сообщений из 19, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / заполнение Datagrid при загрузке формы.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=34559324&tid=2163939]:	0ms
get settings:	4ms
get forum list:	13ms
check forum access:	2ms
check topic access:	2ms
track hit:	341ms
get topic data:	14ms
get forum data:	3ms
get page messages:	57ms
get tp. blocked users:	1ms
others:	216ms

total:	653ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы