Заголовок






InStr(СКакогоСимволаИскать, ГдеИскать, ЧтоИскать, СпособСравнения)






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






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        ......(Отменить изменения)
назад 1 2 3 4 5 далее