koneksi dgn oledb:
Dim ReaderCmd As OleDb.OleDbCommand
Dim dataReader As OleDb.OleDbDataReader
STATUSLOCK="0"
ReaderCmd = New OleDb.OleDbCommand("select * from tabel_login", con)
dataReader = ReaderCmd.ExecuteReader
dataReader.Read
If UsernameTextBox.Text = dataReader("UserN").ToString And
PasswordTextBox.Text = dataReader("PassW") Then
STATUSLOCK = "1"
End If
If STATUSLOCK = "0" Then
MsgBox("Wrong Username and Password!!!", MsgBoxStyle.Exclamation,
"Verified Login")
Exit Sub
End If
--- In [email protected], "Frangky Bunga" <franklin...@...> wrote:
>
> Teman-teman yang jagoan VB.NET mohon bantuannya.
>
>
>
> Biasanya kalau di VB 6, saya lakukan query seperti ini:
>
> Teman-teman pasti paham kan coding seperti dibawah ini.
>
>
>
> Dim rs as new adodb.recordset
>
> Rs.open "select nama,pass from tbuser where nama = '"& txtnama.text &"' and
> pass = '"& txtPass &"',cnn,2,2
>
> If rs.recordcount > 0 then
>
> FormUtama.show
>
> Unload me
>
> Else
>
> Msgbox "User Name atau Password Salah "
>
> End if
>
> Rs.close
>
>
>
>
>
> Bagaimana membuat coding seperti diatas pada Visual Basic.NET.
>
>
>
> Terima kasih atas bantuannya.
>
