The problem is that you are looking at the field definition in the
datatable. It doesn't know what row you wish to look at. I am assuming
that you want the value from the first row returned? If so, the following
should work.
Dim subject As String = dt.rows(0)("defaultmnu")
"SALIH ATAOZ" <anonymous@discussions.microsoft.com> wrote in message
news:017001c39f21$30572320$a501280a@phx.gbl...[color=blue]
> cnn.Open()
>
> Dim sql As String
> sql= "select * from users where username='" &_
> TextBox1.Text & "' and password='" & TextBox2.Text & "';"
>
> Dim dt As New DataTable()
> i have problem downstaires
>
>
>
>
>
> Dim dausers As New OleDb.OleDbDataAdapter(sql, cnn)
>
> dausers.Fill(dt)
>
> If dt.Rows.Count > 0 Then
>
> Dim subject As String = dt.FIELDS("defaultmnu")
>
> '************************************************* ****
> 'PREVIOUS LINE I WANT TO FINT FIELD DATAFAULTMNU AND SET
> 'IT TO SUBJECT. HERE I HAVE A PROBLEM how can 1 do that
>
>
>
> Select Case subject
>
> Case "BASKI"
> Me.Hide()
> Dim frmbaski As New frmbaski()
> frmbaski.Show()
> frmbaski.Text = "Baski Giris Formu"
>
>
> Case "STOK"
> Me.Hide()
> Dim FrmStok As New FrmStok()
> FrmStok.Show()
>
>
> Case "MUHASEBE"
> Me.Hide()
> Dim Frmmuhasebe As New FrmMuhasebe()
> Frmmuhasebe.Show()
>
> End Select
>
> Else
> MsgBox("No users",MsgBoxStyle.Critical, "Office")
>
> End If
>[/color]
