Архив рассылки сайта VBNet

Как в SQL запросе ограничивать кол-во десятичных знаков?

Вопрос:

Как ограничить количество десятичных знаков после запятой в создаваемом в запросе поле Skidka и Summa?


Select (Cena*0.98) As Skidka,(Cena*Koef) As Summa From tblTabl

Ответ:


Select ROUND(Cena*0.98,2) As Skidka,ROUND(Cena*Koef,2) As Summa From tblTabl

ROUND
Returns a numeric expression, rounded to the specified length or precision.

Syntax
ROUND ( numeric_expression , length [ , function ] )

Arguments
numeric_expression

Is an expression of the exact numeric or approximate numeric data type
category, except for the bit data type.

length

Is the precision to which numeric_expression is to be rounded. length must be
tinyint, smallint, or int. When length is a positive number,
numeric_expression is rounded to the number of decimal places specified by
length. When length is a negative number, numeric_expression is rounded on the
left side of the decimal point, as specified by length.

function

Is the type of operation to perform. function must be tinyint, smallint, or
int. When function is omitted or has a value of 0 (default),
numeric_expression is rounded. When a value other than 0 is specified,
numeric_expression is truncated.

Return Types
Returns the same type as numeric_expression.

Remarks
ROUND always returns a value. If length is negative and larger than the
number of digits before the decimal point, ROUND returns 0.

Example Result
ROUND(748.58, -4) 0

ROUND returns a rounded numeric_expression, regardless of data type, when
length is a negative number.

Examples Result
ROUND(748.58, -1) 750.00
ROUND(748.58, -2) 700.00
ROUND(748.58, -3) 1000.00

Examples
A. Use ROUND and estimates
This example shows two expressions illustrating that with the ROUND function
the last digit is always an estimate.

SELECT ROUND(123.9994, 3), ROUND(123.9995, 3)
GO

Shemyakin, Dmitry

наверх

Как сделать проверку на кратность 5?

Вопрос:

Как сделать проверку на кратность 5?

Ответ:


If значение mod 5 = 0 Then

    'Действия если кратно

End If

Павел Сурменок

наверх

Какая функция в VB организует задержку?

Вопрос:

Хотел бы спросить, какая функция в VB организует задержку? Кажется в QB была функция Sleep, a в VB, она не катит...

Ответ:


Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" _

     (ByVal dwMilliseconds As Long)

Поместить его желательно в отдельный модуль. Чтоб выполнить задержку, просто напиши:


Sleep 1000

Программа задержится на 1 секунду (1000 миллисекунд). Можешь остановить ее на столько, на сколько нужно.

Артем Кривокрисенко

наверх

Как в VBA сделать таймер?

Вопрос:

Неужели в VBA (Excel) нет элемента Timer?

Попробовал SetTimer - и опять облом. Здесь что, и AddressOf не поддерживается?

Ответ:

Там есть встроенный таймер.


OnTime Method Example



This example runs my_Procedure 15 seconds from now.



Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

This example runs my_Procedure at 5 P.M.



Application.OnTime TimeValue("17:00:00"), "my_Procedure"

This example cancels the OnTime setting from the previous example.



Application.OnTime EarliestTime:=TimeValue("17:00:00"), _

     Procedure:="my_Procedure", Schedule:=False

Алексей Вишневский

наверх

Как из файла ресурсов считать txt файл и загрузить в textbox?

Вопрос:

Как из файла ресурсов считать txt файл и загрузить в textbox?

Ответ:


Dim i As Integer

Dim r() As Byte



r = LoadResData(101, "CUSTOM")

   For i = 0 To UBound(r)

     Text1.Text = Text1.Text & Chr(r(i))

   Next

End Sub

Дмитрий Данелия

наверх

Вопрос/Ответ

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

Вопросы:

Автор вопроса: SBJocker

Ответ ожидается по этому адресу

Тут такая проблема: нужно вывести текст в PictureBox или на принтер под нужным углом (15, 25, 3, 270 и т.д). Знаю что есть в API такая функция, но найти не могу, если кому несложно, то напишите её объявление и параметры.

Автор вопроса: Максим

Ответ ожидается по этому адресу

