Discussion :

[psohier]

Bonjour,

Je tente d'utiliser depuis peu DELPHI Tokyo 10.2 et je rencontre un pb de connection avec ADO et MS SQL

Dans l'EDI quand je construis la chaîne de connexion, ma connexion fonctionne parfaitement (Test concluant)

Dans mon code je colle la chaîne de connexion depuis la fenêtre de l'EDI et remplace les noms de mon serveur, ma bdd, le login et le password par les variables lus depuis un .ini

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
 
   serveur:=iniFile.ReadString('DATABASE','serveur','');
   database:=iniFile.ReadString('DATABASE','database','');
   username:=iniFile.ReadString('DATABASE','username','');
   password:=iniFile.ReadString('DATABASE','password','');
 
   ADOConnection1.ConnectionString:= 'Provider=SQLOLEDB.1;Password='+password+
                                     'Persist Security Info=True;User ID='+username+
                                     ';Initial Catalog='+database+
                                     ';Data Source='+serveur+
                                     ';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DESKTOP-HP;Use Encryption for Data=False;Tag with column collation when possible=False';
try
   ADOConnection1.Connected:=True;
except
...

et j'ai systématiquement le message "spécification de permission non valide" quand j'essaye de passer la propriété connected à True

Franchement, je ne vois pas ce qui peut coincer ...

Toute suggestion serait bienvenue
MErci

[SergioMaster]

Bonjour,

Toute suggestion serait bienvenue

en mode boutade, passer à Firedac il faut dire que je ne suis pas fan de ADO

en mode plus sérieux il ne manque pas des guillemets pour encadrer les variables concaténées ?
par exemple : ..."'+Serveur+'"...mais bon ADO et moi = 2

[exyacc]

tu as un login/pass pour ta base ou c'est vide ?

[psohier]

Bonjour

Réponse 1 : Je suis d'accord Firedac ou Dbexpress mais, Delphi ne livre pas en standard les drivers pour MS SQL ou ORACLE
et ça m'énerve que ça marchait avec des versions précédentes et que ça marche plus.

Réponse 2 : Oui j'ai bien un login mot de passe (que je passe d'ailleurs dans la chaîne de connexion)

Quelqu'un utilise t-il encore ADO ?
ou alors comment avoir les drivers SQL SERVER pour Firedac ou DBexpress

MErci

[SergioMaster]

Bonjour,

Réponse 1 : Je suis d'accord Firedac ou Dbexpress mais, Delphi ne livre pas en standard les drivers pour MS SQL ou ORACLE

un problème de niveau de version ? j'ai la version entreprise et peux bien me connecter avec MS SQL même si ce n'est pas mon SGBD préféré
revoir la matrice fonctionnelle de Delphi https://www.embarcadero.com/docs/rad...ure-matrix.pdf, à ce propos cela faisait quelques temps que je n'y étais pas retourné : elle a changé de look
j'y vois qu'il y a un ² au niveau de la version pro

et ça m'énerve que ça marchait avec des versions précédentes et que ça marche plus.

Qui dit ADO dit driver donc peut être un PB de driver

Quelqu'un utilise t-il encore ADO ?

pas moi, j'ai jamais aimé ni DBExpress d'ailleurs , je banni les surcouches chaque fois que possible

ou alors comment avoir les drivers SQL SERVER pour Firedac ou DBexpress

un palliatif ? ZEOSDBO

[BuzzLeclaire]

Bonjour,

J'utilise que ADO et j'ai également eu ce genre de souci mais çà date !! j'espère que cela va t'aider

J'ai ressorti direct de mon outil la construction de la chaîne de connexion (ce n'est évidemment pas la seule possibilité car tu peux aussi rechercher les instances et les bases) :

Comme je n'ai pas encore pu récupérer ma dernière version (victime d'un ransmware...) (j'ai un doute sur le uid et pwd)

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
 
    With FData.ADOCnxSqlServer do
    begin
      Connected := False;
      ConnectionString := 'Provider='+ FournisseurODBC +';';
      ConnectionString := ConnectionString + 'Integrated Security=SSPI;';
      ConnectionString := ConnectionString + 'Persist Security Info=False;User ID="";';
      ConnectionString := ConnectionString + 'Initial Catalog='+ sCBoxBase.Text  +';';
 
      if (rbLoginInfo.Checked) And (ledUserName.Text <> '') And (ledPassword.Text <> '') then
      begin
        ConnectionString := ConnectionString + 'uid=' + ledUserName.Text + ';';
        ConnectionString := ConnectionString + 'pwd=' + ledPassword.Text + ';';
      end;
      ConnectionString := ConnectionString + 'Data Source=' + sCBoxInstances.Text +';';
      ConnectionString := ConnectionString + 'Initial File Name="";Server SPN="" ';
      LoginPrompt := False;
 
      Connected := True;
....
    end;