ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключить запрос SQL к MSFlexGrid на MS VB 6.0
25 сообщений из 76, страница 1 из 4
  1  все
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395722
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Добрового всем времени суток.
Помогите начинающему пользователю!
Есть два MSFlexGrid с двумя разными наборами дисциплин. Необходимо с помощью запроса найти неповторяющиеся дисциплины и поместить их в третий MSFlexGrid. Работаю на MS Visual Basic 6.0. Пыталась сделать вот так:

Private Sub Form_Load()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String

Set dbs = DBEngine(0).OpenDatabase("D:\Диссертация\Работа в VB6\Базы данных\RYP.mdb")
strSQL = "SELECT RYP.[Название дисциплины],RYP1.[Название дисциплины] FROM RYP,RYP1"
Set rst = dbs.OpenRecordset(strSQL)
Set MSFlexGrid4.DataSource = rst
End Sub

но прога ругается на Set MSFlexGrid4.DataSource = rst и пишет Error 91 Object variable or With block variable not set.

Подскажите как устранить ошибку, если можно напишите код!
...
Рейтинг: 0 / 0
15.08.2011, 13:23
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395759
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Читаем хелп:

datasource
An object reference that qualifies as a data source, including ADO Recordset objects, and classes or user controls defined as data sources (DataSourceBehavior property = vbDataSource).

То бишь DAO тут не катит, либо надо отказывать от DAO, либо заполнять рекордсет в цикле
...
Рейтинг: 0 / 0
15.08.2011, 13:41
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395770
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
А не подскажите как это сделать. Ато я всего неделю как работаю на VB.
...
Рейтинг: 0 / 0
15.08.2011, 13:47
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395922
ZezaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZezaM
Участник
gill87..Есть два MSFlexGrid..а эти Грид'ы - заполняются корректно?
...
Рейтинг: 0 / 0
15.08.2011, 15:13
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395943
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
ZezaM,
Если честно, то не уверена. Я очень мало знаю по VB 6.0. Извините за откровенный бред!
...
Рейтинг: 0 / 0
15.08.2011, 15:19
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37395964
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Попробовала вот так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim SourceBase As ADODB.Connection
    SourceBase = "D:\...."
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceBase & ";Persist Security Info=False"
    conn.Open ConnString
    
Dim rs As New ADODB.Recordset

    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic

SQL = "SELECT RYP.[Название дисциплины],RYP1.[Название дисциплины]" & _
"FROM RYP,RYP1" & _
"WHERE RYP.[Название дисциплины] <> RYP1.[Название дисциплины];"
rs.Open SQL, conn

If rs.RecordCount <>  0  Then
    Do Until rs.EOF = True
    End If

    conn.Execute SQL
    rs.MoveNext
    Loop
End If
rs.Close
conn.Close

End Sub

теперь ругается на ConnString = и пишет Variable not defined.
...
Рейтинг: 0 / 0
15.08.2011, 15:29
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396004
ZezaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZezaM
Участник
gill87Добрового всем времени суток...
Есть два MSFlexGrid с двумя разными наборами дисциплин.... эти гриды -(чем нужно) заполняются?
Если -Да ->
-> как Вы это делаете?
...
Рейтинг: 0 / 0
15.08.2011, 15:46
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396009
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gill87теперь ругается на ConnString = и пишет Variable not defined.
Потому что нужно объявить эту переменную с помощью Dim

кроме того, у вас там явная путаница:

IF
DO
END IF
LOOP
...
Рейтинг: 0 / 0
15.08.2011, 15:48
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396015
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
ZezaM,

Gridы подключены к базе данных MS Access
...
Рейтинг: 0 / 0
15.08.2011, 15:49
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396026
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Поправила

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim SourceBase As ADODB.Connection
Dim ConnString As MSFlexGrid
Dim SQL As String
    SourceBase = "D:\...."
    ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceBase & ";Persist Security Info=False"
    conn.Open ConnString
    
Dim rs As New ADODB.Recordset

    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic

