[VB.NET]帮我看看菜鸟代码??
发布时间：2020-12-16 23:39:35 所属栏目：大数据 来源：网络整理
导读：帮我看看菜鸟代码?? 这是我新建的类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
|
帮我看看菜鸟代码?? 这是我新建的类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.DataSource = 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.DataSource = 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.DataSource = ds.Tables//這句是得不到數據源的 改成: datagv.DataSource=ds.Tables(0) 或者: datagv.DataSource=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对象。 __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |