FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  
with TRegistry.Create do 
  try 
    { Recensement de la source de données (1) } 
    RootKey := HKEY_LOCAL_MACHINE; 
    OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false); 
    WriteString('MaSourceSQLServer','SQL Server'); 
    { Ecriture des paramètres (2) } 
    if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then 
      raise Exception.Create('impossible de créer la clé : '+ 
      '<\Software\ODBC\ODBC.INI\MaSourceSQLServer>'); 
    WriteString('Driver','C:\WINNT\System32\sqlsrv32.dll'); 
    WriteString('Description','Source créée par programme'); 
    WriteString('Server','SRVSQL'); 
    WriteString('LastUser','SA'); 
    WriteString('Trusted_Connection','Yes'); 
  finally 
    Free; 
  end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type 
  ODBCDateTimeFormats = (formatDate, formatHeure, formatHeureMil, 
                         formatDateHeure, formatDateHeureMil); 
  
function dateTimeToODBCDatetime(dateTime: TDateTime; format: ODBCDateTimeFormats):string; 
begin 
  case format of 
    formatDate  : result := #123' d '+quotedStr(FormatDateTime('yyyy-mm-dd',dateTime))+'}'; 
    formatHeure  : result := #123' t ' +quotedStr(FormatDateTime('hh:nn:ss',dateTime))+'}'; 
    formatHeureMil : result := #123' t ' +quotedStr(FormatDateTime('hh:nn:ss.zz',dateTime))+'}'; 
    formatDateHeure : result := #123' ts '+quotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss',dateTime))+'}'; 
    formatDateHeureMil: result := #123' ts '+quotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss.z',dateTime))+'}'; 
  end; 
end;

1
2
ADOQuery1.SQL.add('SELECT * FROM TOTO' 
       +' WHERE DATE_FIELD = '+dateTimeToODBCDatetime(now,formatDate));

ADOQuery1. sql.Add('UPDATE TOTO SET DATE_FIELD = '+dateTimeToODBCDatetime(now,formatHeure)+' WHERE CODE = 11');