VB6, Visual Basic 6, VSFlexGrid, TextMatrix, значение ячейки, пербор грида, обход грида, цикл по гриду

Visual Basic 6

TextMatrix - значение ячейки
fg - VSFlexGrid
Height - имя (наименование) поля

For i = fg.FixedRows To fg.Rows - 1
     If Trim(fg.TextMatrix(i, fg.ColIndex("Height"))) = "0" Then
         MsgBox "Значение не должно равняться 0"
         Exit Sub
     End If
Next i

Теги: VB6, Visual Basic 6, VSFlexGrid, TextMatrix, значение ячейки, пербор грида, обход грида, цикл по гриду

VB6, Visual Basic 6, панель вкладок, панель закладок, доступность вкладок

Visual Basic 6

ST1 - имя панели вкладок

If ST1.Tab = 3 Then .....Если активна вкладка 4

ST1.TabEnabled .....Проверка и установка доступности вкладки на панели закладок

Теги: VB6, Visual Basic 6, панель вкладок, панель закладок, доступность вкладок

VB6, Visual Basic 6, CheckBox, checked, поле выбора, галочка, крыжик

Visual Basic 6

chkBox.Value = 1 (отмечено)
chkBox.Value = 0 (не отмечено)

Теги: VB6, Visual Basic 6, CheckBox, checked, поле выбора, галочка, крыжик

VB6, Visual Basic 6, ADODB.Recordset, ADODB.Connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета

Visual Basic 6

sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)

sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic

rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend

Теги: VB6, Visual Basic 6, recordset, connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета

VB6, Visual Basic 6, Условие, If - Then, Состояние рекордсета (ADODB.Recordset), Проверка открыт рекордсет или нет

Visual Basic 6

rcd - рекордсет (ADODB.Recordset)

If rcd.State = adStateOpen Then
rcd.Close
End If

Теги: VB6, Visual Basic 6, Условие, If - Then, Состояние рекордсета (recordset), Проверка открыт рекордсет или нет

VB6, Visual Basic 6, Прервать выполнение процедуры (функции), Выход из процедуры (функции)

Visual Basic 6

Exit Sub
Exit Function

Теги: VB6, Visual Basic 6, Прервать выполнение процедуры (функции), Выход из процедуры (функции)