sql连接数据库做登录界面？用jsp连接sql做一个登录界面
大家好，今天小编来为大家解答sql连接数据库做登录界面这个问题，用jsp连接sql做一个登录界面很多人还不知道，现在让我们一起来看看吧！
asp.net连接sql数据库制作登录界面
1.vb.net和asp.net对数据库操作的语句都是一样的，只要你使用的是同一个数据库开发，比如两个语言都用Sql数据库，那么数据库的查询，插入，修改，删除都是一样的语句sql数据库里的查询最简单的写法是select* from Product where ID>50其中*是你要查询的字段，*代表Product这个表里的所有字段，你也可以查询其中的几个字段就是select ID,Name这样也行，from后面的Prodcut是你要查询的数据表，where后面是查询的条件，这里ID>50就是查询Product表里面ID大于50的数据，如果没条件可以不写where。数据库的相关操作你可以下个Sql的教程看看，写从简单的操作语句写起2用asp.net数据插件连接数据库与用vb.net写代码连接数据库哪个效率高，个人认为是一样的，这两种语言都是基于.net下面的，只是语法不同，没什么区别的。3你应该装的是vs2008把，一般项目里面都会把链接数据库的字符串写在Web。config这个文件里面<add key="ConnectionString" value="Server=.;Database=aa;UID=sa;PWD=sa;"/>Server=.是读取本地的数据库，你也可以写成服务器的IP地址Database=aa是读取aa这个数据库UID=sa是数据库用户名是saPWD=sa是数据库的密码是sa这里都可以根据你的要求来自己改变，希望对你有帮助
如何用VB连接SQL数据库做登录
一、界面设计
各控件名称属性分别为：label1、text1、label2、text2、commandok、cmdcancel
登录成功后显示的窗体：
代码设计如下：
'首先添加一个模块，写上以下通用声明和Sub main()：
Public conn As ADODB.Connection'通用（声明）
Sub main()
Set conn= New ADODB.Connection'通用（main）
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
conn.Open
frmLogin.Show'首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
If text1.Text="" Then
MsgBox"用户名不能为空！", vbOKOnly+ vbInformation,"友情提示"
text1.SetFocus
Exit Sub'若用户名文本框内为空，则出现提示框
End If
If text2.Text="" Then
MsgBox"密码不能为空！", vbOKOnly+ vbInformation,"友情提示"
text2.SetFocus
Exit Sub'若输入密码文本框为空，也出现提示框
End If
Dim strSQl As String
strSQl="select* from User1 where username='"& Trim$(text1.Text)&"' and pwd='"& Trim$(text2.Text)&"'"
'书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str= New ADODB.Recordset
str.CursorLocation= adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If.State= adStateOpen Then.Close
.Open strSQl
If.EOF Then
Try_times= Try_times+ 1
If Try_times>= 3 Then
MsgBox"您已连续三次输入错误，系统将自动关闭", vbOKOnly+ vbCritical,"警告"
Unload Me'若用户连续输入3次错误密码，则系统关闭
Else
MsgBox"对不起，用户名不存在或密码错误！", vbOKOnly+ vbQuestion,"警告"
text1.SetFocus
text1.Text=""
text2.Text=""
End If
Else
Unload Me'若登录成功，则隐藏当前窗体
Form2.Show'然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End'若单击Cmdcel按钮，则结束应用程序
End Sub
运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。
PPT连接access数据库,怎样做密码验证的登录界面
以下实例以连接sql数据库，只要将代码中的连接数据库代码改成连接access数据库即可：
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
改为：
conn.ConnectionString="Provider=Microsoft.Ace.OLEDB.12.0;Data Source="& ThisWorkbook.Path&"\BPO.accdb"即可
添加引用
一、界面设计
各控件名称属性分别为：label1、text1、label2、text2、commandok、cmdcancel
登录成功后显示的窗体：
代码设计如下：
'首先添加一个模块，写上以下通用声明和Sub main()：
Public conn As ADODB.Connection'通用（声明）
Sub main()
Set conn= New ADODB.Connection'通用（main）
conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=False;" _
+"User ID=sa;password=123;Initial Catalog=denglu;Data Source=127.0.0.1"'连接数据库代码
conn.Open
frmLogin.Show'首先显示登录界面。也可以在工程属性中设置启动对象为Sub main()或者frmlogin窗体
End Sub
'在Frmlogin代码窗口，为cmdok控件写以下代码：
Private Sub cmdok_Click()
If text1.Text="" Then
MsgBox"用户名不能为空！", vbOKOnly+ vbInformation,"友情提示"
text1.SetFocus
Exit Sub'若用户名文本框内为空，则出现提示框
End If
If text2.Text="" Then
MsgBox"密码不能为空！", vbOKOnly+ vbInformation,"友情提示"
text2.SetFocus
Exit Sub'若输入密码文本框为空，也出现提示框
End If
Dim strSQl As String
strSQl="select* from User1 where username='"& Trim$(text1.Text)&"' and pwd='"& Trim$(text2.Text)&"'"
'书写SQL代码，查询User1表中是否存在窗体中用户输入的信息。
Dim str As New ADODB.Recordset
Set str= New ADODB.Recordset
str.CursorLocation= adUseClient
str.Open strSQl, conn, adOpenStatic, adLockReadOnly
With str
If.State= adStateOpen Then.Close
.Open strSQl
If.EOF Then
Try_times= Try_times+ 1
If Try_times>= 3 Then
MsgBox"您已连续三次输入错误，系统将自动关闭", vbOKOnly+ vbCritical,"警告"
Unload Me'若用户连续输入3次错误密码，则系统关闭
Else
MsgBox"对不起，用户名不存在或密码错误！", vbOKOnly+ vbQuestion,"警告"
text1.SetFocus
text1.Text=""
text2.Text=""
End If
Else
Unload Me'若登录成功，则隐藏当前窗体
Form2.Show'然后显示Form窗体
End If
End With
End Sub
Private Sub cmdCancel_Click()
End'若单击Cmdcel按钮，则结束应用程序
End Sub
运行中存在的问题：
代码中有Dim conn As adodb.connection，运行时显示"用户定义类型未定义"
解决方法：点击“工程”--“引用”找到“Microsoft ActiveX Data Object 2.6”
然后就就可以正常运行了。
如果你还想了解更多这方面的信息，记得收藏关注本站。