На форме есть датагрид, текстбокс надо осуществить выборку ввода по дате
т.е. когда вводим дату а текстбокс, после нажимаем поиск, в ДатаГриде должно остаться только те записи которые с этим числом.

Что здесь не правильно?


Private Sub Command1_Click()
Dim sql As String
Dim rs As New ADODB.Recordset
sgl = "select * from base where data = '22.05.2002'"
rs.Open sql, AdoSearch.ConnectionString, adOpenKeyset, adLockBatchOptimistic
'DataGrid1.DataSource = AdoSearch
End Sub

Выше написанный код я упростил

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
rs.Open "Select * from base where data = '08.09.03'", AdoSearch.ConnectionString
End Sub

А теперь он говорит что в запросе data не соответствие типов, это возможно но как написать? как перевести тип я забыл а книжки под рукой нет, подскажите.

Локальная база, конекшен стринг настроет!

Private Sub Command1_Click()
Dim rs As New adodb.Recordset
rs.Open "Select * from base where data = '20.02.03'", AdoSearch.ConnectionString
Set AdoSearch.Recordset = rs
Set DataGrid1.DataSource = AdoSearch.Recordset
End Sub


А в этом коде пишет the rowset is not bookmarkable
что это значит и как поправить

Я сменил источник в ODBC на Микрософтовский, как в книжке и все заработало поиск осуществляется по имени, фамилии т.е по строке с типом String, а по дате ни как не хочет,

как преобразовать фарматы?

а вот что получилось

Private Sub Command1_Click()
Dim cnnBase As New ADODB.Connection
Dim cmmBase As New ADODB.Command
Dim rsBase As New ADODB.Recordset
Dim strSql As String
cnnBase.Provider = "Microsoft.Jet.OLEDB.3.51"
cnnBase.Open "D:\work\kas97.mdb", "admin"
strSql = "select * from base where name = 'михаила'"
With rsBase
Set .ActiveConnection = cnnBase
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
Set AdoSearch.Recordset = rsBase
Set DataGrid1.DataSource = AdoSearch