Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 165 of 400)
Topics by DriveSoft User defined search
Posts found: 4,101 to 4,125 of 9,999
stas.kodpi wrote:не работает.
тупо не подключается к созданной БД из-под mySQL.
пишет:
An error occured while communicating to the server.
Какие бы настройки (имя бд, логин, пароль подключения к БД) и т.д. не делал
хотя из самой программы все нормально, спрашивает пароль и показывает окно.
пожалуйста создайте отдельную тему,в котороый приложите ваш проект и скрипт WebGrid-а.
identity wrote:Hi
is there any way that there are 3 pictures (Stage Plan in this case) in the project and when you choose picture 1 using a combobox, the other 2 pictures are not shown and the arrow shows the specified position in the Picture 1?
I'm using version 1.45
thanks
Example. Now pictures of stages store in database, so you can add any number of stages.
mathmathou wrote:Thank you Dmitry 
Is this'new behavior and is the latest beta stable enough to distribute compiled projects ?
Cheers
Mathias
I think beta version is pretty stable, but I can't guarantee )
sidhillsaid wrote:Дмитрий, а нет конкретного примера раскрашивания записей созданых в отсутствии пользователя? Или куска скрипта?
К сожалению такого примера нет.
stas.kodpi wrote:Добрый день.
Зачем мне использовать сторонние скрипты - если вы через ВебГрид реализовали поддержку работы через интернет.
У меня та же самая ошибки при подключении к веб-серверу .
Из программы все нормально, но потом после создания вебгрида, какие данные туда не вводи ( в настройке) - все равно ошибка.
Исправляйте, раз затеяли такую штуку. на данный момент она не рабочая (штатными средствами) .
Приветствую.
Сторонний скрипт нужен лишь для теста, чтобы найти проблему, если такая возникает.
Вы проверили работу MySQL и Apache сервера стороними скриптами? чтобы тем самым проверить, действительно ли ошибка в WebGrid.
Пожалуйста приложите ваш проект и скрипт WebGrid-а, протестирую.
Hello.
You can add new fields to database without lose data beginning from version 1.46.
You use old version?
Unfortunately I can't understand your question, please attach the project and provide more details.
and for edsubTotal
procedure frmTest_edsubTotal_OnChange (Sender: string);
begin
CalculateTotal;
end;
When the button don't close form, second click on button save record as new.
to prevent this behavior, use this script:
procedure Form1_buttonSave_OnClick (Sender: string; Action: string);
begin
Form1.buttonSave.dbDontResetID := True;
end;
Hello,
Please provide more details, what exactly you can't do?
Hello.
just add this line
add_asset.DBImage1.dbImageIsChanged := True;
procedure add_asset_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
add_asset.DBImage1.Picture.LoadFromFile('main_img_36015.jpg');
add_asset.DBImage1.dbFileName := 'main_img_36015.jpg';
add_asset.DBImage1.dbImageIsChanged := True;
end;
or download latest beta version and use this script
http://myvisualdatabase.com/forum/viewtopic.php?id=2888
procedure add_asset_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
add_asset.DBImage1.LoadPicture('main_img_36015.jpg');
end;
stas.kodpi
Это не конкретный вопрос, это скорее техническое задание, которое вы мне предлагаете выполнить
Игоревич wrote:Все таки при построении графика одна запись не учитывается. Может есть какя-то нулевая строка Компонент DateTimePicker1 участвует в поиске. И я заметил если брать данные с 1 по 1 число следующего месяца он некоторые записи не учитывает
И еще заметил одну вещь. Когда страна и регион совпадают но разные города скрипт считает это как 1 событие а не 2
Поправил немного sql запрос
sSQL :=
'SELECT '+
' Country.country, '+
' COUNT(Country.id) as qty,'+
' City.city'+
' FROM MyFavoriteCities '+
' LEFT OUTER JOIN City ON City.id=MyFavoriteCities.id_City '+
' LEFT OUTER JOIN Region ON Region.id=City.id_Region '+
' LEFT OUTER JOIN Country ON Country.id=Region.id_Country '+
'WHERE '+
'(CASE WHEN '+sCountry+'=-1 THEN 1=1 ELSE Country.id='+sCountry+' END) AND '+
'(CASE WHEN '+sRegion+'=-1 THEN 1=1 ELSE Region.id='+sRegion+' END) AND '+
'(CASE WHEN '+sCity+'=-1 THEN 1=1 ELSE City.id='+sCity+' END) AND' +
'(CASE WHEN '+sDateFrom+' IS NULL THEN 1=1 ELSE date(MyFavoriteCities."Date") >= date('+sDateFrom+') END) AND' +
'(CASE WHEN '+sDateTo+' IS NULL THEN 1=1 ELSE date(MyFavoriteCities."Date") <= date('+sDateTo+') END) ' +
'GROUP BY Country.id ';
pt.82 wrote:Добрый день! опробывал 2 этих (с простой записью в таблицу и с заполнением справочника) импорта все ок, но если в cvs файле в записи содержится символы ; [ ] ' . , то в первом случае в базу эти сисмволы не загружаются, во втором случае импорт затыкается. Возможно ли импортировать записи с такими символы, при ручном ввводе (добавление записей через форму) сохраняютя эти сисмволы без проблем.
Скорей всего вы забыли выполнить экранизацию текста, пример
if arrStr[1] <> '' then arrStr[1] := ''''+ ReplaceStr(arrStr[1], '''', '''''') + '''';
К сожалению я могу помочь только с решением конкретных вопросов.
Import from XML is not support.
sidhillsaid
Реализуемо, вы описали алгоритм как это сделать, также я описал его выше.
Раскрашивать записи в TableGrid также возможно.
sidhillsaid
Расположение функций в скрипте никак не скажется на производительности.
Распределением ресурсов программисты уже почти не занимаются, это задача ОС.
RZ-007
Так можно заменить текст <BR> на знак переноса строки
Form5.Memo1.Text:= ReplaceStr(Form5.Memo1.Text, '<BR>', #13#10);
sidhillsaid
В последнюю бета версию я добавил класс для работы с регулярными выражениями
http://myvisualdatabase.com/forum/viewtopic.php?id=2887
Пример использования:
http://myvisualdatabase.com/forum/viewtopic.php?id=2952
В вашем случае чтобы получить все ссылки на картинки, регулярное выражение будет следующим:
<meta property="og:image" content="(.*?)" />
Example how to use regular expression (version 3.06b and later)
Script:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
RegExp: TRegExp;
i: integer;
begin
RegExp := TRegExp.Create(Form1.Edit1.Text);
RegExp.InputString := Form1.Memo1.Text;
if RegExp.Exec then
repeat
// matches
Form1.Memo2.Lines.Add( RegExp.Match[0] );
// groups
for i := 1 to RegExp.Match.Count-1 do
Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);
until not RegExp.ExecNext;
RegExp.Free;
end;
Project example:
Пример работы с регулярными выражениями (начиная с версии 3.06beta).
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
RegExp: TRegExp;
i: integer;
begin
RegExp := TRegExp.Create(Form1.Edit1.Text);
RegExp.InputString := Form1.Memo1.Text;
if RegExp.Exec then
repeat
// matches
Form1.Memo2.Lines.Add( RegExp.Match[0] );
// groups
for i := 1 to RegExp.Match.Count-1 do
Form1.Memo3.Lines.Add('Group'+IntToStr(i)+': '+RegExp.Match[i]);
until not RegExp.ExecNext;
RegExp.Free;
end;
Проект с примером:
Example how to work with COM port (version 3.0b and later).
Example:
COM порт (чтение и запись), работа с классом TComPort
Начиная с версии 3.0b
Проект с примером:
abgroup-artur
Попробуйте округлить результат
Posts found: 4,101 to 4,125 of 9,999