S Sname Status City
S1 Smith 20 London
S2 Jones 10 Paris
S3 Black 30 Paris
S4 Clark 20 Moscow
В Accessе можно так искать записи из этой таблицы:
Private Sub Form_Load()
- Код: Выделить всё
Me.RecordSource = "Sik"
Text1.ControlSource = "S"
Text2.ControlSource = "SNAME"
End Sub
Private Sub CmdFind_Click()
Dim str As String
text6.SetFocus
str = text6.Text
Form.RecordSource = "SELECT S, SNAME, STATUS, CITY from Sik where S.SNAME Like '" & str & "*'"
Text1.ControlSource = "S"
Text2.ControlSource = "SNAME"
End Sub
Когда вводишь в текстовое поле text6 кокое-нибудь имя или часть имени, напр., Jo. И в текстовые поля выводится: в Text1 - S1, в Text2 - Jones
А как можно искать записи в VB6, если я через ADO подключаюсь к базе данной, в которой есть эта таблица (но мне нужно именно поиск по части имени)?
rs1.Open "SELECT S, SNAME, STATUS, CITY from Sik where S.SNAME Like '" & str & "*'"
Text1.Text = rs1.Fields("S")
Text2.Text = rs1.Fields("SNAME")
rs1.Close - не действует, в текстовых полях остаются первые записи
Может как-нибудь через Find? Подскажите, кто сталкивался.
