procedure createDbTable ; var Table1:TTABLE; begin Table1:=TTable. Create ; Try with Table1 do begin Active := false; DatabaseName := Directory; TableName := filename; TableType := ttParadox; With FieldDefs do Begin Clear; Add('SIRA', ftNumeric, 0, False); Add('GELIRAD', ftString, 50, False); End; With IndexDefs do Begin Clear; Add ; Add ; End; CreateTable; End; except On EDatabaseError do ShowMessage ; end; end;

slm arkadaşlar; amacım yapacağım programın istenilen fieldlar verilince o fieldları barındıran veritabanı dosyası kendisi oluşturması. örneğin: bazı programlar ilk çalıştırıldığında daha hiçbir veri olmadığı için veri tabanı da olmadığından &quot;veri tabanı dosyası yok. oluşturulsun mu?&quot; gibi seçenekler sunuyor. sanırım demek istrediğimi anlatmışımdır. böylece programı taşırken yanında veri tabanı dosyalarını da taşımak zorunda kalmayacağım. aslında ondan da önemlisi yeni bir mal geldiğinde o malın cinsine ait özellikleri barındıran bir veri tabanı oluşturabileceğim. bir bilgisayar firmasını düşünün. hep aynı donanım çesitlerini barındıracak değil. mesela anakart. dbf'de anakartları özelliği bulunur ama ya yeni bir ürün çıktığında? mesela firma artık sadece bilgisayar ürünlerini değil de elektronik ürünleri de satcaksa o zaman bir de fieldları kullanıcı tarafından girilecek yeni bir dbf dosyası lazım. işte benim derdim de bu. yardımcı olursanız sevinmekle kalmayıp, büyük bi dertten de kurtulmuş olurum. byes..

gene de çok teşekkürler

Bu daha kısa bir örnek olur zannedersem : . . . Function Degisken : String; Var st2:string; Begin ST2:=degadi; if degtur='C' Then St2:=St2+' CHAR('+inttostr +')' Else if degtur='N' Then St2:=St2+' NUMERIC('+inttostr Else if degtur='F' Then St2:=St2+' FLOAT('+inttostr Else if degtur='L' Then St2:=St2+' BOOLEAN' Else if degtur='D' Then St2:=St2+' DATE' Else if degtur='T' Then St2:=St2+' TIME' Else if degtur='M' Then St2:=St2+' BLOB('+inttostr +',1)'; if degtur='N') Or Then if desim&gt;0 Then St2:=St2+','+inttostr +')' Degisken:=ST2; End; Begin Query1. Databasename:='c:\stok'; Query1. SQL. Clear; Query1. SQL. Add ; Query1. SQL. Add(' ; Query1. SQL. Add(Degisken('adi','C',30,0)+','); Query1. SQL. Add(Degisken('soyadi','C',30,0)+','); Query1. SQL. Add(Degisken('kaytar','D',0,0)+','); Query1. SQL. Add(Degisken('maas','F',14,0)+','); Query1. SQL. Add(Degisken('gozlukno','F',5,3)+','); Query1. SQL. Add '); GDM. Query1. ExecSQL; Query1. SQL. Clear; Query1. SQL. Add('CREATE INDEX ADI ON &quot;yeni. dbf&quot; '); Try Query1. ExecSQL; except ; end; Query1. SQL. Add('CREATE INDEX SOYADI ON &quot;yeni. dbf&quot; '); Try Query1. ExecSQL; except ; end; End; Daha yalın ve kolay anlaşılır.. hata kontrolüne daha müsait bir yapıu olmasından dolayı ben SQL tercih ediyorum.. Kolay gelsin...

CPU sana E-Maili gönderdim ama ) bulmuşun ))

SELAM RAMAZAN DOSTUM ELİMDE KODLAR VAR MAİLİNE ENKISA SÜRE ATARIM )

E-MAILIME ATABILIRMISIN DOSTUM BEKLIYDRUM. TEŞEKÜRLER

slm ortak, mailini 4 gözle bekliyorum ) byes...