SQL = "SELECT RYP.[Название дисциплины],RYP1.[Название дисциплины]" & "FROM RYP,RYP1" & "WHERE RYP.[Название дисциплины] <> RYP1.[Название дисциплины];"
rs.Open SQL, conn
    Do Until rs.EOF = True
    conn.Execute SQL
    rs.MoveNext
    Loop
rs.Close
conn.Close

End Sub

но выдает ошибку SQL= Error91 Object variable or With block variable not set
...
Рейтинг: 0 / 0
15.08.2011, 15:52
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396086
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
gill87,
Ой извините ошиблась ругается на эту строку SourceBase = "D:\...."
...
Рейтинг: 0 / 0
15.08.2011, 16:09
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396133
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gill87gill87,
Ой извините ошиблась ругается на эту строку SourceBase = "D:\...."

Вы ее объявляете как:
Код: plaintext
Dim SourceBase As ADODB.Connection
А потом пытаетесь присвоить ей текст
Код: plaintext
SourceBase = "D:\...."
...
Рейтинг: 0 / 0
15.08.2011, 16:24
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396138
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Shocker.Pro,

А что же делать?
...
Рейтинг: 0 / 0
15.08.2011, 16:25
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396146
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
На самом деле задача тривиальная, на нее надо потратить минут 10, я тут в режиме "одним глазком", вечером если будет время - сделаю, или Скукотища, как обычно, сделает.

НО
вы явно очень сильно плаваете, и если всего неделю, как видите ВБ, может вам что-нибудь попроще пока поделать, почитать учебник, порешать простые примеры из него, понять типы данных, циклы и т.п....
...
Рейтинг: 0 / 0
15.08.2011, 16:27
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396160
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Shocker.Pro,

Спасибо что согласились помочь. Я бы не стала лезть в чужеродный мне язык, но мой "научный" требует в одну душу на VB и побестрее. Так что извините за глупые вопросы и жалкие попытки. Делаю все интуитивно.
...
Рейтинг: 0 / 0
15.08.2011, 16:31
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396168
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
gill87 в чужеродный мне язык,
а родной какой?
...
Рейтинг: 0 / 0
15.08.2011, 16:34
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396173
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Shocker.Pro,

С++. Но года 2 не писала на нем!
...
Рейтинг: 0 / 0
15.08.2011, 16:35
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396594
ZezaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZezaM
Участник
gill87... Gridы подключены к базе данных MS Access - понятно :)
боюсь - туплю... :((
как Вы заполняете первые два?
...
Рейтинг: 0 / 0
15.08.2011, 20:16
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396601
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
ZezaM,
Через компонент Data.
...
Рейтинг: 0 / 0
15.08.2011, 20:20
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396610
ZezaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZezaM
Участник
gill87Через компонент Data. ...боюсь - туплю...
их у Вас сколько на Форме?
...
Рейтинг: 0 / 0
15.08.2011, 20:31
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396613
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
ZezaM,

Три
...
Рейтинг: 0 / 0
15.08.2011, 20:34
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396619
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Стоп, если два заполняются неким способом, что мешает тем же способом заполнить третий?
...
Рейтинг: 0 / 0
15.08.2011, 20:38
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396624
gill87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gill87
Гость
Shocker.Pro,

Этим способом не выполняется запрос.
...
Рейтинг: 0 / 0
15.08.2011, 20:41
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396628
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А можно поподробнее? Потому что можно, конечно, наворочать тут сейчас еще и ADO, но если DAO уже используется, то лучше его применить и не плодить разнотипной работы с БД.
...
Рейтинг: 0 / 0
15.08.2011, 20:46
| Ответить | Цитировать | Написать  
Подключить запрос SQL к MSFlexGrid на MS VB 6.0
    #37396631
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А совсем хорошо бы тестовый проект (без лишнего) с тестовой же базой сюда выложить - можно было бы что-нить быстро там поправить.
...
Рейтинг: 0 / 0
15.08.2011, 20:48
| Ответить | Цитировать | Написать  
25 сообщений из 76, страница 1 из 4
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключить запрос SQL к MSFlexGrid на MS VB 6.0
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37396168&tid=2154854]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 266ms
total:  426ms
созд. / загр.: 426ms
x
x
Закрыть


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