selam arkadaşlar
VIT, VITONLINE ve VITTRANS adında 3 adet databases var, SQL Explorer da bunları görebiliyorum.
VIT tabloları C:\TAB\TABLO klasöründe ( 20 adet)
VITONLINE ve VITTRANS tablolarıda başka klasörlerde
ne tür bir combobox kullanacak bunları listelettirebilirim
ve VIT i sçtiğimde 2.combobox a VIT'in tablolarının listesini nasıl getirtebilirim.
'cümleler biraz devrik oldu, kusura bakmayın'
Microsoft SQL kullanmaya çalışıyorum, önerileriniz için şimdiden teşekkürler...
Combobox'a database tablolarını ekleme
merhaba,
belki işine yaramaz, belki soruna cevap değil ama delphi7 demolarını inceledim ve imageview diye bir demo var burada kendi fb veri tabanımı ve bilgisayarda bulunan klasörleri görebiliyorum. istersen bir incele db içindeki tabloları göremiyorum ama en azından vt yi gördü.
kolay gelsin
belki işine yaramaz, belki soruna cevap değil ama delphi7 demolarını inceledim ve imageview diye bir demo var burada kendi fb veri tabanımı ve bilgisayarda bulunan klasörleri görebiliyorum. istersen bir incele db içindeki tabloları göremiyorum ama en azından vt yi gördü.
kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Daha önce BDE deki aşağıda yazdığım procedure u kullanmıştım.
Kod: Tümünü seç
procedure TfrmDBM.GetTables(var List: TComboBox);
var
Cursor: HDBICur;
Name: string;
Desc: TBLBaseDesc;
SystemTables, Extensions: boolean;
begin
List.Items.BeginUpdate;
SystemTables := False; //cbSystem.Checked;
Extensions := False;
try
List.Items.Clear;
List.Items.Add(' ');
try
Check(DbiOpenTableList(Database1.Handle, False, SystemTables, nil, Cursor));
try
while DbiGetNextRecord(Cursor, dbiNOLOCK, @Desc, nil) = dbiErr_None do
with Desc do
begin
if Extensions and (szExt[0] <> #0) then
StrCat(StrCat(szName, '.'), szExt);
NativeToAnsi(Database1.Locale, szName, Name);
List.Items.Add(Name); // + ' -> Table');
end;
finally
DbiCloseCursor(Cursor);
end;
finally
end;
finally
List.Items.EndUpdate;
end;
List.ItemIndex := -1;
if List.Items.Count > 25 then
List.DropDownCount := 25
else
List.DropDownCount := List.Items.Count;
List.Hint := 'nesne sayısı: ' + IntToStr(List.Items.Count - 1);
ListeBoyu(List);
end;
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!