【高分悬赏,新人求救】vb2008登陆框代码(是2008)
如题,我在VB中直接添加了一个数据库新项user.sdf,登陆窗口Login中的登陆框用户密码框的Name属性为user和password,数据库user中列名也是use...
如题,我在VB中直接添加了一个数据库新项user.sdf,登陆窗口Login中的登陆框用户密码框的Name属性为user和password,数据库user中列名也是user和password,怎么判断输入的user和password与数据库中的对应,如果对应就开启form1窗口
只要求数据库连接和校验代码~~~~~求助啊!!!VB2008的代码啊~~ 展开
只要求数据库连接和校验代码~~~~~求助啊!!!VB2008的代码啊~~ 展开
2011-04-04
展开全部
类似代码我有,采纳后即时发送
展开全部
你的是什么数据库哦
ACCESS吗?
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\wed.mdb
这个是连接引擎
全部代码(更举你的情况 改改就行了)
:
dim connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\wed.mdb"(把他换成你的数据库路径)
Dim conn As New OleDbConnection(connstr)
conn.Open()
Dim sql1 As String = "select user,pass from 你的表明 where user=@1 and pass=@2"
Dim cmd1 As New OleDbCommand(sql1, conn)
Dim rd1 As OleDbDataReader
rd1 = cmd1.ExecuteReader()
If rd1.Read = True Then
' 也就是用户名于密码正确执行的代码
Else
'不正确执行的代码
End If
conn.Close()
记得要先引入命名空间
Imports System.Data
Imports System.Data.OleDb
ACCESS吗?
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\wed.mdb
这个是连接引擎
全部代码(更举你的情况 改改就行了)
:
dim connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\wed.mdb"(把他换成你的数据库路径)
Dim conn As New OleDbConnection(connstr)
conn.Open()
Dim sql1 As String = "select user,pass from 你的表明 where user=@1 and pass=@2"
Dim cmd1 As New OleDbCommand(sql1, conn)
Dim rd1 As OleDbDataReader
rd1 = cmd1.ExecuteReader()
If rd1.Read = True Then
' 也就是用户名于密码正确执行的代码
Else
'不正确执行的代码
End If
conn.Close()
记得要先引入命名空间
Imports System.Data
Imports System.Data.OleDb
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果你是用vb裏面的,原配的话,那麼你在数据裤裏面添加user name和password就可以了、代码什麼的裏面都有的了、
然后关於你想要出现form1的事件、那麼你就在你的按钮确定。
在你的button确定裏面加代码,
P......button1_Click_,,,,,(BY....Handel....)
form1.show()
end sub
那个from1记得要填写你的form的名字哦、
例如,如果叫做Baidu,那麼就应该写成
Baidu.show()
还有,为什麼不自己做一个呢、用它的比较麻烦啊、自己用代码做、或者会简单一点、
如果有需要的话,可以追问。
希望对你有帮助。
然后关於你想要出现form1的事件、那麼你就在你的按钮确定。
在你的button确定裏面加代码,
P......button1_Click_,,,,,(BY....Handel....)
form1.show()
end sub
那个from1记得要填写你的form的名字哦、
例如,如果叫做Baidu,那麼就应该写成
Baidu.show()
还有,为什麼不自己做一个呢、用它的比较麻烦啊、自己用代码做、或者会简单一点、
如果有需要的话,可以追问。
希望对你有帮助。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
string sql=String.format("select count(*) from user where user='{0}' and password='{1}'",
user.text,password.text)
user.text,password.text)
追问
我把你的语句放到 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click 里了,可是不对啊,说String是一个类类型,不能用作表达式~~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询