3,726

(6 replies, posted in SQL queries)

settimox wrote:

Work with local host with other host i have problem to retrieve data.

Please provide more details.

3,727

(6 replies, posted in Script)

What do you mean "automatic mode"?

3,728

(9 replies, posted in Script)

Hello.


Try to add keyword LIMIT 1


....
WHERE TruckCompanies.Name LIKE '%{TruckSearch}%'
  AND Products.Name LIKE '%{ProdSearch}%'
  AND LoadOrigin.Name LIKE '%{OriginSearch}%'
  AND LoadDestination.Name LIKE '%{DestSearch}%'

ORDER BY FreightRateChart.id DESC

LIMIT 1;

3,729

(5 replies, posted in General)

Hello.


Just Shift, without ALT.

3,730

(4 replies, posted in General)

settimox wrote:

Thanks.

Any freeware twain dll for example for delphi that i can include and use it?

Thank you.

Please check out these links
http://delphitwain.sourceforge.net/
http://stackoverflow.com/questions/2059 … for-delphi

3,731

(2 replies, posted in Russian)

в SQL запрос нужно добавить секцию WHERE


SQLQuery('SELECT id, FirstName, Surname FROM Employees WHERE id='+Employees.TableGrid1.sqlValue, Employee);
SQLQuery('SELECT id_Employees, emailaddress FROM email WHERE id_Employees='+Employees.TableGrid1.sqlValue , Email);
SQLQuery('SELECT id_Employees, phonenumber FROM phone WHERE id_Employees='+Employees.TableGrid1.sqlValue ,  Phone);

3,732

(11 replies, posted in Russian)

К сожалению я не обладаю навыком составления регулярных выражений.

3,733

(38 replies, posted in Russian)

Здравствуйте.


Нет возможности в грид добавлять данные в ручную, данные в грид могут попасть исключительно из базы данных, как результат SQL запроса, либо от кнопки с действием "Поиск"

3,734

(1 replies, posted in General)

Hello.


An example for you

3,735

(1 replies, posted in SQL queries)

SQLite does not contain regular expression functionality by default.


more info:
http://stackoverflow.com/questions/5071 … lite-query

3,736

(4 replies, posted in General)

Unfortunately Active X is not support in My Visual Database.

3,737

(2 replies, posted in General)

Hello.


need add one day to DateTimepiker

Form1.DateTimePicker1.DateTime := Form1.DateTimePicker1.DateTime + 1;

calculation betwen numbers how to 
someone give me anexample plz

http://myvisualdatabase.com/forum/viewtopic.php?id=1416

3,738

(18 replies, posted in Russian)

Я могу помочь только с решением конкретных вопросов, пожалуйста описывайте подробно проблемы, с которыми вы столкнулись.

3,739

(5 replies, posted in Russian)

Разместите в самом конце

RegExp.Free;
HTML.Free;



Смысл в том, что когда вы создаете объекты, такие так

HTML := TStringList.Create;
RegExp := TRegExp.Create(Form1.Edit5.Text);

после работы с ними, их необходимо уничтожить, иначе они будут занимать память до тех пор, пока вы не закроете свое приложение.

teco049 wrote:
DriveSoft wrote:

I see that you use script for all database operation (Update/Insert), usually there is no need to use script for that, more easy way to use buttons with action "New Record", "Show Record", "Save Record" etc.  I can recommend for you video lessons:
http://myvisualdatabase.com/video_lessons.html



But if you use SQL, some tips:

To store INTEGER values, set property NumbersOnly=True for component kassenbuch.edit4, then you can use script

kassenbuch.edit4.sqlValue

instead

replacestr(kassenbuch.edit4.text,',','.')


to store date

Kassenbuch.DateTimePicker1.sqlDate

instead

formatdatetime('yyyy-mm-dd',Kassenbuch.DateTimePicker1.DateTime)

Dimitry,
Thank you for the information and help.
I was in need to use for insert/update SQL Statements instead of the actions because I haven't found a way to calculate and add the hash value at the same time when I insert or update to the database.
Thank you.

