vb.net 利用datagridview显示DB数据(亲自实践)

发布时间：2020-12-16 22:26:51 所属栏目：大数据来源：网络整理

导读：1窗口form中追加控件datagridview 2窗口form程序中设定: Public Class FormDummyman '链接对象设定 Dim conn As String = "data source=服务器名称;database=数据库名称; user id=登录用户名;password=密码;" '连接 Dim connection As New SqlClient.SqlConne

1窗口form中追加控件datagridview

2窗口form程序中设定:
Public Class FormDummyman
'链接对象设定
Dim conn As String = "data source=服务器名称;database=数据库名称; user id=登录用户名;password=密码;"
'连接
Dim connection As New SqlClient.SqlConnection
'DB中指定表的内容
Dim dataSet As New DataSet
'DataTable
Dim table As New DataTable

'共通
Dim common As New Common

'画面启动
Public Sub FormDummyman_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
'判断连接状态
If connection.State = ConnectionState.Closed Then
'连接数据库
connection.ConnectionString = conn
'数据库打开
connection.Open()
End If

'取得指定表内容
dataSet = getDBTable(connection,"dummyman")

table = dataSet.Tables(0)

Me.DataGridView1.DataSource = table

Me.Show()

End Sub

'画面关闭
Private Sub FormDummyman_Closing(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Closed

If connection.State = ConnectionState.Open Then
connection.Close()
End If

dataSet = Nothing
table = Nothing

'返回formMenu窗口
FormMenu.FormMenu_Load(sender,e)
End Sub

'获取SQL Server中取得指定表的内容
Private Function getDBTable(ByVal connection As SqlClient.SqlConnection,ByVal tableName As String)

Try

Dim adapter As New SqlClient.SqlDataAdapter

Dim cmd As String = ""

'取得excel中sheet1的全部内容
cmd = "select * from [" & tableName & "]"

adapter = New SqlClient.SqlDataAdapter(cmd,connection)

Dim topics As New DataSet
adapter.Fill(topics)

Return topics
Catch Ex As Exception
MsgBox("获取SQL Server中取得指定表的内容处理出错!! getDBTable() 错误信息: " & Ex.Message)
Return New DataSet
End Try
End Function
End Class

注:连接数据时,登录用户名的创建,可以参见:

http://hi.baidu.com/bigheadsheep/blog/item/a489a217471b67e91bd57616.html

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!