Imports System.Data.SqlClient
Sub Login()
Dim DBCon As New SqlConnection(ConfigurationManager.ConnectionStrings("Nama
Connection String yg dipakai").ConnectionString)
DBCon.Open()
Dim SQL As String
SQL = "select nama,pass
from tbuser where nama ='"& txtnama.text &"'
and pass = '"& txtPass &"'"
Dim rs As New SqlCommand(SQL, DBCon)
Dim rd As SqlDataReader = rs.ExecuteReader
If rd.HasRows = False Then
FormUtama.show
me.visible = False
Else
Msgbox
“User Name atau Password Salah ”
End if
rd.Close
rs.Dispose
DBCon.Dispose
Email: [email protected]
________________________________
Dari: Frangky Bunga <[email protected]>
Kepada: [email protected]
Terkirim: Sen, 31 Mei, 2010 09:38:35
Judul: [programmer-vb] Query di VB.NET
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.
