Навигация в рекордсете. Помощь новичку.

[kibernetics]

Приведите пример пожалуйста, как из VB подключённой к базе по ADODB.Connection вывести в TextBox на форме значение из первой записи второй колонки моей таблицы:


т.е. в данном случае нужно вывести слово Hello в TextBox на моей форме в VB.

Пока у меня есть такой код:

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

Dim myConn As ADODB.Connection
    Dim myComm As String
    Dim myConRst As ADODB.Recordset
    Dim myKeyRst As ADODB.Recordset
    Dim sConnection As String
    sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=e:\Temp\db1.mdb"
   
    Set myConn = New ADODB.Connection
    Set myKeyRst = New ADODB.Recordset
   
    myConn.Open sConnection

Спасибо.

[HandKot]

Способ 1

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

myKeyRst.Open "SELECT Text1 FROM Table WHERE Count = 1", myConn

TextBox.Text = myKeyRst.Fields("Text1")


Способ 2
у текстбокса выставить св-ва DataSource и DataField и потом просто открыть рекордсет. Перемещаясь по рекордсету в текстбоксе инфа будет соответствовать текущей записи

вроде так

[VVitafresh]

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

    myKeyRst.CursorLocation = adUseClient       'Клиентский курсор
    'Открытие рекордсета
    myKeyRst.Open "select * from TableName", myConn, adOpenStatic, adLockReadOnly
    Set DataGrid1.DataSource = myKeyRst         'Вывод в Датагрид
    myKeyRst.MoveFirst                          'Перемещение на первую запись
    Textbox1.Text = myKeyRst.Fields(1).Value    'Чтение значения второй колонки

[kibernetics]

Большое спасибо. Работает. Однако если у HandKot в способе 1, указать

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

TextBox.Text = myKeyRst.Fields("Text2")

то ничего не отображает из второй колонки, выкидывает ошибку, хотя с первой отображает. Наверное потому, что курсор куда-то уходит.

VVitafresh
А что означает строчка:

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

Set DataGrid1.DataSource = myKeyRst         'Вывод в Датагрид

зачем она нужна? или она необязательна?

[shady]

Наверное потому, что курсор куда-то уходит.

Курсор никуда не уходит. Скорее всего в таблице, из которой делается выборка, нет поля с именем Text2, либо не присутствует в перечислении SELECTa (если не используется *).

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

Set DataGrid1.DataSource = myKeyRst         'Вывод в Датагрид

То и означает, что элемент DataGrid отобразит весь рекордсет (просмотр результата запроса в виде таблицы)

[kibernetics]

извините, у меня вопрос в студию...
а вот допустим, у меня есть поля в базе по которым тоже нужно ориентироваться на запрос.
например, у меня есть поле в базе active тип boolean, я делаю так:

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

myKeyRst.Open "SELECT * FROM [tbdT]" & "WHERE active = True", myConn, adOpenStatic, adLockReadOnly

а если у меня много полей, по которым нужно "пройтись" фильтром, как их тоже перечислить? ведь, длина запроса может быть через чур длинная.
нельзя ли как-то делать, чтоли, перечислением, или еще как-то..., типа блоком:

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

myKeyRst.Open "SELECT * FROM [tbdT]"
"WHERR active = True"
"WHERE Param1 = >5"
"WHERE Param2 = Today"
"WHERE Param3 = True"
"WHERE Param4 = Like "date""
...
myConn, adOpenStatic, adLockReadOnly

?

[GSerg]

Даже не смешно.
AND, kibernetics.

[kibernetics]

GSerg
благодарю Вас!

[kibernetics]

Господа, взываю о помощи...
Допустим, я открыл базу из ВБ так:

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

myKeyRst.Open "SELECT * FROM [tbdT]", myConn, adOpenStatic, adLockReadOnly

потом я хочу применить фильтр:

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

myKeyRst.Open "SELECT * FROM [tbdT]" & "WHERE active = True", myConn, adOpenStatic, adLockReadOnly

но ВБ ругается, что операция не допускается, если объект открыт. как применять условия, если база уже подключена и открыта?


П.С. И вообще, как правильно всё это называется? АДО, БД или еще как-то... если справку искать, то по каким критериям? Где можно почитать, про все эти запросы? Или адрес скажите пжлста.

