powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение Грида к СКЛ
13 сообщений из 13, страница 1 из 1
Подключение Грида к СКЛ
    #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
Подключение Грида к СКЛ
    #32767194
а какие с DataGrid проблемы?
делеал на нем продобное, все работало

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

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

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

а если?

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

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

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

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

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

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

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

rst.LockType = adLockOptimistic
Не-а. Не подразумевает. Комбинаций может быть несколько. А вот лок не помешает.
...
Рейтинг: 0 / 0
Подключение Грида к СКЛ
    #32768165
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пробовал, и с локом и без. Все равно -
rowset is not bookmarkable...
...
Рейтинг: 0 / 0
Подключение Грида к СКЛ
    #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
Подключение Грида к СКЛ
    #32768505
Piter_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо, большое. Похоже получилось.
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение Грида к СКЛ
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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