Dim connection As ADODB.Connection With glbDBTimesheet .Provider = "SQLOLEDB" 'A changer pour oracle .ConnectionString = "Data Source=" & gblSQLServerName & "; Initial Catalog=" & gblSQLDBName & ";" .CursorLocation = adUseClient .Open ,gblSQLName,gblSQLPassword end With
Dim connection As ADODB.Connection set connection = new ADODB.Connection With connection .Provider = "SQLOLEDB" 'A changer pour oracle .ConnectionString = "Data Source=" & gblSQLServerName & "; Initial Catalog=" & gblSQLDBName & ";" .CursorLocation = adUseClient .Open ,gblSQLName,gblSQLPassword end With