bless

Здравствуйте!
Не могу разобраться с синтаксисом. Соединение открывается, открываю Рекордсет, добавляю записи, а вывести это все в таблицу не могу. Перепробовал коды по созданию объекта MSHFlexGrid - ничего не получается. То сообщение - объект не тот, то еще...
Пожалуйста киньте примерчик если у кого работает.
Вот текст моего Соединения:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim PassWord As String
Dim LogIn

strSQL = 'Select * from dbo.t_zaiav'

PassWord = Text2.Text
LogIn = Text1.Text

Set cn = CreateObject('ADODB.Connection')
Set rs = CreateObject('ADODB.Recordset')
MousePointer = vbHourglass
With cn
.Provider = 'SQLOLEDB'
.Properties('dATA sOURCE').Value = '200.1.12.100'
.Properties('iNITIAL cATALOG').Value = 'sklad'
.Properties('uSER id').Value = LogIn
.Properties('pASSWORD').Value = PassWord
.Open
End With
With rs
.Source = strSQL
.ActiveConnection = cn
.Open strSQL, cn, adOpenKeyset, adLockOptimistic
End With

rs.Close
cn.Close
MousePointer = vbDefault
End Sub

@urachins

Если рекордсет открылся нормально, то достаточно
SET HGrid.Datasource=rs
до rs.Close.
Кстати, если хочешь освободить память, то надо
SET rs=Nothing
SET cn=Nothing

0

@oldpasp

еще мне кажется нет необходимости дублировать некоторые действия:

Dim cn As New ADODB.Connection <=> Set cn = CreateObject('ADODB.Connection')
.ActiveConnection = cn <=> .Open ....,cn...

0

bless

Ребят,
А поподробнее можно?
SET HGrid.Datasource=rs
А дальше чего?
Там ведь идет описание колонок и строчек. Как их задать?
Как задать название заголовков таблицы.
Эта дурацкая 'Мелкомягкая' автоматизация приводит к тому, что все эти стандартные Гриды могут брать данные только из ADODC или DataEnviroment, а те в свою очередь берут всю таблицу целиком, а если мне надо устроить отбор? Нет ты сначала получи свои полмиллиона записей, а потом уже отбирай. Это же не правильно.
Пожалуйста если можно киньте код подключения Грида к Рекордсет пополнее.

С уважением,
bles

@oldpasp

>стандартные Гриды могут брать данные только из ADODC или DataEnviroment
Приплыли....

Private Sub Command1_Click()
With Me.MSHFlexGrid1.Recordset
.Filter = '[кодКлиента]='CACTU''
End With
End Sub

Private Sub Form_Load()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String

Set cnn = New ADODB.Connection
With cnn
.ConnectionString = 'C:Program FilesMicrosoft OfficeOfficeSamplesБорей.mdb'
.Provider = 'Microsoft.Jet.OLEDB.4.0'
.Open
End With
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = cnn
.Source = 'SELECT * FROM [Клиенты] WHERE [Город]='Буэнос-Айрес''
.CursorLocation = adUseClient
.Open
End With
Set Me.MSHFlexGrid1.Recordset = rst
End Sub

Ну уж как сетку 'раскрасить' -это самостоятельно

0