mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2025-03-24 18:37:52 +01:00
parent 7ae3cfb04a
commit 6528022b70
6 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/meshtastic/cpp/qt.cpp
View file

@ -1,5 +1,6 @@
#include "qt.h"
#include <QSqlQuery>
#include <QSqlRecord>
#include <QSqlError>
#include <QNetworkInterface>
#include <QHostAddress>
@ -171,7 +172,7 @@ QVariant QT::iniDb(const QVariant& vName) {
return vName;
}
QVariant QT::sqlQuery(const QVariant& vQuery, const QVariant& vValues, const QVariant& vCols) {
QVariant QT::sqlQuery(const QVariant& vQuery, const QVariant& vValues) {
QVariantList results;
QSqlQuery sqlQuery(db);
if (db.open()) {
@ -182,7 +183,7 @@ QVariant QT::sqlQuery(const QVariant& vQuery, const QVariant& vValues, const QVa
sqlQuery.addBindValue(value);
}
if (sqlQuery.exec()) {
auto cols = vCols.toInt();
auto cols = sqlQuery.record().count();
while (sqlQuery.next()) {
if (cols > 1) {
QVariantList list;

2
examples/meshtastic/cpp/qt.h
View file

@ -41,7 +41,7 @@ public:
// SQLite
Q_INVOKABLE QVariant iniDb(const QVariant&);
Q_INVOKABLE QVariant sqlQuery(const QVariant&, const QVariant&, const QVariant&);
Q_INVOKABLE QVariant sqlQuery(const QVariant&, const QVariant&);
// etc
Q_INVOKABLE QVariant dataPath(const QVariant&);

4
examples/meshtastic/lisp/db.lisp
View file

@ -3,9 +3,7 @@
(defvar *file* nil)
(defun query (query &rest values)
(let ((cols (and (x:starts-with "select" query)
(1+ (count #\, (subseq query 0 (search "from" query)))))))
(qrun* (qt:sql-query qt:*cpp* query values cols))))
(qrun* (qt:sql-query qt:*cpp* query values)))
(defun ini ()
(setf *file* (app:in-data-path "db"))