MYSQL + СПК110, вставка переменных в запрос к БД

[bdw11@mt-holding.ru]

Добрый день. Есть пример запроса, подскажите, как можно реализовать вставку переменных в запрос?
И как быть если требуется в БД записывать сразу много строк (10-20)?

'INSERT INTO new_table (name, time, value) values ("переменная1, "переменная2, "переменная3")'

[Евгений Кислов]

Добрый день. Есть пример запроса, подскажите, как можно реализовать вставку переменных в запрос?
И как быть если требуется в БД записывать сразу много строк (10-20)?

'INSERT INTO new_table (name, time, value) values ("переменная1, "переменная2, "переменная3")'

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

как можно реализовать вставку переменных в запрос?

Например, так (с использованием функции ReplaceSubstring из библиотеки OwenStringUtils):

PROGRAM PLC_PRG
VAR
    sVar1:                      STRING := 'переменная1';
    sVar2:                      STRING := 'переменная2';
    sVar3:                      STRING := 'переменная3';
    
    sSqlStatement:              STRING(255);
END_VAR
VAR CONSTANT
    c_sSqlStatementTemplate:    STRING(255) := 'INSERT INTO new_table (name, time, value) values ("#VAR1#", "#VAR2#", "#VAR3#")';    
END_VAR


// этот код лучше выполнять только в нужный момент по событию

sSqlStatement := OSU.ReplaceSubstring(c_sSqlStatementTemplate,  '#VAR1#',  sVar1);
sSqlStatement := OSU.ReplaceSubstring(sSqlStatement,            '#VAR2#',  sVar2);
sSqlStatement := OSU.ReplaceSubstring(sSqlStatement,            '#VAR3#',  sVar3);

2022-03-15_6-28-42.png

И как быть если требуется в БД записывать сразу много строк (10-20)?

Можно в операторе INSERT указать несколько наборов значений:
https://www.mysqltutorial.org/mysql-...multiple-rows/

В некоторых случаях будет эффективнее использовать оператор LOAD DATA INFILE (особенно если есть задача архивировать эти данные и в ПЛК):
http://www.mysql.ru/docs/man/LOAD_DATA.html

[bdw11@mt-holding.ru]

А как в sVar1-sVar3 передать именно значение переменной?, с остальным вроде бы разобрался. При таком объявлении 'переменная1' превращается просто в строку

sVar1: STRING := 'переменная1';
sVar2: STRING := 'переменная2';
sVar3: STRING := 'переменная3';

[Евгений Кислов]

А как в sVar1-sVar3 передать именно значение переменной?, с остальным вроде бы разобрался. При таком объявлении 'переменная1' превращается просто в строку

sVar1: STRING := 'переменная1';
sVar2: STRING := 'переменная2';
sVar3: STRING := 'переменная3';

Приведите пример данных, которые вы хотите записать в БД.
Они ведь уже существуют в вашей программе в виде переменных?
Тогда просто покажите их объявление.

[bdw11@mt-holding.ru]

Спасибо за помощь, разобрался вроде, поправьте если есть косяки.

В главной программе объявил 3 переменные с датчиков температуры "temp_in".
В ФБ для использования MySQL-клиента объявил 3 input переменные "sVar"
Помощью TO_STRING в главной программе преобразовал "temp_in1" в STRING и адресовал в переменную "sVar1" ФБ для использования MySQL-клиента.

PROGRAM PLC_PRG
VAR
	temp_in1:			REAL; //датчик температуры 1
	temp_in2:			REAL; //датчик температуры 2
	temp_in3:			REAL; //датчик температуры 3

END_VAR

1.png

FUNCTION_BLOCK MySQL_CLIENT

VAR_INPUT
	sVar1:				STRING;
        sVar2:				STRING;
	sVar3:				STRING;
END_VAR


VAR CONSTANT
	c_sSqlStatement:		STRING(255) := 'INSERT INTO new_table (name, time, value) values ("#VAR1#", "#VAR2#", "#VAR3#")'; 
END_VAR

fbRiseEdge(CLK := xExecute);

