Округление чисел
В некоторых случаях функция округления в VB6 работает криво, на чем я однажды вляпался. Так, например, результатом вычисления Round(56.5) будет 56. Причем такой казус наблюдается в отношении чисел, оканчивающихся четным числом. А вот примерчик кода, который я использую, чтобы избежать этот косяк:
Управление кнопками
Расположение массива кнопок относительно нижней части формы c условием видимости всех кнопок (устранение съедания части изображения кнопки). Данную процедуру желательно запускать в теле события Resize формы:
Скачать пример
Выгрузка данных из DataGrid в файл
Пример демонстрирует, как осуществить выгрузку данных из таблицы DataGrid в текстовый файл. В качестве параметров задаются непосредственно Ваш контрол DataGrid, Recordset, который прицеплен к таблице и имя файла для выгрузки. В процедуре Recordset клонируется, затем все действия осуществляются над полученным клоном. Сделано это для того, чтобы избежать смещения указателя в таблице в момент прохода Recordset-а, вызывающего прокрутку, ну и для скорости, конечно.
Получение результата SQL-запроса
Вот примерчик, показывающий, как можно получить результат выполнения SQL-запроса с одним выходным параметром.
Получение результата SQL-запроса (одновременно нескольких полей)
Вот пример, аналогичный предыдущему, но с возможностью получения значений нескольких полей, полученных в результате выполнения SQL-запроса, за один раз.