connect.ini den database bağlantısı

[ozcank]

Sunye kardeşim şirket listelerini aldım combobox1 e şimdi burda seçtiğim şirketi ADOConnection1 in databases ine aktarmak istiyorum bu şekilde komut yazdım ama olmadı bi bakabilirmisin?

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
ADOConnection1.DefaultDatabase:=ComboBox1.Text;
ShowMessage (ComboBox1.Text)
end;
end.

[sunye]

Defaul database yerine connectionstring ozelligine yaz. parametreleri hatirlamiyorum ama ... yi tiklayarak secimeleri elle yap olusan string degerinde databese: parametresini comboboxa esitle.

[ozcank]

Bu şekilde kod yazdım ama hata veriyor ComboBox1 e gelen şirket ismini alıp DATA ya aktardım ordan da ADO nun DefaultDatabases ine aktarmak istiyorum.

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
Var
DATA:AnsiString;
begin
DATA:=ComboBox1.Text;
ShowMessage(DATA);
ADOConnection1.Close;
ADOConnection1.ConnectionString:=('Data Source=OZCAN\NETSIS_RCS;Initial Catalog=DATA;Integrated Security=SSPI;');
ADOConnection1.Open;
showmessage('Bağlantı Gerçekleşti')
End;

Cannot open databeses 'DATA' hatası

[ozcank]

Şifreli olarakda düzelttim ama aynı hata.

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
Var
DATA:AnsiString;
begin
DATA:=ComboBox1.Text;
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:=('Provider=SQLOLEDB.1;Password=123456789;Persist Security Info=True;User ID=SA;Data Source=OZCAN\NETSIS_RCS;Initial Catalog=DATA;Integrated Security=SSPI;');
showmessage('Bağlantı Gerçekleşti');
    ADOConnection1.DefaultDatabase:=DATA;
ADOConnection1.Connected:=True;
ADOTable5.Active:=True;
    ShowMessage (data)
    End;
end.

cannot open databases 'DATA'

[ozcank]

Arkadaşlar bu şekilde çözdüm.

Kod: Tümünü seç

Var
DATA:AnsiString;
begin
DATA:=ComboBox1.Text;
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:=('Provider=SQLOLEDB.1;Password=123456789;Persist Security Info=True;User ID=SA;Data Source=OZCAN\NETSIS_RCS;Initial Catalog:=+DATA+;Integrated Security=SSPI;');
ADOconnection1.LoginPrompt:=false;
showmessage('Bağlantı Gerçekleşti');
    ADOConnection1.DefaultDatabase:=DATA;
ADOConnection1.Connected:=True;
ADOTable5.Active:=True;
    ShowMessage (data)
    End;
end.

[ozcank]

Sunye kardeşim ben şunu yapamadım şimdi combobox1 e şirketleri alıyorum SIRKETLER30 Table sinden peki seçtiğim şirkete ait Kullanıcı adını ve Pasword nasıl eşitledin hangi table tutuyor onu ?

TBLKULLANP dekinde kullanıcı adı ve şifresi var ama hangi database oldunu nasıl eşitleyecem her databasede farklı kullanıcı adı ve şifresi var.
daha doğrusu senin yaptığın gibi yapmak istedim

ComboBox1 de Şirketler
Edit1 de Kullanıcı adı
Edit2 de Şifre

[sunye]

Ben NetOpenX Kullandığım için tablelere gitmiyorum doğrudan netsis'in kendisine soruyorum. Netopenx kullanmadığında çok sıkıntı yaşarsın 1. sorunun kullanıcı şifresi şifreli olarak kaydediliyor, önce onu çözmen gerekli.

Sana önerim NetOpenX lisansı satın al. 60 $. Netsis'e dua edersin.

[ozcank]

benim lisansım var sorunum yok bayşsşyşm zaten:)

[ozcank]

ben bayiyiyim zaten ama nasıl kullanacağımı bilmiyorum

[ozcank]

Sunye kardeşim bana projeyi göndermen mümkünmü değişkenler var tanımlıyorum başka yerde takılıyor en azından nerde ne kullandın onu bulurum.Birsürü componnet kullandın doğrudur ama ben sadece nerde ne kullandığına bakmak istiyorum.