SELECT * FROM [table] WHERE [field] LIKE "[string]"
Private Sub mnuFind_Click()
Dim findname As String
findname = InputBox("Введите группу букв имени или полное имя для поиска :", "Поиск нужных записей!!!", findname)
MainBase.RecordSource = "Select * from phonebook where FirstName like [findname]"
MainBase.Refresh
End Sub
MainBase.RecordSource = "Select * from phonebook where FirstName like [findname]"
MainBase.RecordSource = "Select * from phonebook where FirstName like '" & findname "'"
MainBase.RecordSource = "Select * from phonebook where FirstName like ' & findname ' "
MainBase.RecordSource = "Select * from phonebook where FirstName like '" & findname & "'"
Dim findname As String
findname = InputBox("Введите группу букв имени или полное имя для поиска :", "Поиск нужных записей!!!", findname)
MainBase.RecordSource = "Select * from phonebook where FirstName like ' & findname &' "
MainBase.Refresh
HotIce писал(а):Как не крути а двойные ковычки он не понимает...
Твою строку я вставил... но он не делает выборки посмотри код ещё раз плз может я чё забыл дописать...
- Код: Выделить всё
Dim findname As String
findname = InputBox("Введите группу букв имени или полное имя для поиска :", "Поиск нужных записей!!!", findname)
MainBase.RecordSource = "Select * from phonebook where FirstName like ' & findname &' "
MainBase.Refresh
MainBase.RecordSource = "Select * from phonebook where FirstName like '"
MainBase.RecordSource = MainBase.RecordSource & findname
MainBase.RecordSource = MainBase.RecordSource & "'"
всё равно он выборку не делает. Не показывает он записи почему-то хотя параметры встречаются хотя бы один раз...возможно плохо стараюсь
мне это уже тоже надоело но дело в том что это очень надо...
Set cn = New Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
cn.Open
Set rs = New Recordset
rs.Open "Select * from phonebook where FirstName like ' * " & findname & " * ' ", cn, adOpenKeyset, adLockReadOnly
-----
rs.Close
cn.Close
MainBase.RecordSource = "Select * from phonebook where FirstName like ' * " & findname & " * ' "
HotIce писал(а):Как определить DAO или ADO??? простите мне мою не компетентность...
HotIce писал(а):Что значит не забыл ли я открыть рекордсет...???
HotIce писал(а):Код процедуры был раньше или есть что-то ещё, после запуска программы в текстовых полях отображается первая запись базы данных...
HotIce писал(а):Далее - я создал базу Microsoft Access > Version 7.0 MDB
HotIce писал(а):и как мне создать запрос в MS Access 2000 > Данный запрос...
Сейчас этот форум просматривают: Google-бот и гости: 4