我已經登錄形式是重定向用戶爲他們的水平,但是之前如果有沒有任何用戶在數據表上我想重定向來創建管理表單。我有所有的表格,但我沒有設法重定向他們,因爲我不知道如何創建語句。你能幫我解決一下嗎?
Dim con As SqlCeConnection
Dim command As SqlCeCommand
con = New SqlCeConnection("Persist Security Info=False;Data Source=.\database.sdf;Password=********;File Mode=shared read")
con.Open()
command = New SqlCeCommand("select * from users where Name=? and Password=?", con)
Dim param1, param2 As SqlCeParameter
param1 = New SqlCeParameter("Name", uname.Text)
param2 = New SqlCeParameter("Password", pwd.Text)
command.Parameters.Add(param1)
command.Parameters.Add(param2)
Dim reader As SqlCeDataReader = command.ExecuteReader
If (reader.Read = True) Then
role = reader.GetString(1)
Else
MsgBox("Invalid Login")
End If
我有此代碼正在工作。怎麼寫
私人小組frmlogin_Load(BYVAL發件人爲System.Object的,BYVALË作爲System.EventArgs)把手MyBase.Load
End Sub
這是http://stackoverflow.com/questions/1831920/checking-for-an-sql-result-in-vb-net的副本 – 2010-06-23 21:48:20