[GSerg]

Если тебе говорят, что операция не допускается, когда объект открыт, на какие мысли это наводит?..

[kibernetics]

GSerg
наваодит, что нельзя использовать [].Open[]
но, вот как его неиспользовать, в этом то и вопрос...

[Konst_One]

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

myKeyRst.Filter = "active=True"

[tyomitch]

GSerg
наваодит, что нельзя использовать [].Open[]
но, вот как его неиспользовать, в этом то и вопрос...

Открыть другой?

[kibernetics]

tyomitch
открыть другой, в смысле другой курсор?

Konst_One
а как сделать фильтр по слову?
ставлю:

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

myKeyRst.Open "SELECT * FROM [tbdT]", myConn, adOpenStatic, adLockReadOnly

...
'some code
...

myKeyRst.Filter = "AdresName Like system" ' тут мне нужно, чтоб была навигация только в тех рекордсетах, где в столбце AdresName есть слово system

но опять же имею ошибку:
"Аргументы имеют неверный тип, выходят за пределы, или вступают в конфликт друг с другом"

[tyomitch]

открыть другой, в смысле другой курсор?

Ну естественно. Один запрос -- один курсор.

а как сделать фильтр по слову?

Наверное, заключить его в кавычки?

[kibernetics]

tyomitch
не могу заключить кавычки в кавычки. т.е.:

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

ownKeyRst.Open "SELECT * FROM [tbdT]" & "WHERE AdresName Like ""btnClose"", myConn, adOpenStatic, adLockReadOnly

не работает.

[GSerg]

Нды...
Я-то думал, что если тебе говорят, что операция не допускается, когда объект открыт, то это наведёт на мысли, что сначала объект надо закрыть...
Не навело. Жаль.

[kibernetics]

tyomitch
а если курсор(запрос) к примеру открыт, но потом нигде не используется. можно ли его переоткрыть?
например так:

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

myKeyRst.Open "SELECT * FROM [tbdT]", myConn, adOpenStatic, adLockReadOnly
...
'some code
...
myKeyRst.Close
myKeyRst.Open "SELECT * FROM [tbdT]" & "WHERE ...", myConn, adOpenStatic,


или так неграмотно?

[kibernetics]

GSerg
дошло уже потом, как я задал последний вопрос. получается, что так и нужно работать.
сделал запрос, выполнил задачу. закрыл запрос. открыл запрос с новыми параметрами, что нужно сделал, закрыл запрос. открыл запрос ... и т.д....

[kibernetics]

а на вопрос по синтаксису никто и не ответил.
у меня еррор на записи:

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

ownKeyRst.Open "SELECT * FROM [tbdT]" & "WHERE AdresName Like ""system"", myConn, adOpenStatic, adLockReadOnly

как правильно поисковое слово "system" в поле AdresName указать?

[Ennor]

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

ownKeyRst.Open "SELECT * FROM [tbdT] WHERE AdresName Like 'system'", myConn, adOpenStatic, adLockReadOnly

Ы?

[kibernetics]

Ennor
большое вам человеческое спасибо

и чтобы я делал без этого форума?
страшно подумать...
всем большущее спасибо за отклики

[kibernetics]

порекомендуйте плиз, как передать переменную вместо 'system' здесь:

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

ownKeyRst.Open "SELECT * FROM [tbdT] WHERE AdresName Like 'system'", myConn, adOpenStatic, adLockReadOnly

[Konst_One]

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

ownKeyRst.Open "SELECT * FROM [tbdT] WHERE AdresName Like '" & MyValue & "'", myConn, adOpenStatic, adLockReadOnly

[kibernetics]

мдяяя...
туплю.
бигсенкс

[AntonGV]

Как проверить существует ли определенная запись в таблице

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

myKeyRst.Open "SELECT Name, Password FROM Users WHERE Name LIKE '"  + tmp(1) + "'", myConn
  If myKeyRst.Fields("Name") <> "" Then   'нужно проверить существует ли такая запись
    If myKeyRst.Fields("Password") = tmp(2) Then
      UpdStatus tmp(1) + " подключен", Normal
      ServerSendData "OK"
    Else
      ServerSendData "No Pass"
    End If
  Else
    ServerSendData "No User"
  End If
myKeyRst.Close