An so etwas hatte ich auch schon gedacht
TJSON.SavetoDB(.....) /// nur leider nicht gefunden :-(
wir verwenden
MSSQL Server, dieser
SQL Code erzeugt bei mir keine permanente Tabelle ( create table statement)
und ich muss im select statement auch wieder alle Feldnamen angeben .
Wir haben ja 100 + Feldnamen und die können sich permanent auch ändern, da will sehr flexibel bleiben
Delphi-Quellcode:
DECLARE @json NVARCHAR(MAX);
SET @json = N'[
{"id": 2, "info": {"name": "John", "surname": "Smith"}, "age": 25},
....
]';
/// hier muss ich dann alle Feldnamen definieren ??
SELECT *
FROM OPENJSON(@json)
WITH (
id INT 'strict $.id',
firstName NVARCHAR(50) '$.info.name',
lastName NVARCHAR(50) '$.info.surname',
age INT,
dateOfBirth DATETIME2 '$.dob'
);
und mit diesem code kann ich keine Querys platzieren oder ?
Delphi-Quellcode:
Declare @JSON varchar(max)
SELECT @JSON = BulkColumn
FROM OPENROWSET (BULK 'E:\tempout.txt', SINGLE_CLOB) as j
Select @JSON
If (ISJSON(@JSON)=1)
Print 'Valid JSON'