[VB.NET]帮我看看菜鸟代码??

大佬教程收集整理的这篇文章主要介绍了[VB.NET]帮我看看菜鸟代码??，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

帮我看看菜鸟代码?? 这是我新建的类DataBaseSQL Imports System Imports System.Data Imports System.Data.SqlClient Public Class DataBaseSQL Public Conn As SqlConnection Public ds As DataSet Public da As SqlDataAdapter Public Comm As SqlCommand Public Str_Con As String 打开数据库连接 Public Overloads Function DBOpen() As System.Data.SqlClient.SqlConnection Str_Con = server = ;uid=sa;pwd= ;database =gl Str_Con = Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=gl Try Conn = New SqlConnection(Str_Con) Conn.open() DBOpen = Conn Return Conn Catch ex As Exception Conn = Nothing messageBox.Show(ex.ToString) End Try End Function 关闭数据库连接 Public Overloads Function DBClose() As Boolean Try Conn.Close() Conn = Nothing Catch ex As Exception messageBox.Show(ex.ToString) End Try End Function 填充数据 Public Function DBDataGridView(ByVal str_cmd As String,ByVal datagv As DataGridView) As String Try da = New SqlDataAdapter(str_cmd,Conn) ds = New DataSet da.Fill(ds) datagv.Data@R_607_9016@e = ds.Tables Catch ex As Exception messageBox.Show(ex.ToString) End Try End Function End Class 我在页面中调用为 Public Dbsql As New DataBaseSQL Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim str As String str = SELEct * FROM tb_vi Dbsql.DBOpen() Dbsql.DBDataGridView(str,DataGridView1) Dbsql.DBClose() End Sub 为什么在DataGridView1不能显示数据了 。。。 __________________________________________________________________________ 填充数据 Public Function DBDataGridView(ByVal str_cmd As String,Conn) ds = New DataSet da.Fill(ds) datagv.Data@R_607_9016@e = ds.Tables datagv.DataBind() //LZ上了一个哦 ， C#是datagv.databind（），不知道VB是否也是这样用的！ Catch ex As Exception messageBox.Show(ex.ToString) End Try End Function End Class __________________________________________________________________________ vb.net好像不要绑定哦 __________________________________________________________________________ vb.net好像不要绑定哦 __________________________________________________________________________ Public Function DBDataGridView(ByVal str_cmd As String,ByVal datagv As DataGridView) As String//---返回值? Try da = New SqlDataAdapter(str_cmd,Conn) ds = New DataSet da.Fill(ds) datagv.Data@R_607_9016@e = ds.Tables//這句是得不到數據源的 改成: datagv.Data@R_607_9016@e=ds.Tables(0) 或者: datagv.Data@R_607_9016@e=ds.Tables datagv.DataMember=ds.Tables(0).Tablename Catch ex As Exception messageBox.Show(ex.ToString) End Try End Function __________________________________________________________________________ 楼上正确。Tables是一个众多DataTable对象的集合，Tables(0)才是一个DataTable对象。 __________________________________________________________________________

大佬总结

以上是大佬教程为你收集整理的[VB.NET]帮我看看菜鸟代码??全部内容，希望文章能够帮你解决[VB.NET]帮我看看菜鸟代码??所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。