vb net数据库(vbnet数据库编程例子)

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

如何做个简单的小软件呢？如果要求不高。那winform绝对是必选项。那么废话不多少了。先用winform做个简单的登录界面。一步一步的开启做软件之路。冲鸭！冲鸭！

首先呢。在做登录界面之前。我们得有数据库是不是。用来保存我们的用户信息。老样子还是用Access作数据库吧。按照下图的样子做个用户信息表。里面初步要有用户ID、用户姓名、用户账号、用户密码。以后随着功能的添加还要设置账号类型、权限等内容。目前设置这些就够了。

好了。我们数据库里就有了第一位用户张哈哈的用户信息了。下面要开始表演了。啧啧！

打开vs2019 创建新项目。语言选择Visual Basic(就是vb.net),平台选择windows。选中windows 窗体应用（.NET Framework）。如下图所示。点击下一步。

设置项目名称等内容就不说了。都是设置好后。就是下图这个样子。

然后这里就省略一些字了。经过调整大小。设置一些属性参数。把界面调整到下图的样子。

是不是有点像登录界面的样子了。winform是事件驱动的。登录界面里有两个按钮。在单击他们时就会产生点击事件。点击登录按钮就要跳转到主程序界面。点击取消按钮就要关闭登录界面。按照这个思路开始写代码。首先双击登录按钮。进入Button1_Click事件里。

按照思路开始编写程序。Button1_Click里面的代码就是这样的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim sql As String

Dim conn As New OleDbConnection

Dim PassWord As String

Dim UserName As String

UserName = TextBox1.Text.Trim

PassWord = TextBox2.Text.Trim

If UserName = "" Or PassWord = "" Then

MessageBox.Show("账号或密码不能为空")

Return

End If

conn.ConnectionString = "provider =microsoft.ace.oledb.12.0;data source=C:\Users\huanglong\Desktop\数据库.accdb"

sql = String.Format("select 用户账号,用户密码 from 用户信息表 where 用户账号='{0}' and 用户密码='{1}'", UserName, PassWord)

Dim adapter As New OleDbDataAdapter(sql, conn)

Dim dt As New DataSet

adapter.Fill(dt, "用户信息表")

Dim datareader As DataTableReader

Try

datareader = dt.Tables("用户信息表").CreateDataReader

If datareader.Read Then

If datareader.HasRows Then

MessageBox.Show("登录成功")

End If

Else

MessageBox.Show("登录失败。请输入正确账号密码")

Return

End If

Catch ex As Exception

MessageBox.Show("出现异常" & ex.Message)

End Try

Me.Hide()

End Sub

篇幅有限。代码就不详细讲了。大家应该能看懂。编译一下就是如下图这样

输入正确的数据库里的用户账号和密码。点击登录按钮就会弹出登录成功

输入错误的话会弹出登录失败界面

然后进入Button2_Click事件。就是取消按钮的点击事件。上面说了点击取消按钮整个登录界面将关闭。用Me.Close就行了。Me代表当前窗体。C#里用this这个关键词表示当前窗体。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.Close()

End Sub

这就是非常简单的登陆界面。可以在创建个窗体。当账号和密码输入正确时点击登录按钮后登录界面隐藏。界面跳转到新创建的窗体里。