Discussion :

[Babylonne]

bonjour ,

je souhaite savoir s'il ya un moyen de recuperer dans une liste toutes les instance de sql serveur au quel j'ai access
mon objectif est d'eviter que l'utilisateur tape le nom du serveur sql mais plutot de le choisir a partir d'une liste comme c'est le cas pour (Data source ODBC)

merci pour votre aide

[Patrick Seuret]

Voici du code que j'avais trouvé (mais pas testé) dans ce but. J'espère que cela pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
void TForm1::SeekSQLServer()
{
    	//SQL SERVER
		ADOConnection1->Provider = "SQLNCLI"; //SQL Native CLIent
		WideString cs = "Provider=SQLNCLI;Server="+txtServer->Text+ ";Initial Catalog=master;";
 
		if(chkIntegrated->Checked)
		{
			 cs += "Integrated Security=SSPI;";
		}
		else
		{
			 cs += ";Initial Catalog=master;UID="+txtUser->Text+
				";PWD="+txtPass->Text+";";
		}
 
		ADOConnection1-> ConnectionString = cs;
		try
		{
			ADOConnection1->Open();
		}
		catch(...)
		{
			Application->MessageBox(
			 "Error Connecting. Please verify the informations","Error!", MB_OK);
		}
 
		try
		{
			//list all DB's
			ADODataSet1->Connection = ADOConnection1;
			ADODataSet1->CursorLocation = clUseServer;
			ADODataSet1->CursorType = ctKeyset;
			ADODataSet1->LockType = ltBatchOptimistic;
			ADODataSet1->CommandType = cmdText;
			ADODataSet1->CommandText = "sp_databases";
			ADODataSet1->Open();
			ADODataSet1->Recordset->MoveFirst();
 
			vector<AnsiString> databases;
			while(!ADODataSet1->Recordset->Eof)
			{
				databases.push_back(ADODataSet1->Recordset->Fields->Item["DATABASE_NAME"]->Value);
				ADODataSet1->Recordset->MoveNext();
			}
			//ADOConnection1->OpenSchema(siTables, EmptyParam, EmptyParam, ADODataSet1);
 
			if(!ADOConnection1->Connected)
			{
				throw Sysutils::Exception("No connection made");
			}
 
			//populate the combo
			cboDBName->Items->Clear();
			for(int i=0; i<databases.size(); i++)
			{
					 cboDBName->Items->Add(databases[i]);
			}
 
			if(databases.size()==0)
			{
				Application->MessageBox(
					 "Error Finding a suitable DB.","Error!", MB_OK);
            }
			ADODataSet1->Close();
			ADOConnection1-> Close();
		}
		catch(...)
		{
			ADODataSet1->Close();
	  		ADOConnection1-> Close();
			Application->MessageBox(
			 "Error Finding a suitable DB.","Error!", MB_OK);
		}
}