一般来说：连接数据库这一块都做成DLL，这样方便
创新互联公司专注于企业网络营销推广、网站重做改版、盐城网站定制设计、自适应品牌网站建设、HTML5、商城建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为盐城等各大城市提供网站开发制作服务。
在配置文件app.config中加入
//m_SqlPath
存放SQL语句的XML文件
Dim
sqlHelper
As
New
SQLHelper("LotDBConnection")
Dim
sqlRead
As
New
ResourceHelper
Dim
ht
As
New
Hashtable
Dim
strSQL
As
String
Try
'设置SQL文参数
ht.Clear()
ht.Add(ColumnName.USER_ID.ToString,
Trim(Me.txtUserID.Text))
ht.Add(ColumnName.USER_NAME.ToString,
Trim(Me.txtUserName.Text))
'数据查询
strSQL
=
sqlRead.GetSQLSentence("GetUserList",
m_SqlPath,
ht)
ds
=
sqlHelper.ExecuteDataSet(strSQL)
If
ds.Tables(0).Rows.Count
=
Then
MessageBox
.Show
("数据不存在");
Else
'数据绑定
dgvUserMeisai.DataSource
=
ds.Tables(0)
End
If
Catch
ex
As
Exception
MessageBox
.Show
(ex.Message
);
Finally
sqlHelper
=
Nothing
sqlRead
=
Nothing
ht
=
Nothing
End
Try
可能的错误：
窗体内有其他控件，导致Me.Controls(i)并不指代文本框，仅仅是猜测
建议用Panel容器装入所有文本框，然后使用Panel1.Controls(i)
运行出错时，Try Catch或暂停查看当前 i 的值，找到出问题的字段，我估计字段名称有问题
，数据库中不存在该字段或其他原因。
'引用命名空间
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class frmDataShow
Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
'数据库连接
Dim strConnection As String = "server=waly-pc;database=Login;uid=sa;pwd=123456;"
Dim sqlConnection1 As New SqlConnection(strConnection)
Dim dataAdapter As New SqlDataAdapter
Dim dst As New DataSet
Dim dt As New DataTable
sqlConnection1.Open() '打开数据库
Dim sql As String = "select * from UserInfo"
Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
dataAdapter.SelectCommand = cmd
dataAdapter.Fill(dst, "info") '将数据库查询的数据绑定datatable
dt = dst.Tables("info")
sqlConnection1.Close() '关闭数据库
DataGridView1.AutoGenerateColumns = True '自动创建列
DataGridView1.DataSource = dt '将数据库查询的数据绑定到DataGridView1
End Sub
End Class
