Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?) / Visual Basic

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130538

Rabi

Гость

Здравстуйте уважаемые форумчане
Помогите пожалуйста с кодом в vb6 , мне нужно вывести результат запроса sql в текстбох или листбох . все вроде вышло результат выходит в текстбох но только в один столбец а у меня данные идут в несколько столбцов , пробывал использовать dbgrid но ввиду отсутствия у меня большого опыта никак не выходит, вот пример кода:

Код: 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.

Private Sub Command1_Click()

Dim con As ADODB.Connection
Dim rez As ADODB.Recordset
Dim Str


Str = "driver={SQL Server};Server=192.168.0.11;uid=sa;pwd=irenka;database=domestic"
Set con = New ADODB.Connection
con.ConnectionString = Str
con.Open
Set rez = New ADODB.Recordset

Set rez = con.Execute("Select empid, empname from employee")
Do While Not rez.EOF
List1.AddItem rez.Fields( 0 )
List1.AddItem rez.Fields( 1 )
rez.MoveNext
Loop


rez.Close
con.Close

End Sub

С уважением Дамир

...

Рейтинг:

0 / 0

22.02.2011, 14:27

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130603

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: 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 Command1_Click()

Dim con As ADODB.Connection
Dim rez As ADODB.Recordset
Dim Str as String


Str = "driver={SQL Server};Server=192.168.0.11;uid=sa;pwd=irenka;database=domestic"
Set con = New ADODB.Connection
con.ConnectionString = Str
con.Open
Set rez = New ADODB.Recordset
Set rez.ActiveConnection = con
rez.CursorLocation = adUseClient
rez.Open "Select empid, empname from employee",, 3 , 1 ,- 1 

Set DBGrid1.DataSource = rez

'Set rez = con.Execute("Select empid, empname from employee")
'Do While Not rez.EOF
'List1.AddItem rez.Fields(0)
'List1.AddItem rez.Fields(1)
'rez.MoveNext
'Loop


'rez.Close
'con.Close

End Sub

...

Рейтинг:

0 / 0

22.02.2011, 14:50

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130703

Rabi

Гость

Konst_One,

спасибо за помощь, но при выполнении кода вышла ошибка

run-time error '430'
Class does no support Automation or does not support expected interface

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

С уважением Дамир

...

Рейтинг:

0 / 0

22.02.2011, 15:29

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130708

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Вам надо добавить компонент на форму:

Library MSDataGridLib
C:\Windows\System32\MSDATGRD.ocx
Microsoft DataGrid Control 6.0 (SP6) (OLEDB)

...

Рейтинг:

0 / 0

22.02.2011, 15:32

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130725

Rabi

Гость

Konst_One,

Круто все работает, спасибо огромное

...

Рейтинг:

0 / 0

22.02.2011, 15:38

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130737

Rabi

Гость

Konst_One,

можно еще вопрос?

rez.Open "Select empid, empname from employee", 3, 1, -1
извиняюсь за детский вопрос почему в конце запроса вы указали 3, 1, -1?
что это означает

с уважением Дамир

...

Рейтинг:

0 / 0

22.02.2011, 15:43

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130758

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

это просто цифровые значения констант, по памяти не помню как точно именуются, там курсор readonly и тд и тп

...

Рейтинг:

0 / 0

22.02.2011, 15:49

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130763

Rabi

Гость

...

Рейтинг:

0 / 0

22.02.2011, 15:49

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

Помогите начинающему (как заполнить результат запроса sql в текстбох или листбох в vb6?)

#37130764

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: plaintext

rs.Open "select ...", , adOpenStatic, adLockReadOnly, adCmdText

...

Рейтинг:

0 / 0

22.02.2011, 15:51

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

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

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

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

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

start [/forum/topic.php?fid=60&gotonew=1&tid=2158940]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	36ms
get topic data:	10ms
get first new msg:	7ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	12ms

total:	148ms