Братья кодеры помогите, маленькому кодершику
- Код: Выделить всё
Function sAmericanDateStyle(datDate As Date) As String
sAmericanDateStyle = "#" & Format$(datDate, "mm.dd.yyyy") & "#"
End Function
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DATA\data.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
d1 = "#" & Format$(CDate(DTPicker1.Value), "mm\/dd\/yyyy") & "#"
d2 = "#" & Format$(CDate(DTPicker2.Value), "mm\/dd\/yyyy") & "#"
Adodc1.RecordSource = "select * from data where date BETWEEN " + d1 + " and " + d2 + " "
Adodc1.Refresh
Adodc1.RecordSource = "select * from data ORDER BY sim ASC "
Adodc1.Refresh
End Sub