Delphi XE data access with ADO

Step 1.
Open new project


Step 2.
Insert ADO connection object and ADO table object (rename with your table name)
build the database connection with ADO connection

Step 3.
Add button and and edit box



Step 4.
double click on button and copy below codes

var aa:string;
begin
aa := 'SELECT * FROM Tablename ';
  with tablename do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add(aa);
    ExecSQL;
  end;
  tablename.Open;
  edit1.Text := Tablename.FieldByName('fieldname').AsString;
end;


Comments

Post a Comment

Popular posts from this blog

Delphi stringgrid Sample (Using for loop)

Image
1.   Open new Delphi  VCL application. 2. Drag and drop  stringgrid component to the form. 3. Drag and drop  Button component to the form. 4. Copy and past below code to the button "click" property. procedure TForm1.Button1Click(Sender: TObject); var i, ix :integer; begin StringGrid1.ColCount:=10; StringGrid1.RowCount:=10; for I := 0 to 10 do for Ix := 0 to 10 do   with StringGrid1 do   begin   Cells[i,ix] := 'Col - ' + inttostr(i) + ', Row - ' + inttostr(ix);   ColWidths[i-1]:=100;   end; end; 5. Run the application.
Read more

How to save jpg image to database and then load it in Delphi using FIBplus and TImage?

Image
unit uMain; interface {$I CompVer.inc} uses {$IFDEF D6H} Variants, {$ENDIF} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBCtrls, Grids, DBGrids, ABSMain, ABSDecUtil; type TForm1 = class (TForm) tblImages: TABSTable; DBGrid1: TDBGrid; DBImage1: TDBImage; dsImages: TDataSource; GroupBox2: TGroupBox; Label1: TLabel; memQuery: TMemo; tblImagesID: TAutoIncField; tblImagesFilePath: TStringField; tblImagesImage: TBlobField; Label2: TLabel; Label3: TLabel; btnCreateQuery: TButton; btnExecuteQuery: TButton; Label4: TLabel; qryAddImage: TABSQuery; dlgOpen: TOpenDialog; procedure FormCreate(Sender: TObject); procedure btnCreateQueryClick(Sender: TObject); procedure btnExecuteQueryClick(Sender: TObject); procedure memQueryChange(Sender: TObject); private { Private declarations } public { Public declarations } end ; var Form1: T...
Read more

Object Oriented Programming in Delphi A Guide for Beginners

Image
Object Oriented Programming in Delphi A Guide for Beginners Object Pascal, Delphi’s underlying language, is a fully object oriented language. Simply, this means that the language allows the programmer to create and manipulate objects. In more detail, this means that the language implements the four principles of object oriented programming: Data Abstraction Encapsulation Inheritance Polymorphism As you’ll see, these are complicated names for pretty simple ideas. In teaching 100s of Delphi programmers, I’ve found that getting to grips with Object Oriented programming is the difference between just getting by with Delphi, and really making the most of the product. In this article and the next, I’ll introduce Delphi programmers to the Object Oriented features in Object Pascal, and show how to take advantage of them in your own applications. Even if you’ve used Delphi for a while, you may find these articles a useful review - it’s amazing how much you can do with Delphi wit...
Read more