Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение Грида к СКЛ / 13 сообщений из 13, страница 1 из 1
03.11.2004, 16:46:16
    #32767163
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Уважаемые, подскажите какой взять грид для подключения к СКЛ базе.

На сервере есть ХП для выбора из двух таблиц некоторых значений по входному параметру - Номеру. Она нормально работает.
CREATE PROCEDURE Spisok_Zakaz_po_Nomeru_Zakaza_Join
@Zakaz int
AS
select IDSpisokZakaza,NameToplivo,Kolicestvo,EdIzmerenia,Cena,Summa,Akcept
from Toplivo LEFT JOIN SpisokZayavki
on SpisokZayavki.IDToplivo=Toplivo.IDToplivo

WHERE @Zakaz=NomZayavka
go

Со стороны клиента хочу вызывать ХП и отображать в Гриде.
Если использовать Set MSHFlexGrid1.Recordset = rst все работает, но в этом гриде потом нельзя редактировать.
-------------------------------------------------------------
Set rst = New Recordset
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
'pasword = "8"
'login = "sa"
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=" & pasword & ";Persist Security Info=True;User ID=" & login & ";Initial Catalog=AiS_2;Data Source=" & server

Set cmd = New ADODB.Command
cnn.Open
Set cmd.ActiveConnection = cnn
cmd.CommandText = "Spisok_Zakaz_po_Nomeru_Zakaza_Join"
cmd.CommandType = adCmdStoredProc
NomerSpisok = Text2.Text


Set rst.ActiveConnection = cnn
Set prm = cmd.CreateParameter("@Zakaz", adInteger, adParamInput, , NomerSpisok)
cmd.Parameters.Append prm

Set rst = cmd.Execute()

'Set DataGrid1.Recordset = rst

Set MSFlexGrid1.Recordset = rst

'Set VSFlexGrid1.Recordset = rst
'Set MSHFlexGrid1.Recordset = rst

rst.Close
----------------------------------------------------------------------------
Единственный мне известный грид в котором можно редактировать это
DataGrid1, но с ним не работает Recordset.
И с другими таже ситуация.
...
Рейтинг: 0 / 0
03.11.2004, 16:58:02
    #32767194
Подключение Грида к СКЛ
а какие с DataGrid проблемы?
делеал на нем продобное, все работало

другое дело, что убог он весьма с точки зрения возможностей, поэтому поищите по форуму, много раз предлагались альтернативы
...
Рейтинг: 0 / 0
03.11.2004, 17:05:15
    #32767209
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Если пишу 'Set DataGrid1.Recordset = rst

то ошибка - метод для объекта не поддерживается. Может какие-то настройки?
...
Рейтинг: 0 / 0
03.11.2004, 17:09:58
    #32767216
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Код: plaintext
Set DataGrid1.Datasource = rst

Magnus
...
Рейтинг: 0 / 0
03.11.2004, 17:26:10
    #32767260
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Попробовал, не идет.
... rowset is not bookmarkable...
...
Рейтинг: 0 / 0
03.11.2004, 17:30:24
    #32767275
Подключение Грида к СКЛ
... rowset is not bookmarkable...

а если?

oRs.CursorLocation = adUseClient
...
Рейтинг: 0 / 0
03.11.2004, 17:40:32
    #32767307
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Жаль, но не хочет. А какой бы еще попробовать грид, по-проще.
...
Рейтинг: 0 / 0
03.11.2004, 18:07:48
    #32767402
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Не хочет - заставим.
Код: plaintext
1.
rst.CursorLocation = aduseClient
rst.CursorType = adOpenStatic

Magnus
...
Рейтинг: 0 / 0
03.11.2004, 18:23:22
    #32767439
Подключение Грида к СКЛ
Не хочет - заставим.

Код: plaintext
1.
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic

adUseClient подразумевает adOpenStatic
скорее, думаю нужно

rst.LockType = adLockOptimistic
...
Рейтинг: 0 / 0
03.11.2004, 21:21:57
    #32767627
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Голенков Владимир Не хочет - заставим.

Код: plaintext
1.
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic

adUseClient подразумевает adOpenStatic
скорее, думаю нужно

rst.LockType = adLockOptimistic
Не-а. Не подразумевает. Комбинаций может быть несколько. А вот лок не помешает.
...
Рейтинг: 0 / 0
04.11.2004, 11:04:11
    #32768165
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Пробовал, и с локом и без. Все равно -
rowset is not bookmarkable...
...
Рейтинг: 0 / 0
04.11.2004, 11:56:07
    #32768367
Подключение Грида к СКЛ
вот ведь чудеса на глобусе.
вспомнил молодость, написал на коленке пример -- все работает

vb6(sp5) + ado 2.8
MS DataGrid Control grdMain

Код: 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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
Option Explicit

Private Const sConnect$ = "Provider=SQLOLEDB.1;Driver={SQL Server};" & _
        "Server=bug;database=master;uid=sa;pwd=sa"

Private Sub Form_Resize()
On Error Resume Next
    grdMain.Move  0 ,  0 , Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub Form_Load()

Dim oConn As ADODB.Connection
Dim oRs As ADODB.Recordset
    
    'ñîåäèíåíèå ñ SQL-ñåðâåðîì:
    Set oConn = New ADODB.Connection

With oConn
    
    .ConnectionString = sConnect
    .Open

End With

    Set oRs = New ADODB.Recordset

With oRs

    Set .ActiveConnection = oConn

    .Source = "exec sp_executesql N'select top 10 id, name from sysobjects'"

    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic

    .Open

    Set .ActiveConnection = Nothing

End With

    Set grdMain.DataSource = oRs
    Set oRs = Nothing

End Sub
...
Рейтинг: 0 / 0
04.11.2004, 12:42:21
    #32768505
Piter_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение Грида к СКЛ
Спасибо, большое. Похоже получилось.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение Грида к СКЛ / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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