Set Db = New ADODB.Connection Db.ConnectionString = "Provider= SQLOLEDB;Data Source=SQLEXPRESS,<NUM DU PORT> ";User ID=sa;Password=;" Db.Open Db.Execute "USE <NOM DE TA DB SANS EXTANTION>" Set vo_info = New ADODB.Recordset vo_info.Open "SELECT * FROM <NOM DE TA TAB>, Db, adOpenStatic<VOIR AIDE POUR COMPRENDRE>, adLockOptimistic<VOIR AIDE POUR COMPRENDRE>
Set cn = New ADODB.Connection 'Connexion à la DB' With cn .ConnectionString "Provider SQLOLEDB;Data Source=FR-LAN-RSVIEW-2\SQLEXPRESS;Initial Catalog=FT_log;Uid=Administrateur;Trusted_Connection=yes" 'Chaîne de connexion Sql Server' .Open End With Set rs = New ADODB.Recordset 'Lecture de la DB' With rs .ActiveConnection = cn .Open "SELECT * FROM Actions_OPE WHERE DAY (TimeStmp) = " & Day(TriDate) & " AND MONTH(TimeStmp)= " & Month(TriDate) & " AND YEAR(TimeStmp)=" & Year(TriDate) & "" 'Sélection de la table Actions_OPE' End With
.ConnectionString "Provider SQLOLEDB;Data Source=FR-LAN-RSVIEW-2\SQLEXPRESS" & ", NUM_DE_PORT" & ;Initial Catalog=FT_log;Uid=Administrateur;Trusted_Connection=yes" 'Chaîne de connexion Sql Server'
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
19 nov. 2015 à 08:18