Çalışma anında .db veya .mdb uzantılı veri tabanı oluşturmak
| ||||
uses
ComObj;
// ADOX ile yaratmak
function mdbyarat(FileName: string): string;
var
cat: OLEVariant;
begin
Result := ”;
try
cat := CreateOleObject(‘ADOX.Catalog’);
cat.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=’ + FileName + ‘;’);
cat := NULL;
except
on e: Exception do Result := e.message;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mdbyarat(‘c:\Testdb.mdb’);
end;
//Sadece DBASE yada ASCII veritabanı yaratmak istiyorsanız
procedure CreateATable(DBName, //Alias yada dizin
TblName : String); //Yarataılacak Tablo Adı
TblType : TTableType); //ttDefault, ttParadox, ttDBase, ttASCII (tablo türü)
var
tablo : TTable;
begin
tablo := TTable.Create(Application);
with tbl do begin
Active := False;
DatabaseName := DBName;
TableName := TblName;
TableType := TblType;
with FieldDefs do begin
Clear;
Add(‘Soyadi’, ftString, 30, False); //30 değeri alanın uzunluğu [ftString değeri de alanın string tipinde olacağıdır]
Add(‘Adi’, ftString, 30, False);
Add(‘Adres1′, ftString, 40, False);
Add(‘Adres2′, ftString, 40, False);
Add(‘Sehir’, ftString, 30, False);
Add(‘Cad’, ftString, 2, False);
Add(‘Alan_Kodu’, ftString, 10, False);
end;
{Tabloya birincil anahtar ekle}
with IndexDefs do begin
Clear;
Add(‘Field1Index’, ‘Soyadi;Adi’, [ixPrimary, ixUnique]); {bunu istediğiniz bir alan olarak atayabilirsiniz}
end;
CreateTable; {Tabloyu Yarat}
end;
end;
Etiketler : çalışma anında database oluşturmak, database oluşturmak, veri tabanı oluşturmak, çalıma anında veritabanı oluşturmak, delphi ve veri tabanı,
administrator2009-08-25 00:48:26
Benzer Yazılar:
- Listbox İtemlerinin Sırasını Mause ile sürükleyerek Değiştirmek
- Tüm Dosya ve Klasörlerin Listesini Almak
- Formun Başlığına Kayan Yazı Ekleyen Kod
- Yazılan Fiyatı Metine Çevirmek
- ASCII Kodlarını Bulmak
- Metin İçerisinden Bir Karakter Silmek
- Sayılara Binde Ayracı Eklemek
- İnternet Adresi Aktifmi Kontrol Etmek
- Metnin İçerisindeki Kelime Sayısını Bulan Kod
- Delphi ile Mp3 dosya çalmak çaldırmak
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...