@aslangeri Vakit ayırdığın için teşekkürler..
- Sorun Proje içerisinden dinamik olarak create edilen veritabanı ve tablolardaymış... Şimdi böyle dinamik oluşturulan tabloların MS-Access'de create edilenlerden farkını irdeliycem.
- Bugün gündüz gözüyle MSAccess ile bir veritabanı oluşturup denemeye karar verdim MS-Access'de tablo create edince sorun yoktu.
- Aşağıdaki kodu bir button'a koyup,
USES eklentilerini yapar mısın benim için. Sonra button'a basınca oluşan Veritabanı içindeki tabloya MSAccess ile bakıp oradan isim sürununa göre sıralatır mısın ?
Kod: Tümünü seç
// Uses AdoDB, ComObj, Variants
Const
NameList : Array [0..9] of String = ('Sabri', 'Şahin', 'Seda', 'Şerife', 'Sevgi', 'Şeyma', 'Sezgin', 'Suzan', 'Şimal', 'Şevket' );
Var
BaglantiStr: String;
Veritabani : OleVariant;
AdoQuery : TAdoQuery;
AdoCommand : TAdoCommand;
Sayac : Integer;
begin
BaglantiStr:= Format( 'Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Data Source=%s;'
+ 'Jet OLEDB:Database Password=%s;',
[ ExtractFilePath(Application.ExeName)+'Veritabani.MDB', '']);
Veritabani := CreateOleObject('ADOX.Catalog');
Veritabani.Create( BaglantiStr );
Veritabani := Unassigned;
With TAdoQuery.Create(Nil) do begin
ConnectionString := BaglantiStr;
// Tabloyu oluşturup alanları belirliyoruz....
AdoCommand := TAdoCommand.Create( Nil );
AdoCommand.ConnectionString := BaglantiStr;
AdoCommand.CommandText := 'CREATE TABLE OrnekTablo ( KaySiraNo AutoIncrement, Adi TEXT(30) )';
AdoCommand.Prepared := true;
AdoCommand.Execute;
AdoCommand.Free;
SQL.Text := 'SELECT * FROM OrnekTablo';
Active := True;
For Sayac := 0 to High(NameList) do begin
Append;
FieldByName('Adi').AsString := NameList[Sayac];
Post;
end;
Active := False;
Free;
end;
end;
- Teşekkürler.
