Merhaba bir Konu Hakkınha Bilgi vermek istiyorum.Bilenleri Tabi Lafım yok.
Googla da baya bi turlayıp istediğimi bulamayınca bende oturdum. kendim Yazdım.
Yapacağımız uygulama şu olacak delphiden çalışma anında Accsess Veritabanı ve bu Veritabanın içine Tablolar oluşturmayı anlatıcam.
Bu işi Delphideki Ado ve Server Bileşen Paletlerini Kullarak Yapıcaz.
Gerekli Nesneler:
Button1
ADOConnection1
ADOQuery1
AccessApplication1 (Bileşen Paletinde Server Sekmesinde...)
procedure TForm1.Button1Click(Sender: TObject); var Program_Yol:String; begin Program_Yol:=ExtractFilePath(Application.ExeName); //Programın Çalıştığı Dizin Adresi WITH AccessApplication1 DO BEGIN NewCurrentDatabase(Program_Yol+'Deneme');//Yeni Oluştur Disconnect; //Bağlantı kes NewFileTaskPane;// Yeniden Hazırlan :) END;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source='+Program_Yol+'Deneme.mdb'+ ';Persist Security Info=False';
IF NOT ADOConnection1.Connected THEN ADOConnection1.Open; WITH ADOQuery1 DO BEGIN Close; SQL.Clear; SQL.Text:='CREATE TABLE SINAV_BILGILERI'+ '(ID AUTOINCREMENT,'+ //Otomotik artan Alan 'SINAVADI CHAR(255),'+ 'SINAVIYAPAN CHAR(100),'+ 'GUVENLIK_SIFRESI CHAR(25),'+ 'PRIMARY KEY(ID))'; //Birincil Anahtar Belirle ExecSQL; SQL.Clear; SQL.Text:='CREATE INDEX INDEXADI ON SINAV_BILGILERI (ID)'; ExecSQL; END;
end;
Uygulama : http://rapidshare.com/files/162411281/Access_Uyg.rar.html
Kolay Gelsin...
Herkese iyi Çalışmalar..
|