Извлечение данных из БД ???

[dmitriy22]

.... или видимио что-то не правильно делаю, но я никак не могу отбразить данные из БД Acces с помощью элементов управления : Label? TextBox, ListBox, ComboBox....... второй день страдаю.....
скиньте пример или лучше всего более подробно расскажите мне непонятливому....
достаточно ли в свойствах DataBinding -----> Text указывать столбец который должен отбражаться или необходимо прописать код...???
pleasе....
с DataSet я в Data Gird могу отображать данные, а вот с помощью элементов управления никак ???

[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)
If RS.BOF <> True Then
    If CStr("" & RS.Fields("Должность").Value) <> "" Then cboIDolj.Text = RS.Fields("Должность").Value
    If CStr("" & RS.Fields("Место_работы").Value) <> "" Then cboIMesto.Text = RS.Fields("Место_работы").Value
    If CStr("" & RS.Fields("Координатор").Value) <> "" Then cboIKoor.Text = RS.Fields("Координатор").Value
    If CStr("" & RS.Fields("Телефон").Value) <> "" Then txtITel.Text = RS.Fields("Телефон").Value
    If CStr("" & RS.Fields("Отзыв_коор").Value) <> "" Then cboIOcKoor.Text = RS.Fields("Отзыв_коор").Value
    If CStr("" & RS.Fields("Отзыв_ученика").Value) <> "" Then cboIOcYch.Text = RS.Fields("Отзыв_ученика").Value
End If


[dmitriy22]

а можно еще и пояснить....?
DB и RS какого типа переменные?

[Ramzes]

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

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



[dmitriy22]

понял.....глупый вопрос...
а вот я щас просто прописал...

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbDataAdapter1.Fill(DataSet11)
    End Sub

и он выдает в TextBox первую строчку базы данных...корректен ли такой подход?.....

[Ramzes]

понял.....глупый вопрос...
а вот я щас просто прописал...

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.OleDbDataAdapter1.Fill(DataSet11)
    End Sub

и он выдает в TextBox первую строчку базы данных...корректен ли такой подход?.....

хм...а где он у тебя в TextBox что-то должен выдавать??? я чего то не понимаю, или это магия такая?

[dmitriy22]

просто вокне textbox выдает значения первой строки БД...хотелось бы еще и не только первой...??? как я понимаю необходим SQL запрос..???

[lord0n]

не проще ли работать с библиотекой адо чем с контролом?

[Ramzes]

lord0n
мне кажется, что RS в .Net использовать действительно не проще

[lord0n]

lord0n
мне кажется, что RS в .Net использовать действительно не проще

ну не знаю
по мне проще работать с библиотекой чем с контролом
хотя на вкус и цвет ....

[Ramzes]

lord0n
вопрос в другом, чем тебя ADO.Net не устраивает? зачем MS PIA юзать ?

[kroskros]

просто вокне textbox выдает значения первой строки БД...хотелось бы еще и не только первой...??? как я понимаю необходим SQL запрос..???

Не уверен, но мне кажется, что ТекстБокс отображает только одну текстовую строку (имею в виду string, а не свойство Multiline) ...
Если хочешь отобразить данные всех строк поля датасета,
то тебе предстоит склеить их в одну строку вручную, а потом передать в ТекстБокс

ИЛи ты о ListBox | ComboBox?

[lord0n]

lord0n
вопрос в другом, чем тебя ADO.Net не устраивает? зачем MS PIA юзать ?

привычка, кроме того с дотнетовским адо я ещё не разбирался, не до него пока

[dmitriy22]

просто вокне textbox выдает значения первой строки БД...хотелось бы еще и не только первой...??? как я понимаю необходим SQL запрос..???

Не уверен, но мне кажется, что ТекстБокс отображает только одну текстовую строку (имею в виду string, а не свойство Multiline) ...
Если хочешь отобразить данные всех строк поля датасета,
то тебе предстоит склеить их в одну строку вручную, а потом передать в ТекстБокс

ИЛи ты о ListBox | ComboBox?

да я вот тоже решил удобнее наверное выпадающий список типа ComboBox....это очень удобно...и отображается весь столбец.... здрово....!!! спасибо за подсказки!!!
щас по-эксперементирую.....

[dmitriy22]

lord0n
вопрос в другом, чем тебя ADO.Net не устраивает? зачем MS PIA юзать ?

привычка, кроме того с дотнетовским адо я ещё не разбирался, не до него пока

а всё-таки что лучше???

[lord0n]

lord0n
вопрос в другом, чем тебя ADO.Net не устраивает? зачем MS PIA юзать ?

привычка, кроме того с дотнетовским адо я ещё не разбирался, не до него пока

а всё-таки что лучше???

а ето, кому что нравится
но в дотнете больше функций и с ним вроде проще работать

[baha76]

dmitriy22
У контролов есть свойство DataSource. Привяжи ее с DataSet.

[dmitriy22]

baha76
это конечно помогает, но как выташить определенную строку из столбца, т..к. в datasource ссылается на столбец....???

[kroskros]

наверно, если надо вытащить ОПРЕДЕЛЕННУЮ строку из столбца, то лучше-таки использовать ТекстБокс или ваще Лейбл
доступ к конкретному айтему в таблице датасета:
MyDataset.Mytable.Item(Б)(А)
где А и В соответственно номер столцбца и номер строки.
вместо номера столбца, ессно можно подставить его имя

[Ramzes]

lord0n
вопрос в другом, чем тебя ADO.Net не устраивает? зачем MS PIA юзать ?

привычка, кроме того с дотнетовским адо я ещё не разбирался, не до него пока

а всё-таки что лучше???

Управляемый код

[dmitriy22]

kroskros Большое спасибо....работает.....ладно буду дальше эксперементировать.....

[kroskros]

...и ОПЫТ, сын ошибок трудных...

[dmitriy22]

...и ОПЫТ, сын ошибок трудных...

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