vb.net登入系统 vbnet usercontrol

基于VB.Net+sql数据库的学生信息管理系统,怎么连接数据库实现登录啊

1:Access,建立数据库,数据库命名为Database1.mdb。

为乌兰察布等地区用户提供了全套网页设计制作服务,及乌兰察布网站建设行业解决方案。主营业务为网站设计制作、网站制作、乌兰察布网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

(注意:这里的后缀是MDB,如果Access是2007版本的,保存的时候要另存为2003版本的才行,因为,VB不直接支持07版的accdb后缀格式!)

2:数据库建立后就进入了数据表界面,可以输入数据了,输完以后CRRL+S保存,输入表名,这里表名为test,ok,准备工作搞定。

菜单中找到工程→部件→勾选 ,

Microsoft ADO Data Control 6.0

Microsoft Hierarchical Flexgrid Control 6.0

勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。

选择 ADODC控件和MSHFlexGrid控件,放在窗体的合适位置

设置ADODC控件的属性:

右键窗体内ADODC1控件

1:ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接,显示测试成功则ok,确定。

2:ADODC属性页→记录源→命令类型选择2-adcmdtable,表或存储过程名称选择之前建立的数据表test,点击确定,ADODC属性设置完成。

设置MSHFlexGrid控件的属性:

VB右侧属性表里,找到datasource,选择adodc1

就完事了

vb.net 用户登入相关问题

首先要把Label1的属性Visible设置为false,然后双击button1输入:

Dim rs As New Data.DataView()

Dim rs As New DataView()

conn.DataFile = "users.mdb"

conn.SelectCommand = "select top 1 * from users where name='" txtUserName.Text "'and pass='" txtPassword.Text "'"

rs = conn.Select(DataSourceSelectArguments.Empty)

if rs.Count Then

Label1.Visible=true

Session("name") = Trim(txtUserName.Text)

Session("pass") = Trim( txtPassword.Text)

MsgBox("登录成功", MsgBoxStyle.SystemModal)

Response.Redirect("")

Else

MsgBox("对不起!用户名和密码不正确,请重新输入。", MsgBoxStyle.SystemModal)

End If

VB.NET怎么登录带用户名和密码的服务器,链接数据库?

做不到,access数据库是本地数据库,不支持网络访问,建议你换成sql server或者mysql之类的数据库。

注:如果一定要远程访问access也不是不行,有两种办法,一个是服务器如果跟你在同一个局域网,可以把数据库文件夹共享出来,当做共享文件访问。另一种是在那台服务器上装个sql server数据库,sql server可以创建出链接数据库链接到那个access.

本人使用VB.NET,正在做一个用户注册登录系统,但是不知该如何实现输入的账号和数据库的信息进行比对。

/// summary

/// 是否存在该记录

/// /summary

public bool Exists(string user_id)

{

StringBuilder Sql = new StringBuilder();

Sql.Append("select count(1) from USER_INFO");

Sql.Append(" where USER_ID=:user_id");

OracleParameter[] parameters = {

new OracleParameter(":user_id", OracleType.VarChar,20)

};

parameters[0].Value = user_id;

object obj = cn.Runsa.Data.OracleHelper.ExecuteScalar(ConfigurationManager.ConnectionStrings["oraclethree"].ToString(), CommandType.Text, Sql.ToString(), parameters);

if (obj == null || obj.ToString() == "0")

{

return false;

}

else

{

return true;

}


当前标题:vb.net登入系统 vbnet usercontrol
当前路径:http://scyanting.com/article/dogedeh.html