Guiling39
Messages postés4Date d'inscriptionlundi 15 mars 2010StatutMembreDernière intervention21 juin 2010
-
26 avril 2010 à 10:12
cs_rt15
Messages postés3874Date d'inscriptionmardi 8 mars 2005StatutModérateurDernière intervention 7 novembre 2014
-
1 mai 2010 à 21:30
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 delphi :
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;