vb.net 使用模块连接数据库

你说这么一大篇全是业务逻辑，没说明你遇到的技术性问题在哪

成都创新互联公司从2013年创立，是专业互联网技术服务公司，拥有项目成都网站制作、成都做网站网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元濉溪做网站,已为上家服务,为濉溪各地企业和个人服务,联系电话:028-86922220

.net自带的config文件来配置连接字符串，比ini好N倍，如果你非要用ini那么自己解决问题

检测是否能连接用Connection.Open加try catch就可以

vb.net 连接sql数据库模块,如何使用？

比如有个asp.net(vb.net)连接sql server 2000数据库的连接模块(module)：

Module MdlCommon

Public txtSQL As String '存放SQL语句

Public DBSet As DataSet '查询得到的记录集

Public ErrorMsg As String '存放错误信息

Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet

Dim cnn As SqlClient.SqlConnection

Dim cmd As New SqlClient.SqlCommand()

Dim adpt As SqlClient.SqlDataAdapter

Dim rst As New DataSet()

Dim SplitSQL() As String

errMsg = ""

Try

SplitSQL = Split(strSQL)

cnn = New SqlClient.SqlConnection("data source=(local);initial catalog=urp;user id=sa;pwd=1234")

If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) Then

cmd.Connection = cnn

cmd.Connection.Open()

cmd.CommandText = strSQL

cmd.ExecuteNonQuery()

Else

adpt = New SqlClient.SqlDataAdapter(strSQL, cnn)

adpt.Fill(rst)

ExecuteSQL = rst

End If

Catch ex As Exception

errMsg = ex.Message

Finally

rst = Nothing

cnn = Nothing

End Try

End Function End Module

调用时在asp.net后台写上txtSQL="SELECT * FROM user";

DBSet=ExecuteSQL(txtSQL,ErrorMsg)就可以查询db返回结果了。

用vb.net ，后台用access 做一个登录窗口

建个模块， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection

Get

If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"

varcnn = New OleDbConnection(cnstr)

varcnn.Open()

End If

Return varcnn

End Get

登录窗体，新建一个就行了。代码Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)

cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text

Dim obj As Object = cmd.ExecuteScalar

If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then

Me.DialogResult = Windows.Forms.DialogResult.OK

Else MessageBox.Show("密码不正确！") Return

End If

End Using Me.Close()

End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.DialogResult = Windows.Forms.DialogResult.Cancel

Me.Close()

End SubEnd Class 项目属性里点查看应用程序事件，写代码Namespace My ' 以下事件可用于 MyApplication:

'

' Startup: 应用程序启动时在创建启动窗体之前引发。

' Shutdown: 在关闭所有应用程序窗体后引发。如果应用程序异常终止，则不会引发此事件。

' UnhandledException: 在应用程序遇到未处理的异常时引发。

' StartupNextInstance: 在启动单实例应用程序且应用程序已处于活动状态时引发。

' NetworkAvailabilityChanged: 在连接或断开网络连接时引发。

Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

Dim f As New LoginForm1

If Not f.ShowDialog = DialogResult.OK Then

End

End If

End Sub End ClassEnd Namespace

你测试一下吧。

vb.net中登录信息全局变量怎么设置

声明就是全局变量的，第一次赋值后，在重新赋值前，处处值相等

vb.net登陆界面中当login验证后进入main窗体时怎样关闭login窗体

您可以调用Me.Hide()方法隐藏Login窗体。

另外，如果您使用新建工程后的那个默认窗体作为Login窗体，那么您只能隐藏这个窗体或修改程序的启动对象。因为VB.net默认将创建工程时的那个默认窗体作为程序的主窗体，应用程序的主消息循环就建立在这个窗体上，如果您关闭这个窗体，那么所有的消息泵都会停止，应用程序就会退出。

我比较推荐您将Main窗体设为应用程序的主窗体，这样可以减小资源的占用，当Login完成后就可以释放Login窗体了。

另外，vb.net中的me变量相当于C语言中的this指针，它指向当前类。

推荐一个网站，这个网站有很多的教程，而且基本都是附部分代码，可能有一些对您有用的信息。

VB.NET登陆界面。要验证登录用户名和密码是否正确。登陆后有管理员和普通用户权限判断。管理员只能登录一

将用户名，密码，用户类型存在数据库中，登陆时比较输入的值是否与数据库相同即可。

标题名称：vb.net登陆模块,vb登录窗口
当前URL：http://chengdu.cdxwcx.cn/article/hooicd.html