Bonjour,
j'utilise delphi 7.
Je voudrais créer un soap générique.
Le principe étant que, a partir d'une application, j'utilise une fonction du soap qui me renvoie un clientdataset.
mais cette fonction contiendrait 2 parametres
1 : la chaine de connection a une base de données.
2 : La reqete sql
La fonction sur le web service serait du style :
pFIBDataSet1 est linké a un provider et je voudrais avoir accès a ce moment là, à ce provider.
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 function Twebdata.SelectGenerique(AConnection,ASelect:string):integer; var AStlist : TStringList; lsDb, lsLogin, lsPsw, lsCharset, lsSQLDialect : string; begin AStlist := TStringList.Create; AStlist.Text := AConnection; lsDb := AStlist[0]; lsLogin := AStlist[1]; lsPsw := AStlist[2]; lsCharset := AStlist[3]; lsSQLDialect := AStlist[4]; FreeAndNil(AStlist); result:=-1; try DB.DataBaseName := lsDb; DB.DBParams.Clear; DB.DBParams.Add('user_name=' + lsLogin); DB.DBParams.Add('password=' + lsPsw); DB.DBParams.Add('lc_ctype=' + lsCharset); DB.SQLDialect :=StrToInt(lsSQLDialect); DB.Connected:=True; pFIBDataSet1.Active:=False; pFIBDataSet1.SelectSQL.Text := ASelect; pFIBDataSet1.Open; pFIBDataSet1.FetchAll; result:= pFIBDataSet1.RecordCount; except on e:Exception do begin result:=-1; end; end; end;
je ne sais pas comment faire
Je sais lancer une fonction qui me renvoie un résultat
je sais lancer une connection avec acces a un provider par clientdataset mais la base est déjà connectée.
Je ne vois pas comment faire
merci pour votre aide
Partager