Изменение сетки Janus GridEx DatabaseName программно - PullRequest
Новая
       55

Изменение сетки Janus GridEx DatabaseName программно

0 голосов
/ 11 января 2012

Я использую элемент управления сеткой Janus GridEx в Visual Basic 6 и пытаюсь программно изменить одно из свойств (DatabaseName), прежде чем оно будет использовать соединение.Тот, который я установил в окне свойств, может быть неправильным, и я хотел бы установить его динамически, прежде чем он будет использован.Я пытался установить его в Form_Initialize () или Form_Load (), и ни один из них не переопределяет on в окне свойств перед его использованием.

Есть идеи?

1 Ответ

0 голосов
/ 11 января 2012

Создайте один пользовательский набор записей и установите сетку свойства ADORecordset 

gData.HoldFields
Set gData.ADORecordset = rstData

если вы создали один набор записей с равной схемой для базы данных, вы можете сделать

сохраненные данные 

IDataRepository.Save(gData.ADORecordset)

Сохранить скелет 

function Save (rs as adodb.recordset)

  Dim cn As ADODB.Connection

  Set cn = new ADODB.Connection
  cn.CursorLocation = adUseClient
  cn.Open Cnstr

  Set rs.ActiveConnection = cn
  If rs.LockType = adLockBatchOptimistic Then
     rs.UpdateBatch
  Else
     rs.Update
  End If
  Set rs.ActiveConnection = Nothing

  cn.Close
  Set cn = Nothing
end function

для свойства с маской вы можете, например, 

gData.Columns("Status").ValueList.Clear

gData.Columns("Status").ValueList.Add "A", "Accepted"
gData.Columns("Status").ValueList.Add "R", "Rejected"

Значение интервала сохранено, и пользователь может просматривать некоторые более удобочитаемые человеком

...