Using event OnClick of button with action "Save Record" you can calculate values in components before record save.
And another way to calculate, example: http://myvisualdatabase.com/forum/viewtopic.php?id=1416

3,741

(5 replies, posted in Russian)

Я могу помочь только с конкретным вопросом.


В вашем скрипте не нужны все эти многочисленные begin end;


Begin и end применяется чтобы обозначить где начинается и где заканчивается процедура,
пример

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin

end;


Также используется для условий, когда нужно выполнять несколько строк кода при выполнении условия,
пример

   if b = true then
   begin
       ShowMessage('');
       ShowMessage('');
       ShowMessage('');
   end;


Для циклов, чтобы определить, какие именно строки будут учавствовать в цикле
пример

   for i := 0 to 10 do
   begin
       ShowMessage('');
       ShowMessage('');
       ShowMessage('');
   end;

Больше нет случаев, когда нужен begin и end;


Рекомендую вам прочитать данные материалы
http://myvisualdatabase.com/forum/viewt … 462#p13462


А именно эту часть
http://www.snkey.net/books/delphi/ch1-4.html

I see that you use script for all database operation (Update/Insert), usually there is no need to use script for that, more easy way to use buttons with action "New Record", "Show Record", "Save Record" etc.  I can recommend for you video lessons:
http://myvisualdatabase.com/video_lessons.html



But if you use SQL, some tips:

To store INTEGER values, set property NumbersOnly=True for component kassenbuch.edit4, then you can use script

kassenbuch.edit4.sqlValue

instead

replacestr(kassenbuch.edit4.text,',','.')


to store date

Kassenbuch.DateTimePicker1.sqlDate

instead

formatdatetime('yyyy-mm-dd',Kassenbuch.DateTimePicker1.DateTime)

Добавил в ваш проект присвоение пользователя для заявки, также в отчетах можете выбрать пользователя, если не выберите, то получите отчет для всех пользователей.


Добавил выч. поле для долга.

3,744

(2 replies, posted in General)

zahar2002 wrote:

hello
plz someone give a simple exmple combobox i can't show my data in combobox

Hello.


I made very simple an example for you:

3,745

(9 replies, posted in Russian)

wertyby wrote:

Дмитрий, а как при помощи sql запроса передать в отчет ссылку на картинку, т.к.используется вычисляемое поле согласно примера linkfile. Указанный выше метод почему-то не срабатывает, программа возвращает ошибку нет колонки photo_file

Проект с примером
http://myvisualdatabase.com/forum/misc. … download=1


Обратите внимание на вычисляемое поле "photo_file" в  таблице БД person и скрипт в отчете.

3,746

(1 replies, posted in Russian)

Отдельные запросы исполняются один раз, подзапросы исполняются для каждой записи основного запроса.

3,747

(3 replies, posted in General)

gutierrez100 wrote:

Another question, how to use LEFT JOIN with your example?

Thank you very much Dmitry smile

Form1.bSQLReport.dbSQL := 'SELECT lastname, firstname, strftime(''%m/%d/%Y'', dateofbirth) as dateofbirth, groups.groupname FROM employees LEFT OUTER JOIN groups ON groups.id=employees.id_groups';

Hello.

Date are not shown. I have checked the database. The date is stored as dd.mm.yyyy and not as dd.mm.yyyy hh.mm.ss.xxx. I am using sql statements for storing dates like

Valid query to store date

SQLExecute('update entries set date = "'+FormatDateTime('yyyy-MM-DD hh:nn:ss.000', form1.datetimepicker.datetime)+'"' ); 



Float:
I am located in germany. We have no decimal dot we have decimal comma. Our amounts are shown as
1,98
1.234,98
and not
1.98
1,234.98
calculations does not work with sql statements. When I use

Please attach your project.



Scripting engine:
After all procedures/functions

Between

begin 
...
end. 

you can't do any actions related with database, you should use event OnShow of main form for that.

3,749

(3 replies, posted in General)

Hello.


Example for you:
http://myvisualdatabase.com/forum/misc. … download=1

Здравствуйте.


Приложите пожалуйста ваш проект (zip файл без exe и dll), и опишите на примере своего проекта.