Поиск в БД!!!

[PetrOFFs]

Я сделал БД, но я не знаю как правильно создать поиск по этой БД. Если кто знает или кто то когда то делал подобное пожалуйста напишите как это сделать!!!!!!

[Ramzes]

select * from x where y=z

[PetrOFFs]

Ramzes
Я сделал телефонный справочник и хочу сделать по нему поиск, что бы искать номера телефонов, Ф.И.О. абонентов. И мне не понятно что ты мне написал

[temur]

С запросами знаком? тогда
select * from x where y=z

* - Все
x - Имя таблицы
y - Столбец с телефонными номерами в базе
z - Искомое значение (Номер телефона)
Это называется запрос с параметрами

[PetrOFFs]

[lord0n]

да ради бога:

Код: Выделить всё


DB = New ADODB.Connection
RS = New ADODB.Recordset

DB.CursorLocation = ADODB.CursorLocationEnum.adUseClient
DB.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Обучение.mdb;Mode=Share Deny None;")

RS.Open("select * from Инструктора where фио = '" & cboIFIO.Text & "' and Уволен <> 1", DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)


открывает БД и ищет в базе товарища с ФИО, которого юзер выбрал в комбобоксе

[Ramzes]

PetrOFFs
Скажи, а калькулятор ты уже написал...или лучше скажи кто.

Ты же не думаешь, что за тебя действительно все будут писать?

[temur]

Вот тебе и пример на ВС 2005 с базой Access

[dmitriy22]

temur

а как загрузить этот файл в 2003 ???..... или никак???

[temur]

Никак поскольку в FW 1.1 нет компонента TableAdapter
и DataSet немного другой.

[dmitriy22]

Никак поскольку в FW 1.1 нет компонента TableAdapter
и DataSet немного другой.

да и я тоже понимаю что нет, но может ......как-нить, а то здесь многие файлы я смотрю сделаны на 2005 Visual... а так охота посмореть поэксперементировать....себе на заметку взять....т.к. наглядно оно быстрее доходит!!!

[lord0n]

Никак поскольку в FW 1.1 нет компонента TableAdapter
и DataSet немного другой.

да и я тоже понимаю что нет, но может ......как-нить, а то здесь многие файлы я смотрю сделаны на 2005 Visual... а так охота посмореть поэксперементировать....себе на заметку взять....т.к. наглядно оно быстрее доходит!!!

открывай код в блокноте и учись

[PUNK-GRUNGER]

ему поиск нужен.. а не выборка..
SELECT * FROM [table] WHERE [pole] LIKE '[pattern]';
А тема подключения и работы с БД тут обжевивалась сто мильйонов раз, юзай поиск по форуму - SqlClient, DataReader и т.д.

[temur]

PUNK-GRUNGER
Ты пример смотрел?
Там так и сделано.
И к сведению
SELECT * FROM [table] WHERE [pole] LIKE '[pattern]'
и
SELECT * FROM [table] WHERE [pole] = '[pattern]'
Даст один и тотже результат.
А вот так другое дело
SELECT * FROM [table] WHERE [pole] LIKE '%' + [pattern] + '%'

[PetrOFFs]

Я хочу сделать такой поиск чтобы в текстовое поле ввести Имя или номер тел. и что бы он показывал эту строку в таблице.

[lord0n]

Я хочу сделать такой поиск чтобы в текстовое поле ввести Имя или номер тел. и что бы он показывал эту строку в таблице.

гыыыыыыыыыыы
это же элементарно
нужно искать по первым введенным символам

[PetrOFFs]

lord0n
Ну а как это сделать?

[lord0n]

lord0n
Ну а как это сделать?

здесь тебе дадут идею, а как делать думай сам
там все просто - я за 10 мин наваял.
через лефт по количеству введенных символов перебираешь датавъю или листбокс (в общем че захочешь)

[PetrOFFs]

lord0n

DB = New ADODB.Connection
RS = New ADODB.Recordset

DB.CursorLocation = ADODB.CursorLocationEnum.adUseClient
DB.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Обучение.mdb;Mode=Share Deny None;")

RS.Open("select * from Инструктора where фио = '" & cboIFIO.Text & "' and Уволен <> 1", DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

Это ты мне написал и уменя были ошибки.

Мне не понятно для чего эта строка

& My.Application.Info.DirectoryPath & "\Обучение.mdb;Mode=Share Deny None;")

Вот здесь у меня ошибка
My.

Name 'My' is not declared.

И если тебе не трудно, то объясни для чего кждая строка твоего кода


Вот мой код:

Код: Выделить всё

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim DB As New ADODB.Connection
        Dim RS As New ADODB.Recordset
        DB.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        DB.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Обучение.mdb;Mode=Share Deny None;")

        RS.Open("select * from Номера where Сотовый телефон = '" & ComboBox1.Text & "' and Уволен <> 1", DB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
    End Sub

[lord0n]

My.Application.Info.DirectoryPath - путь к исполняемуму файлу твоей проги (можешь заменить на прямой путь к базе, например c:\base\db.mdb)
"\Обучение.mdb" - название базы

[lord0n]

как й тя называется файл акцеса и какие колонки в базе?

[temur]

Ты используеш ВС2003 а там нет My
Напиши так
& Application.StartupPath & "\Обучение.mdb;Mode=Share Deny None;
Используй в Селекте параметры подобно этому
SELECT * FROM [table] WHERE [pole] LIKE '%' + [pattern] + '%'
и будет тебе счастье.
Или вот тебе код на Базе из предыдущего примера.

Код: Выделить всё

Dim DT As DataTable
   
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As     System.EventArgs) Handles Button1.Click
        Dim SQLstr As String = "SELECT * FROM Numbers WHERE ([    Name] LIKE '%' + " & Me.TextBox1.Text & " + '%')"
        Dim Con As New System.Data.SqlClient.SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & Application.StartupPath & "\Base.mdb" & """")
        Dim DA As New System.Data.SqlClient.SqlDataAdapter(SQLstr, Con)

        DT = New DataTable
        DA.Fill(DT)
        Me.DataGridView1.DataSource = DT
End Sub