大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net数据库登陆 vb 登录网站

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

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

目前创新互联建站已为数千家的企业提供了网站建设、域名、雅安服务器托管、网站改版维护、企业网站设计、阳高网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

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

基于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 里怎么新建SQL数据库里的登录,给我代码,谢谢

1.创建用户 create user 新建用户 密码

2.将登录的权限分配给新建的用户

grant login to 新建用户

我这里写的代码没有测试,需要具体测试修改一下,^_^

思路就是这样,

呵呵,希望能有帮助,^_^

如何用VB.net连接数据库做一个简单的登陆窗口?

Label1.Caption = "融通系统外挂程序"

If Dir(App.Path "/hjw.mdb") "" Then

Set mydata = OpenDatabase(App.Path "\hjw")

Set myrs1 = mydata.OpenRecordset("user", dbOpenTable)

Else

Set mydata = CreateDatabase(App.Path "\hjw", dbLangGeneral, dbVersion40)

mydata.Execute "create table ku (建立日期 text(100),库名 text(100),功能 text(100))"

mydata.Execute "create table system (店号 integer,建立日期 text(100),文件路径 text(100),软件版本 text(100),路径1 text(50),路径2 text(50),路径3 text(50),路径4 text(50))"

kuname = "system"

kugn = "文件信息"

Me.showlist1

mydata.Execute "create table user (user text(50),passwd text(50),name text(50),quanx integer)"

kuname = "user"

kugn = "用户信息"

Me.showlist1

Private Sub cmdOK_Click()

txtUserName.SetFocus

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

sql = "select * from user where user = '" txtUserName.Text "'"

'Debug.Print sql

'Set mrc = ExecuteSQL(sql, MsgText)

Set myrs2 = mydata.OpenRecordset(sql)

If myrs2.EOF = True Then

MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

If Trim(myrs2.Fields(1)) = Trim(txtPassword.Text) Then

UserName = myrs2.Fields(2)

myrs2.Close

Me.Hide

' UserName = Trim(txtUserName.Text)

'Debug.Print UserName

MDIform1.Show

Else

MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"

txtPassword.SetFocus

txtPassword.Text = ""

End If

End If

End If

End Sub

基于VB.NET的windows窗体程序如何连接sql2008数据库,制作一个登录界面

这个问题好宽泛,简单说下步骤吧:

简单来说,直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件,先写好连接字符串,然后建立连接,写好SQL语句,通过DataAdapter从数据库读取数据到Datatable。这样只有在SQL服务器中附加数据库才能实现访问。还可以使用DSN实现数据库连接,控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样。

SQL语句就是从数据库查用户名对应的密码,将数据从数据库读取到DataTable后,与用户输入的密码比对,相符则登陆成功,否则提示错误。

过程中的细节问题欢迎追问

vb.net 连接SQL数据库登录代码

问题应该出在你的查询语句的结果没有值,你用你的查询语句到SQL中是否有返回值?记得加上你的条件,另外,你语句里这一句是多余的.Dim s As Object = sComm.ExecuteScalar 以下语句测试正常 Dim myCn As New SqlClient.SqlConnection Try myCn.ConnectionString = sConnString myCn.Open() Dim mySQL As String = "SELECT * FROM ygzl" Dim sComm As New SqlClient.SqlCommand(mySQL, myCn) If sComm.ExecuteScalar Then Dim User_MainForm As New Form1 User_MainForm.Show() Else MsgBox("用户名或密码不正确,请重试!") End If Catch ex As Exception MsgBox(ex.Message) Finally myCn.Close() '关闭连接 End Try


网页标题:vb.net数据库登陆 vb 登录网站
文章地址:http://dzwzjz.com/article/hpsdpd.html
在线咨询
服务热线
服务热线:028-86922220
TOP