aku nyoba buat applikasi yang baca primary key dari tabel yang ada di database mysql tp koq g'bs kebaca ya, aku pakai

  if (j = table1.FieldCount) and (KeyNum > 0) then
   begin
    write(FileT,' , PRIMARY KEY (');
    for k := 1 to KeyNum do
    begin
     write(FileT,'' + tbKeyName[k] + '');
     if k < KeyNum then write(FileT, ', ');
    end;
    write(FileT,')');
   end
   else if (j < table1.FieldCount ) then
   begin
    write(FileT,', ');
   end; 

tapi hasil difile g'ada primary keynya, ada yg bs bantu g? sblume thanks

coba pakai :

DESCRIBE nama_tabel;

Contoh [code:1:1987767f12] mysql> use mysql; Database changed mysql> describe host; +-----------------------+---------------+------+-----+---------+-------+ | Field | Type | Null | Key | Default | Extra | +-----------------------+---------------+------+-----+---------+-------+ | Host | char(60) | NO | PRI | | | | Db | char(64) | NO | PRI | | | | Select_priv | enum('N','Y') | NO | | N | | | Insert_priv | enum('N','Y') | NO | | N | | | Update_priv | enum('N','Y') | NO | | N | | | Delete_priv | enum('N','Y') | NO | | N | | | Create_priv | enum('N','Y') | NO | | N | | | Drop_priv | enum('N','Y') | NO | | N | | | Grant_priv | enum('N','Y') | NO | | N | | | References_priv | enum('N','Y') | NO | | N | | | Index_priv | enum('N','Y') | NO | | N | | | Alter_priv | enum('N','Y') | NO | | N | | | Create_tmp_table_priv | enum('N','Y') | NO | | N | | | Lock_tables_priv | enum('N','Y') | NO | | N | | | Create_view_priv | enum('N','Y') | NO | | N | | | Show_view_priv | enum('N','Y') | NO | | N | | | Create_routine_priv | enum('N','Y') | NO | | N | | | Alter_routine_priv | enum('N','Y') | NO | | N | | | Execute_priv | enum('N','Y') | NO | | N | | +-----------------------+---------------+------+-----+---------+-------+ 19 rows in set (0.00 sec) mysql> [/code:1:1987767f12]

tambahan biasanya saya untuk mendapat kan primary key dari suatu tabel mengunakan query:

  with Query1, SQL do begin
    Add('show fields from tb_pembelian');
    Open;
    while not Eof do begin
      if Fields[3].AsString = 'PRI' then begin
        Memo1.Lines.Add(Fields[0].AsString);
      end;
      next;
    end;
  end;

aku coba buat backup mysql pakai delphi, klo mau scriptnya download di http://ho2sly.tvrijogja.co.id/public_html/app/MyDUMP.rar tapi primary key blm kebaca, tolong dimodif dong biar jalan.tp klo udah dimodif aq minta hasil modifnya

heeee

males ach .... karena kamu ga punya tantangan he ...3x :mrgreen:

heeee

aq kan cuma share, klo g'mau y ga papa.tp klo mau utak-atik silahkan aq g'minta hasil jg g'pa2 buat kmu aja :D