haentschman

Hi...😎 ...always! Per table or better per database. 😉 Per database = the ID is complete unique. id varchar(10) not null primary key, ... never string! ID int not null primary key,

Hi...welcome here. First: ...why ACCESS and ADO? 🤢 ...😉 For the future: can you change the database? 😉 const ISQL = 'INSERT INTO JobCard (ID ,OrderNo ,JobName) VALUES ( :ID :OrderNo, :JobName)'; ...better than the ADD orgy. It is even better to store the SQL outside the "form" or "datamodule" as SQL file. 😉 ...i know. No problem. Learning by doing... 😉

Two month...What is the status? Which MVP? Imho 10% uses high-dpi. ...make a version without high-dpi. All waiting! Please... PS: why don't you publish it on github or something...?

Hi...😎 ...which database?

👍 Remember: sometimes it is required to load the complete project, including DPR, DFM...then the ZIP format is your choice. Background: if the external server is closed, the thread here is incomplete.

Please at the next Thread: Attach files HERE...not at a external server ZIP, PAS, PNG ... thats all what you want.

https://www.sqlmanager.net/products/ibfb/datapump

Hi...😎 once...https://dbeaver.io/ What tool do you have with Interbase?

Hi... I hope this SQL is only for you in the development? For editing SQL by users...have you heard of SQL Injection? https://en.wikipedia.org/wiki/SQL_injection

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]

Hi... Last week we all moved to a new server. With my new profile, among other things, the Delphi had to be reinstalled.... Except for the interface from Git to Mantis "Murtle" everything is working again. Problem: See picture 1. A "Connect" via mantisconnect.php already brings this error. The config files are copied 1:1 from the old profile. The Mantis as such is accessible! The Mantis is not on the server but on an unchanged NAS. Can someone do something with the message? What else happened: * Windows update to 20H2 is still pending. Done: without success! * The tool is written for NET 2.0. I don't know if that was on it before... Now is from 4.5 on it. PS: Also with the old profile the same error comes since the change. PS: The aunt is silent about the murtle in connection with the error. PS: About the aunt I found information that may have to do with SSL3/TLS. system.io.ioexception unexpected file end PS: Uninstalled everything, removed settings, rebooted, installed, settings in...same error! What it should look like: Image 2 Thanks for info... Addendum: ...imho NET 2.0 is on it. Image 3. * Crosspost in the german DP https://www.delphipraxis.net/207490-tortoisegit-mantis-murtle.html

...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!