ne fonctionne pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Sub SQL() ' 1 - Déclaration: Dim MaConnexion As Connection ' 2 - Création d 'une instance Set MaConnexion = New Connection MaConnexion.Provider = "Microsoft.Jet.oledb.4.0" MaConnexion.Open MainForm.FileLOGS.Path & "\Reports.mdb" Dim MaCommande As Command Set MaCommande = New Command With MaCommande ' Evite de retaper MaCommande sur chaque ligne .ActiveConnection = MaConnexion .CommandText = "SELECT DISTINCT N1 FROM Reports_List GROUP BY N1" .Execute End With End Sub
Set MaConnexion = New Connection
Dim MaConnexion As ADODB.Connection Set MaConnexion = New ADODB.Connection
' 1 - Déclaration: Dim MaConnexion As Connection ' 2 - Création d 'une instance Set MaConnexion = New Connection MaConnexion.Provider = "Microsoft.Jet.oledb.4.0" MaConnexion.Open Chemin$ & "\DataFile.mdb" Dim MaCommande As Command Set MaCommande = New Command With MaCommande ' Evite de retaper MaCommande sur chaque ligne .ActiveConnection = MaConnexion .CommandText = "SELECT DISTINCT N1 FROM Reports_List GROUP BY N1" .Execute End With
Dim DB As Database Dim rst As Recordset Dim ReportsData Set DB = Workspaces(0).CreateDatabase(Chemin$ & "\Reports.mdb", dbLangGeneral) Set ReportsData = DB.CreateTableDef("Reports_List") With ReportsData .Fields.Append .CreateField("N1", dbText) End With DB.TableDefs.Append ReportsData Set rst = DB.TableDefs("Reports_List").OpenRecordset(dbOpenTable) Do FileNumber = FreeFile Open Feuille.FileLOGS.Path & "" & Feuille.FileLOGS For Input As #FileNumber Cpt = Cpt + 1 Do While Not EOF(1) Input #1, MyString rst.AddNew DoEvents rst(0) = MyString rst.Update rst.MoveLast End If Loop Close #FileNumber Loop DB.Close
Dim DB As Database, Rs As Recordset Dim StrSQL As String, I As Integer StrSQL = "SELECT DISTINCT N1 FROM Reports_List GROUP BY N1" Set DB = OpenDatabase(Chemin$ & "\Reports.mdb") Set Rs = DB.OpenRecordset(StrSQL, dbOpenTable) I = 1 Message = "" Do Until Rs.EOF Message = Message & Rs("FullName") & " | " I = I + 1 Rs.MoveNext Loop MsgBox Message Rs.Close DB.Close