İlk giriş de programa Database seçiliyor ve ben bu Database İlişiklendirip Tablo kontrolü yapmak istiyorum özetle İlgili şirket Database altında Tablo var mı? yok mu? kontrol etmek istiyorum.
Bu şekilde de denedim yine olmadı DATABASE bulamıyorum ;
DATA : ile Şirketi DATABASE buluyorum sonra NAME ile eşitliyorum.
ama tepkisiz. Yardımcı olur musunuz ?
Bulamadı ise Tablo yu Create edecem.
Kod: Tümünü seç
procedure TForm1.BitBtn3Click(Sender: TObject);
Var
DATA:String;
begin
//////////////şirket datasını bulma
DATA:=DBLookupComboBox1.Text;
ADOConnection1.Connected:=False;
memo1.Lines.LoadFromFile('c:\Pro\dataconnection.txt');
ADOConnection1.DefaultDatabase:=DATA;
ADOConnection1.Connected:=True;
/////////////////////////////////////
KONTROL.Close;
KONTROL.SQL.Clear;
KONTROL.SQL.Text:=' select * from master.dbo.sysdatabases';
while not KONTROL.Eof do
begin
// sql de çalışılacak database var mı ona bakıyor
if (KONTROL.FieldByName('NAME').AsString = DATA ) then
begin
ShowMessage('Buldum');
End
Else
Begin
ShowMessage('Bulamadım');
end;
End;