haentschman

Hi... try aDatabase.Starttransaction; ... aDatabase.Commit except on edatabaseerror do begin aDatabase.Rollback; end; end; Please use the "Code Tags" </>

Hi... via SQL or code?

Everyone says no...but alternatives can solve the problem.

Hi... Is it possible to use TortoiseGit instead of SoureTree? Since TortoiseGIT looks at the local repository, it can mark the current path.

Hi... ...why? Why do you want to possibly fall into the license trap? https://searchitchannel.techtarget.com/feature/Using-MySQL-licensing-Open-source-license-vs-commercial-license https://www.mysql.com/de/products/ or MyDAC / UniDAC without loading libmysql.dll (the dll is the problem) info in german: https://entwickler-ecke.de/topic_libmysqldll+lizenz_68186,0.html totally free databases: Firebird, PostgreSQL ...

Gladly...but the most important thing is not to resolve the variable in debugging mode. FieldByName(Column).Value ...at the breakpoint...the debugger says: Value = ???

Hi... Sorry...but 👿 once of many: https://stackoverflow.com/questions/71419/why-should-i-not-use-with-in-delphi

Hi... how about: Grid.DisableControls; try finally Grid.EnableControls; end;

Hi... [OT] Why ACCESS? For sado/maso there are corresponding places... If you want a simple and working database...u can use Firebird. Small and easy to install. Embedding and Server use. https://www.firebirdsql.org/en/firebird-3-0/ [/OT]

...no ideas?

Hi... ...then show us this thing...incl. database ...bad idea. You should always have a PK!

advertising This is another way to manage SQL statements. The SQL are stored in separate files in a folder structure in the project. SQL can be tested in the preferred DBMS editor.  Important: SQL Statements OUTSIDE of the Sourcecode (pas, dfm) in resources *.res. (without SQL.Add; SQL.Add; SQL.Add... )  Example: ...only 1 line for complete SQL.Text. function TDatabase.CreateDocument(Path: string): TDocument; var Qry: TFDQuery; Document: TDocument; procedure FillDocument; begin // ! Achtung Reihenfolge wegen Properties die aus Vorhergehenden ermittelt werden Document := TDocument.Create; Document.State := sdsNormal; Document.ID := Qry.FieldByName('ID').AsInteger; Document.AddDate := Qry.FieldByName('AddDate').AsDateTime; Document.AddName := Qry.FieldByName('AddName').AsString; Document.AddYear := YearOf(Document.AddDate); Document.DocumentGroupString := Qry.FieldByName('DocumentGroupString').AsString; Document.DocumentTypeString := Qry.FieldByName('DocumentTypeString').AsString; Document.DocumentCaption := Qry.FieldByName('DocumentCaption').AsString; Document.DocumentChoice := TSEAMTools.GetDocumentChoiceType(Document.DocumentTypeString); Document.SendTypeFolder := Boolean(Qry.FieldByName('SendTypeFolder').AsInteger); Document.SendTypeUSB := Boolean(Qry.FieldByName('SendTypeUSB').AsInteger); Document.SendTypeMail := Boolean(Qry.FieldByName('SendTypeMail').AsInteger); Document.ReceiptDate := Qry.FieldByName('ReceiptDate').AsDateTime; Document.ServiceDate := Qry.FieldByName('ServiceDate').AsDateTime; Document.ReceiptNumber := Qry.FieldByName('ReceiptNumber').AsString; Document.ReceiptReceiver := Qry.FieldByName('ReceiptReceiver').AsString; Document.ReceiverReceiverName := Qry.FieldByName('ReceiverReceiverName').AsString; Document.Store := Qry.FieldByName('Store').AsString; Document.StoreName := Qry.FieldByName('StoreName').AsString; Document.StoreName_1 := Qry.FieldByName('StoreName_1').AsString; Document.StoreCountry := Qry.FieldByName('StoreCountry').AsString; Document.StorePostCode := Qry.FieldByName('StorePostCode').AsString; Document.StoreLocation := Qry.FieldByName('StoreLocation').AsString; Document.StoreStreet := Qry.FieldByName('StoreStreet').AsString; Document.ServicePartner := Qry.FieldByName('ServicePartner').AsString; Document.ModifiedDate := Qry.FieldByName('ModifiedDate').AsDateTime; Document.ModifiedName := Qry.FieldByName('ModifiedName').AsString; Document.OriginalFileName := Qry.FieldByName('OriginalFileName').AsString; // als Letztes wegen Setter Document.DocumentLocation := TTools.GetDocumentLocationType(Document.OriginalFileName); Result := Document; end; begin Result := nil; Qry := CreateQuery; try // Pfad Qry.SQL.Text := GetSQLByName('SEAM_DOCUMENT_SELECT_PATH'); Qry.ParamByName('FIN').AsString := Path; Qry.Open; if Qry.Eof then begin // Belegnummer Qry.SQL.Text := GetSQLByName('SEAM_DOCUMENT_SELECT_RECEIPT_NUMBER'); Qry.ParamByName('REN').AsString := TToolsRegex.ExtractReceiptNumber(Path).Value; Qry.Open; if not Qry.Eof then begin FillDocument; end; end else begin FillDocument; end; finally Qry.Free; end; end;

Hi... ...yes! wuppdi Welcome Page

TQuery + TDatasource on TDataModule. Never on the form! ...it is not an answer of your question? ...that's why i'm out.

I dont think so... update Documents set SendTypeUSB = :GES where OriginalFileName like :PAT ... Qry := CreateQuery; try case SendType of sdtFolder: Qry.SQL.Text := GetSQLByName('SEAM_WRITE_SEND_FOLDER_STATE'); end; Qry.ParamByName('GES').AsInteger := Integer(State); case ValueType of vatFileName: begin Qry.SQL.Add(GetSQLByName('SEAM_WRITE_SEND_WHERE_FILENAME_LIKE')); Qry.ParamByName('PAT').AsString := '%' + ExtractFileName(Value); end; ...it is working. TQuery + TDatasource on TDataModule. Never on the form!