VB6, Visual Basic 6, Установить курсор на последний символ в строке, операции со строками, строковые операции

TextBox.SelStart = Len(TextBox.Text)

Теги: VB6, Visual Basic 6, Установить курсор на последний символ в строке, операции со строками, строковые операции

VB6, Visual Basic 6, Длина строки, перебор строки, количество символов в строке, номер символа в строке, строка-массив, вырезать подстроку, подстрока, операции со строками, строковые операции

For i = 1 To Len("Текст")
      If IsNumeric(Mid("Текст", i, 1)) = False Then
           MsgBox "В строке есть не числа"
           Exit Sub
      End If
Next i

Теги: VB6, Visual Basic 6, Длина строки, перебор строки, количество символов в строке, номер символа в строке, строка-массив, вырезать подстроку, подстрока, операции со строками, строковые операции

VB6, Visual Basic 6, Вставить перевод каретки в строку, новая строка, конкатенация строк, объединение строк, операции со строками, строковые операции

Visual Basic 6

" & Chr(13) & "

Теги: VB6, Visual Basic 6, Вставить перевод каретки в строку, новая строка, конкатенация строк, объединение строк, операции со строками, строковые операции

VB6, Visual Basic 6, VSFlexGrid, Динамическое обновление рекордсета (ADODB.Recordset) и источника данных (DataSource) через VSFlexGrid

Visual Basic 6

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

fg.Editable = flexEDKbdMouse
fg.DataMode = flexDMBoundBatch
rcd.Open "SELECT * FROM r_Prods", cn, adOpenDynamic, adLockPessimistic

...... (Внести изменения в таблицу)

rcd.UpdateBatch ......(Записать изменения)

rcd.CancelBatch ......(Отменить изменения)

Теги: VB6, Visual Basic 6, VSFlexGrid, Динамическое обновление рекордсета, ADODB.Recordset, источник данных, DataSource

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, присвоить системное имя (наименование) колонке (полю) в гриде