Private Sub setdata() Testa
Select -sats
Svara
Dim rs As New ADOR.Recordset
rs.Open "SELECT DISTINCTROW [Employee.Last Name] FROM Employee;", "xtreme sample database"
Report.Database.SetDataSource rs
Report.ReadRecords
End Sub
den här sats fungerar inte. jag förstår inte varför.
Sv: Select -sats
Svara
Private Sub setdata()
Dim rs As New ADOR.Recordset
rs.Open "SELECT DISTINCTROW [Employee].[Last Name] FROM Employee;", "xtreme sample database"
Report.Database.SetDataSource rs
Report.ReadRecords
End Sub