VB6, Visual Basic 6, Получить значение поля (колонки) текущей строки рекордсета (ADODB.Recordset)

Visual Basic 6

rcd - рекордсет (ADODB.Recordset)
UM - имя поля (колонки), значение которого нужно получить
0 - индекс поля (колонки), значение которого нужно получить
cn - соединение с базой данных (ADODB.Connection)

sq = "SELECT TOP 1 UM FROM r_Prods
rcd.Open sq, cn, adOpenStatic

MsgBox rcd!UM ......(Вариант 1)
MsgBox rcd(0).Value ......(Вариант 2)

Теги: VB6, Visual Basic 6, Получить значение поля (колонки) текущей строки рекордсета (ADODB.Recordset)

VB6, Visual Basic 6, VSFlexGrid, присвоить системное имя (наименование) колонке (полю) в гриде

Visual Basic 6

fg - VSFlexGrid
3 - порядковый номер поля (колонки)

fg.ColKey(3) = "BarCode"

Теги: VB6, Visual Basic 6, VSFlexGrid, присвоить системное имя (наименование) колонке (полю) в гриде

VB6, Visual Basic 6, Вывод информации из рекордсета(recordset) в VSFlexGrid, источник данных, DataSource, обработка исключений, On Error, заголовок поля(столбца), ширина поля(колонки), высота строки

Visual Basic 6

fg - VSFlexGrid
rcd - рекордсет (ADODB.Recordset)
cn - соединение с базой данных (ADODB.Connection)

Sub RefreshVSFlexGrid()

     fg.Redraw = flexRDNone
On Error GoTo err1

     sq = "SELECT * FROM r_Prods"
     rcd.Open sq, cn, adOpenStatic

     With fg
         Set .DataSource = rcd

         .Cell(flexcpAlignment, 0, 0, 0, .Cols - 1) = flexAlignCenterCenter
         .RowHeight(0) = 400

         For i = .FixedCols To .Cols - 1
                 .ColHidden(i) = True
         Next i

         .ColHidden(.ColIndex("ProdID")) = False
         .ColHidden(.ColIndex("ProdName")) = False

         .ColPosition(.ColIndex("ProdID")) = 1
         .ColPosition(.ColIndex("ProdName")) = 2

         .TextMatrix(0, .ColIndex("ProdID")) = "Код"
         .TextMatrix(0, .ColIndex("ProdName")) = "Товар"

         .ColWidth(.ColIndex("ProdID")) = 900
         .ColWidth(.ColIndex("ProdName")) = 2000

     End With

     fg.Redraw = flexRDDirect
     Screen.MousePointer = 0

     Exit Sub
err1:
     fg.Redraw = flexRDDirect
     Screen.MousePointer = 0
     MsgBox "Случилась ошибка!" & Chr(13) & err.Description, vbCritical, "Сообщение"

End Sub

Теги: VB6, Visual Basic 6, Вывод информации из рекордсета(recordset) в VSFlexGrid, источник данных, DataSource, обработка исключений, On Error, заголовок поля(столбца), ширина поля(колонки), высота строки

VB6, Visual Basic 6, VSFlexGrid, Удаление выделенных строк (выделенной строки) из грида

Visual Basic 6

fg - VSFlexGrid

If fg.SelectedRows > 0 Then
     For i = 0 To fg.SelectedRows - 1
         fg.RemoveItem fg.SelectedRow(0)
     Next
End If

Теги: VB6, Visual Basic 6, VSFlexGrid, Удаление выделенных строк (выделенной строки) из грида

VB6, Visual Basic 6, VSFlexGrid, Значение поля (столбца) у текущей строки, TextMatrix, значение ячейки, индекс колонки (столбца), ColIndex

Visual Basic 6

fg - VSFlexGrid
fg.Row - текущая строка грида

MsgBox fg.TextMatrix(fg.Row, fg.ColIndex("ColName"))

Теги: VB6, Visual Basic 6, VSFlexGrid, Значение поля (столбца) у текущей строки, TextMatrix, значение ячейки, индекс колонки (столбца), ColIndex

VB6, Visual Basic 6, VSFlexGrid, Растянуть последнюю колонку до границы грида

Visual Basic 6

fg - VSFlexGrid

fg.ExtendLastCol = true

Теги: VB6, Visual Basic 6, VSFlexGrid, Растянуть последнюю колонку до границы грида