[PiboDIE]

Прикладываю пример, где у меня ошибок не возникает. Среда разработки Delphi 2007

База данных Access2002-2003
1 таблица tbl_user
4 поля id, username, password, age (В принципе age даже не участвует в запросах )

Unit1.pas

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Mask, DBCtrls;

type
  TForm1 = class(TForm)
    dbConnection: TADOConnection;
    dbQuerySelect: TADOQuery;
    dbQueryEdit: TADOQuery;
    dsSelect: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  rnd_num: integer;
begin
  rnd_num := Random(100000);
  dbQueryEdit.SQL.Text := 'INSERT INTO `tbl_user` (`username`, `password`) VALUES (''user'+IntToStr(rnd_num)+''', ''pwd'+IntToStr(rnd_num)+''')';
  dbQueryEdit.ExecSQL;
  dbQuerySelect.Active := false;
  dbQuerySelect.Active := true;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
  dbConnection.Connected := true;
  dbQuerySelect.Active := true;
end;

end.

Unit1.dfm

Код:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 439
  ClientWidth = 763
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 729
    Height = 233
    DataSource = dsSelect
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object Button1: TButton
    Left = 120
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object dbConnection: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.mdb;Persist Secur' +
      'ity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 248
  end
  object dbQuerySelect: TADOQuery
    Connection = dbConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM tbl_user')
    Left = 16
    Top = 280
  end
  object dbQueryEdit: TADOQuery
    Connection = dbConnection
    Parameters = <>
    Left = 80
    Top = 280
  end
  object dsSelect: TDataSource
    DataSet = dbQuerySelect
    Left = 16
    Top = 312
  end
end