Как сохранить текст в *.ехе файле? Ну и как прочесть, конечно же?

Автор вопроса: Максим

Ответ ожидается по этому адресу

Как пользоваться прогой RIPPER5? Хелп я прочёл, делал как написано, но ни фига не находит!..

Автор вопроса: Максим

Ответ ожидается по этому адресу

Кто-нибудь поделитесь инфой, как делать изометрические карты!

Автор вопроса: 001

Ответ ожидается по этому адресу

Кто может поделиться инфой, опытом или ссылкой про работу с DirectX 2D?

Автор вопроса: 001

Ответ ожидается по этому адресу

Где можно достать хороший справочник (в электронном виде) про MSCOMM и/или Winsock?

Автор вопроса: 001

Ответ ожидается по этому адресу

Есть ли какой-нибудь серьезный, мощный редактор для ASP?

Автор вопроса: yuri

Ответ ожидается по этому адресу

Как сделать , чтобы файл *.gif начал работать на форме в VB5 при событии, например Click, на кнопке ?

Автор вопроса: Shuhrat

Ответ ожидается по этому адресу

Можноли испльзовать Scroll мышки в ListBox?

Автор вопроса: Олег

Ответ ожидается по этому адресу

Как контролировать работу с файлами (копирование, перемещение, удаление)? Интересует ведение лога имен этих файлов.

Ответы:

Вопрос:

   Вопросы примитивные, но я так и не разобрался: Интересует, как отрабатывать нажатие кнопок на тулбаре? Единственное, что мне удалось сделать, это конструкция типа:

Select Case e.Button.Text
             Case tbButton.Text

    А также сходства по другим признакам... но неужели нет ни какого, например, индекса кнопки?
Еще хочу знать, как пользоваться domainUpDown? Думаю, эти два вопроса взаимно связанны...

Ответ:

Автор ответа: Jumanjee

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
     Case Is = "keyProp1"
         proc1
     Case Is = "keyProp2"
         proc2
      Case Is = "keyProp3"
         proc3
End Select
End Sub

    В case указываешь свойство key каждой кнопки.

Вопрос:

Поместил свой "Блокнотик" в папку SendTo, но при отправки в него чего-нибудь он радует меня своим чистеньким белым личиком. Не подскажете код для обработки такого действия?

Ответ:

Автор ответа: Артем Кривокрисенко

В переменную Command при таком запуске помещается путь к файлу.

Ответ:

Автор ответа: Vladimir Selyanin

Пиши в загрузке формы:

If Command<>"" Then Call You_File_Open_Sub(Command)

При этом Command должен вернуть путь и имя файла, а ты уж своей процедурой его открой.

Вопрос:

У меня такой код программы.

RtxQ.Font.Name = CommonDialog1.FontName
RtxQ.Font.Size = CommonDialog1.FontSize

После исполнения в объекте RichTextBox шрифт и размер шрифта меняется для всего текста, что имеется в нем. А можно ли сделать так чтобы шрифт и размер шрифта менялись так как и в Worde (на выделеный текст, или же измения параметра перед печатанием текста). Если можно, то пришлите код программы. Просто я только начинаю изучать VB.

Ответ:

Автор ответа: Артем Кривокрисенко

Используй свойства SelColor, SelFont ну и т.д., то есть, все свойства, которые начинаются на Sel...

Ответ:

Автор ответа: Vladimir Selyanin

Для изменения выделенного текста есть следующие свойства:

     With RtxQ
         .SelAligment
         .SelBold
         .SelBullet
         .SelCharOffset
         .SelColor
         .SelFontName
         .SelFontSize
         .SelHangingIndent
         .SelItalic
         .SelLenght
         .SelProtected
         .SelRightIndent
         .SelRTF
         .SelStart
         .SelStrikeThru
         .SelTabCount
         .SelTabs
         .SelText
         .SelUnderline
     End With

    Что они делают, можно найти в ObjectBrowser. Так же я нашел в папке дистрибутива VB6 файл \Common\Help\RTFBOX98.chm.

Можете заполнить эту форму, либо отослать вопрос СЮДА

Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
наверх

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 193.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 193.

Выпуск подготовили:

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 193.