Database Liste Çekmek

[gaus]

Kolay gelsin
Şimdi bir program yapıyorum
Dışarıdan servername login name ve passwordu gireceğim daha sonra bana içerisinde ki databasein listesini verecek bir araform hazırlamam gerekiyor bunu nasıl yapacağım

[brs]

Kadim dostum google da biraz arama yapınca bir çok örnek bulabilirsin buda benim kullandığım user girişi...

Kod: Tümünü seç

procedure TForm1.GirisClick(Sender: TObject); // Giriş
begin
  try
    Form1.FDConnection.Connected := False;
    with FDQueryUser do
    begin
      Connection := FDConnection;
      Close;
      SQL.Clear;
      SQL.Add('Select * From User Where KULLANICI=:KADI and SIFRE=:SIF and MAILONAY=:ONAY');
      ParamByName('KADI').Value := (Edit1.Text);
      ParamByName('SIF').Value := (Edit2.Text);
      ParamByName('ONAY').AsString := 'Onaylanmadı';
      Prepared := True;
      Open;
      if Not IsEmpty then
      begin
        Form1.Hide();
        Form6.ShowModal();
        Kapat.Enabled := False;
        ImageListUser.GetIcon(1, Image1.Picture.Icon);
      end
      else
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * From User Where KULLANICI=:KADI and SIFRE=:SIF and MAILONAY=:ONAY');
        ParamByName('KADI').Value := (Edit1.Text);
        ParamByName('SIF').Value := (Edit2.Text);
        ParamByName('ONAY').AsString := 'Onaylandı';
        Prepared := True;
        Open;
        if Not IsEmpty then
        begin
          Form1.Hide();
          Form3.Show();
          Kapat.Enabled := False;
          ImageListUser.GetIcon(1, Image1.Picture.Icon);
        end
        else
        begin
          Edit1.SetFocus;
          Label1.Caption := 'Kullanıcı Adı veya Şifre Yanlış!';
          ImageListUser.GetIcon(4, Image1.Picture.Icon);
        end;
      end;
    end;
  except
    Application.MessageBox('Giriş İşlemi Sırasında Hata Oluştu!', 'Hata!',
      MB_Ok or MB_ICONQUESTION);
  end;
end;

[tayipk]

dışardan server bağlantısı için

Kod: Tümünü seç

  ConKaynak.Close;
  ConKaynak.ConnectionString:='Provider=SQLOLEDB.1;Password='+sifre.text+';Persist Security Info=True;'
                                     +'User ID='+k_adi.text+';Initial Catalog='+sirket.Text+';Data Source='+SERVER.text+'';
  ConKaynak.Connected:=True;

yukarıdaki kodla server a bağlandık şimdi serverda bulunan database leri de comboboxa atalım

Kod: Tümünü seç

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select name from sys.databases';
ADOQuery1.Open;
if ADOQuery1.RecordCount>0 then
begin
  while not ADOQuery1.Eof do
  begin
    DKaynaksirket.Properties.Items.Add(ADOQuery1.FieldByName('name').AsString);
    adoquery1.Next;
  end;
end else
ShowMessage('İŞLEM YAPILABİLECEK HERHANGİ BİR VERİ TABANI BULUNAMADI');

umarım sorunu doğru anlamışımdır. Kolay gelsin