IF fbRiseEdge.Q THEN
	sSqlStatement := OSU.ReplaceSubstring(c_sSqlStatement,          '#VAR1#',  sVar1);
   	sSqlStatement := OSU.ReplaceSubstring(sSqlStatement,            '#VAR2#',  sVar2);
   	sSqlStatement := OSU.ReplaceSubstring(sSqlStatement,            '#VAR3#',  sVar3);
END_IF

[Евгений Кислов]

Приведенный вами код должен работать.

Чтобы добавить входы sVar1, sVar2, sVar3 к квадратику ФБ на холсте: ПКМ на ФБ - Контакты - Сброс контактов.

[bdw11@mt-holding.ru]

Спасибо за помощь

[bdw11@mt-holding.ru]

Столкнулся со следующей проблемой. STRING ограничен 255 символами, склеил нескольких строк в одну с помощью OSU.StrConcatA и поместил в sCommand: STRING(500), в результате получилась такой запрос:

mysql -s -utest -p11 -h 10.33.1.101 --database=test --default-character-set=cp1251 -e "INSERT INTO new_table (date, time, value) values (CURRENT_DATE(), CURRENT_TIME(), 24.42029), (CURRENT_DATE(), CURRENT_TIME(), 19.95781), (CURRENT_DATE(), CURRENT_TIME(), 22.24042)"

который MYSQL отказывается почему то принимать. В БД ничего не приходит.

Может быть есть способ сформировать адекватный запрос в БД?
Задача состоит в том, чтобы раз в 1 сек зафиксировать показания датчиков ~20шт (sVar1-sVarn), приклеить метку времени и передать это все в БД.
На данный момент имею вот такой код:

FUNCTION_BLOCK MySQL_CLIENT

VAR_INPUT
	xExecute:					BOOL;
	sUser:						STRING(30);
	sPassword:					STRING(30);
	sIpAddr:					STRING(30);
	sDatabase:					STRING(30);
	sVar1:                      STRING(30);
    	sVar2:                      STRING(30);
	sVar3:                      STRING(30);
END_VAR

VAR_OUTPUT
	xDone:						BOOL;
	xBusy:						BOOL;
	xError:						BOOL;
	asResult:					ARRAY [1..255] OF STRING(255);
	usiCountOfStrings:				USINT;
	xOverFlow:					BOOL;
END_VAR

VAR
	sCommand:		STRING(500);
	fbSe4:		 	CmpSysExec.SysExecute4;
	fbRiseEdge:		R_TRIG;
END_VAR

VAR CONSTANT
	c_sCommand:			STRING(255):= 'mysql -s -u#USER# -p#PASS# -h #HOST# --database=#DATABASE# --default-character-set=cp1251 -e ';
END_VAR

fbRiseEdge(CLK := xExecute);

IF fbRiseEdge.Q THEN
	sCommand := OSU.ReplaceSubstring(c_sCommand, '#USER#', 		sUser);
	sCommand := OSU.ReplaceSubstring(sCommand,   '#PASS#', 		sPassword);
	sCommand := OSU.ReplaceSubstring(sCommand,   '#HOST#',  	sIpAddr);
	sCommand := OSU.ReplaceSubstring(sCommand,   '#DATABASE#', 	sDatabase);
	
	OSU.StrConcatA(ADR('"INSERT INTO new_table (date, time, value) values (CURRENT_DATE(), CURRENT_TIME(), '), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR(sVar1), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR('), '), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR('(CURRENT_DATE(), CURRENT_TIME(), '), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR(sVar2), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR('), '), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR('(CURRENT_DATE(), CURRENT_TIME(), '), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR(sVar3), ADR(sCommand), SIZEOF(sCommand));
	OSU.StrConcatA(ADR(')"'), ADR(sCommand), SIZEOF(sCommand));
END_IF

fbSe4
(
	xExecute 	:= fbRiseEdge.Q,
	sCommand 	:= sCommand,
	sOutput  	=> asResult,
	cntReadStr  => usiCountOfStrings,
	xOverFlow   => xOverFlow,
	xDone       => xDone,
	xBusy       => xBusy,
	xError      => xError
);

[Евгений Кислов]

https://owen.ru/forum/showthread.php...l=1#post361101

В вашем случае:
https://linux.die.net/man/1/mysql

You can execute SQL statements in a script file (batch file) like this:

mysql db_name < script.sql > output.tab