voici le code pour creer un ODBG SQL :
cependant g des soucis avec les attributs,au niveau du menu :
"comment SQL server doit il verifier l'authencité de l'identificateur de connection"
je c pas comment faire pour choisir authentification windows ou Sql server.
et pi lorsque je met en attribut UID eT PWD ca met que ca veut pas le creer ...
qq un connait les attributs exacts que l on peut mettre ?
merci....
procedure TForm1.Button1Click(Sender: TObject);
var
intRet : longint ;
strDriver : AnsiString ;
strAttributes: AnsiString ;
begin
strDriver := 'SQL server' ;
strAttributes := 'DSN=Gest_reseau' + #0 ;
strAttributes := strAttributes + 'DESCRIPTION=base SQL server' + #0 ;
strAttributes := strAttributes + 'SERVER=SRTEST' + #0 ;
//strAttributes := strAttributes + 'UID=adm' + #0 ;
//strAttributes := strAttributes + 'PWD=adm' + #0 ;
strAttributes := strAttributes + 'DATABASE=GestRes' + #0 ;
ShowMessage(strAttributes);
{Pour visualiser la boite de dialogue, utiliser Form1.Handle au lieu
de vbAPINull.}
intRet :=SQLConfigDataSource(vbAPINull , ODBC_ADD_DSN, strDriver, strAttributes) ;
If intRet <> 0 Then
Showmessage ( 'DSN Créé')
Else
Showmessage( 'Echec de création du DSN') ;
end;