Bonjour à tous.
Faisant de la programmation orienté objet en C++ Builder, j'ai réussi a avoir du code me permettant de faire un projet.
Le souci est que le code est en Delphi et que, pour le retranscire, c'est pas très évident.
Voici le code:
Code delfi : 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 Function TBD.MSJ_provider():boolean; begin msj_Provider:=False; if length(ADOConnection_Catalogue.ConnectionString)<10 then ADOConnection_Catalogue.ConnectionString := 'Provider=SQLOLEDB.1;' + 'Integrated Security=SSPI;' + 'Initial Catalog=master;' + 'Data Source=.\WINCC;'+ 'Auto Translate=True;'+ 'Packet Size=4096;'; ; ADODataSet_Catalogue.Recordset := AdoConnection_Catalogue.Commands[0].Execute; if ADODataSet_Catalogue.RecordCount=0 then begin MessageDlg('Attention WinCC non trouvé', mtWarning, [mbOk], 0); Form1.Close; end else begin catalog :=Adodataset_Catalogue.Recordset.Fields[0].Value; Provider:='Provider:=WinCCOLEDBProvider.1;'+ 'Data Source=.\WinCC;'+ 'Catalog='+Catalog; msj_Provider:=False; end; end;
Merci d'avance pour vos réponses.
Guiling
Partager