读书人

帮忙看下datagrid为啥不能显示数据

发布时间: 2014-04-18 13:01:15 作者: rapoo

帮忙看下datagrid为什么不能显示数据


Public Class Form1
Inherits System.Windows.Forms.Form

Dim objConnection As SqlConnection = New SqlConnection("server=(local);database=face360;user id=wjf;password=wjf123")
Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As DataSet = New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

objDataAdapter.SelectCommand = New SqlCommand()
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select user_id,user_pw,user_name from anyface_user"
objDataAdapter.SelectCommand.CommandType = CommandType.Text
objConnection.Open()

objDataAdapter.Fill(objDataSet, "anyface_user")

objConnection.Close()

grdAuthorTitles.DataSource = objDataSet
grdAuthorTitles.DataMember = "anyface_user"

objDataAdapter = Nothing
objConnection = Nothing

End Sub

End Class

[解决办法]
objConnection.Open()只是开启了数据库连接,但是你没有执行CommandType.Text的语句啊
[解决办法]
你的写法没有多大问题,可以出来数据,检查下你的数据库连接和SQL语句字段是否正确?

Try
Dim objConnection As SqlConnection = New SqlConnection("server=rhkf004;database=u_zl;user id=sa;password=123")
Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As DataSet = New DataSet()

objConnection.Open()
objDataAdapter.SelectCommand = New SqlCommand()
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select item_id,item_Nm from u_item"
objDataAdapter.SelectCommand.CommandType = CommandType.Text

objDataAdapter.Fill(objDataSet, "u_item")
DG.DataSource = objDataSet
DG.DataMember = "u_item"
objConnection.Close()
Catch ex As Exception
Msbox.Show(ex.ToString)
End Try


推荐VB.NET实现SqlHelper数据库操作组件
http://download.csdn.net/detail/fengqingtao2008/6515131
[解决办法]


Public Class Form1
Inherits System.Windows.Forms.Form

Dim objConnection As SqlConnection = New SqlConnection("server=(local);database=face360;user id=wjf;password=wjf123")
Dim objDataAdapter As New SqlDataAdapter()
Dim objDataSet As DataSet = New DataSet()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

objDataAdapter.SelectCommand = New SqlCommand()


objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select user_id,user_pw,user_name from anyface_user"
objDataAdapter.SelectCommand.CommandType = CommandType.Text
objConnection.Open()
Dim objdatatable As DataTable = New DataTable()'建立新表
objDataAdapter.Fill(objdatatable )
objConnection.Close()
grdAuthorTitles.DataSource = objdatatable ‘绑定数据

objDataAdapter = Nothing
objConnection = Nothing

End Sub

End Class


读书人网 >VB Dotnet

热点推荐