ADOCONNECTION SQL SERVEUR fontionne dans EDI et pas dans code

Version imprimable

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:

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

09/03/2018, 08h38
SergioMaster

Bonjour,

Citation:

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
12/03/2018, 10h49
exyacc

tu as un login/pass pour ta base ou c'est vide ?
16/03/2018, 14h25
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
16/03/2018, 16h07
SergioMaster

Bonjour,

Citation:

Envoyé par psohier

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

Citation:

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

Citation:

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

Citation:

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

un palliatif ? ZEOSDBO

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:

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;