Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. aaanadie

    date error with MySQL in Delphi

    Hi, I'm using Delphi 2005 and MySQL 4.1. I can not modify a date field: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls; type TForm1 = class(TForm) Database1: TDatabase...
  2. aaanadie

    I can't update a table

    Hi, My program is ok at last. This is the code that works: procedure TFormPhonesFormat.ButtonBeginClick(Sender: TObject); var Phone, FieldName, WhereFieldName, WhereFieldValue, TableName: String; begin FieldName := EditFieldName.Text; WhereFieldName := EditWhereFieldName.Text...
  3. aaanadie

    I can't update a table

    Hi edwinj, I tried "table1.Applyupdates;" but I got the same result. Thanks.
  4. aaanadie

    I can't update a table

    Hi, Thanks for your concern. I don't have any control to disable. The program is very simple. It just have a form with 3 components: Database1 (TDatabase), Table1 (TTable) and ButtonBegin (TButton), and as code the following procedure: procedure TFormPhonesFormat.ButtonBeginClick(Sender...
  5. aaanadie

    I can't update a table

    Hi, I changed my code like following your suggestion, but I had "Couldn't perform the edit because another user changed the record" executing "Database1.ApplyUpdates([Table1]);". I tried checking "Table1.UpdatesPending" in the original code and I realized that was not any update pending, I...
  6. aaanadie

    I can't update a table

    Hi, I have a very simple code that works ok, but the ApplyUpdates don't have effect. This is the code: procedure TFormPhonesFormat.ButtonBeginClick(Sender: TObject); var Phone: String; FieldName: String; begin FieldName := 'Phone'; Table1.First; while not Table1.Eof do begin if...

Part and Inventory Search

Back
Top