datagridview 重设数据源问题 - 编程论坛

#2

不说也罢2010-04-18 16:02

楼主是在设计是为DataGridView1绑定了数据源？
建议使用代码动态绑定

#3

shenhaoli2010-04-18 18:17

只有本站会员才能查看附件，请登录

是动态绑定的,我刚从VB6.0转过来，为了熟悉数据库，做了这样一个小程序,界面如上
单击“连接数据库”则显示数据所含表
单击“打开并绑定表”则显示包含字段名称并绑定到datagridview1
可以通过包含字段查看，该字段的类型！
现在其它功能都成了，只是更改表后，datagridview1数据不同步
Public ds As New Data.DataSet()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
        Dim dbaname As String = txtdba.Text '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim tabname As String = cmbtable.Text
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from " & tabname
        conn.Open()
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)

        ds.Clear()
        da.Fill(ds, "pylj")
        DataGridView1.DataSource = Nothing
        Dim k As Integer = DataGridView1.ColumnCount - 1
        For j As Integer = 0 To k
            DataGridView1.Columns.Clear()
            DataGridView1.Columns.Remove(DataGridView1.SelectedColumns(j))
        Next
        DataGridView1.Refresh()
        MsgBox("d")
        DataGridView1.DataSource = ds.Tables(0)

        Dim n As Integer = ds.Tables(0).Columns.Count - 1
        Dim y As Integer = cmbfiled.Items.Count - 1
        For x As Integer = 0 To y

            cmbfiled.Items.Clear()
        Next
        cmbfiled.Refresh()

        For i As Integer = 0 To n
            cmbfiled.Items.Add(ds.Tables(0).Columns(i).ColumnName)

        Next

        cmbfiled.SelectedIndex = 0
    End Sub
这是打开表并绑定的代码，为了方便，把ds数据集设成全局变量
请高手指点

[ 本帖最后由 shenhaoli 于 2010-4-18 18:19 编辑 ]

#4

不说也罢2010-04-18 18:20

你既在学习，传项目上来，我给你看看，将你觉得有问题的地方做个注释标记

#5

不说也罢2010-04-18 18:23

在设计状态下，不要给DataGridView1绑定数据源

For j As Integer = 0 To k
DataGridView1.Columns.Clear()
DataGridView1.Columns.Remove(DataGridView1.SelectedColumns(j))
Next
你先把这几行代码注释掉，然后试试

#6

shenhaoli2010-04-18 18:33

回复楼主 shenhaoli

我把我的项目传上来，frm_data
运行时：数据库操作——》access

只有本站会员才能查看附件，请登录

#7

不说也罢2010-04-18 18:43

楼主的工程我看了，运行时没什么问题啊
楼主要问的是不是单击“包含表”的右边下拉框时，DataGridView1数据不同步呢？

#8

shenhaoli2010-04-18 18:52

是的，然后单击“打开表并绑定”datagridview1 同步有问题

[ 本帖最后由 shenhaoli 于 2010-4-18 18:53 编辑 ]

#9

不说也罢2010-04-18 18:57

回复 8楼 shenhaoli

我这里运行没问题，请将你说的问题详细描述一下
这里的数据与表都相符的

#10

shenhaoli2010-04-18 19:07

图1先打开cyc表，图2是打开pylj表，datagridview1里仍有cyc表里的列

只有本站会员才能查看附件，请登录

#11

不说也罢2010-04-18 20:00

吃晚饭，迟了

程序代码：

Public Class frm_data
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
        Dim ds As New Data.DataSet()
        Dim dbaname As String = txtdba.Text '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim tabname As String = cmbtable.Text
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from " & tabname
        conn.Open()
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)

        ds.Clear()
        da.Fill(ds, "pylj")
        DataGridView1.DataSource = Nothing
        Dim k As Integer = DataGridView1.ColumnCount - 1

        DataGridView1.DataSource = ds.Tables(0)
        DataGridView1.Refresh()
        Dim n As Integer = ds.Tables(0).Columns.Count - 1
        Dim y As Integer = cmbfiled.Items.Count - 1
        For x As Integer = 0 To y

            cmbfiled.Items.Clear()
        Next
        cmbfiled.Refresh()

        For i As Integer = 0 To n
            cmbfiled.Items.Add(ds.Tables(0).Columns(i).ColumnName)

        Next
        cmbfiled.SelectedIndex = 0
        conn.Close()
    End Sub

    Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        On Error Resume Next
        MsgBox(DataGridView1.CurrentCell.Value.ToString)
    End Sub

    Private Sub frm_data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtdba.Text = "\data\py.mdb"
    End Sub

    Private Sub butconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butconn.Click
        cmbtable.Items.Clear()
        For i As Int16 = 0 To GetAllTableName.Count - 1
            cmbtable.Items.Add(GetAllTableName.Item(i).ToString)
        Next

        cmbtable.SelectedIndex = 0

    End Sub

    Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim Rs As New ADODB.Recordset()
        Dim dbaname As String = txtdba.Text  '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim conn As New ADODB.Connection
        conn.Open(connStr)
        Rs = conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not rs.EOF
            If rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(rs("TABLE_NAME").Value)
            End If
            rs.MoveNext()
            If rs.EOF Then Exit Do
        Loop
        Rs.Close()
        Rs = Nothing
        Return t
    End Function

    Private Sub cmbtable_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtable.SelectedIndexChanged
        Button1_Click(sender, e)
    End Sub

End Class

#12

不说也罢2010-04-18 20:11

另外，创建的对象应当及时关闭或销毁以释放内存，我并没有加入这些代码，养成良好的习惯才好

#13

shenhaoli2010-04-18 20:53

谢谢热心帮助

问题出在Public ds As New Data.DataSet() 上了，是吗？
现在cmbfiled_SelectedIndexChanged,显示该字段的数据类型，现在需要重新打开数据表了，这种方法我实现了
Public Class frm_data
    'Private ds As New Data.DataSet()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click
        Dim ds As New Data.DataSet()
        Dim dbaname As String = txtdba.Text '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim tabname As String = cmbtable.Text
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from " & tabname
        conn.Open()
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)

        ds.Clear()
        da.Fill(ds, "pylj")
        DataGridView1.DataSource = Nothing
        Dim k As Integer = DataGridView1.ColumnCount - 1
        'For j As Integer = 0 To k
        'DataGridView1.Columns.Clear()
        ' DataGridView1.Columns.Remove(DataGridView1.SelectedColumns(j))
        'Next
        DataGridView1.Refresh()
        MsgBox("d")
        DataGridView1.DataSource = ds.Tables(0)
        DataGridView1.Refresh()
        Dim n As Integer = ds.Tables(0).Columns.Count - 1
        Dim y As Integer = cmbfiled.Items.Count - 1
        For x As Integer = 0 To y

            cmbfiled.Items.Clear()
        Next
        cmbfiled.Refresh()

        For i As Integer = 0 To n
            cmbfiled.Items.Add(ds.Tables(0).Columns(i).ColumnName)

        Next

        cmbfiled.SelectedIndex = 0
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        MsgBox(DataGridView1.CurrentCell.Value)
    End Sub

    Private Sub frm_data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtdba.Text = "\data\py.mdb"
    End Sub

    Private Sub butconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butconn.Click
        cmbtable.Items.Clear()
        For i As Int16 = 0 To GetAllTableName.Count - 1
            cmbtable.Items.Add(GetAllTableName.Item(i).ToString)
            'MsgBox(GetAllTableName.Item(i).ToString)
        Next

        cmbtable.SelectedIndex = 0

    End Sub


    Private Sub cmbfiled_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbfiled.SelectedIndexChanged
        Dim i As Integer = cmbfiled.SelectedIndex
        Dim ds As New Data.DataSet()
        Dim dbaname As String = txtdba.Text '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim tabname As String = cmbtable.Text
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from " & tabname
        conn.Open()
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)

        ds.Clear()
        da.Fill(ds, "pylj")
        txtfieldtype.Text = ds.Tables(0).Columns(i).DataType.Name
    End Sub

    Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim Rs As New ADODB.Recordset()
        Dim dbaname As String = txtdba.Text  '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim conn As New ADODB.Connection
        conn.Open(connStr)
        Rs = conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not rs.EOF
            If rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(rs("TABLE_NAME").Value)
            End If
            rs.MoveNext()
            If rs.EOF Then Exit Do
        Loop
        Rs.Close()
        Rs = Nothing
        Return t
    End Function

End Class
现在我想把ds 定义成全局的，这样一句
txtfieldtype.Text = ds.Tables(0).Columns(i).DataType.Name
就可以
--------
现在我发现问题是ds里面数据没有清除，这个应该怎么办？？

#14

shenhaoli2010-04-18 21:13

感谢“不说也罢”，问题成功解决，现把改正后代码同大家一起分享

程序代码：

Imports System.Data.SqlClient
Imports System.Data
Public Class frm_data
    Private ds As New Data.DataSet()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdopen.Click

        Dim dbaname As String = txtdba.Text '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim tabname As String = cmbtable.Text
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(connStr)
        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
        Dim sql As String = "select * from " & tabname
        conn.Open() '打开连接
        cmd.Connection = conn
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, conn)
        ds.Tables.Clear()
        da.Fill(ds, "pylj")
        DataGridView1.DataSource = ds.Tables(0) '更换datagridview1的数据源
        'DataGridView1.Refresh() '这句不要datagridview1也可更新
        '--------------
        '获取表所含字段并更新至cmbfiled
        Dim n As Integer = ds.Tables(0).Columns.Count - 1
        cmbfiled.Items.Clear()
        For i As Integer = 0 To n
            cmbfiled.Items.Add(ds.Tables(0).Columns(i).ColumnName)
        Next
        cmbfiled.SelectedIndex = 0
    End Sub
    Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        MsgBox(DataGridView1.CurrentCell.Value)
    End Sub
    Private Sub frm_data_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtdba.Text = "\data\py.mdb"
    End Sub
    Private Sub butconn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butconn.Click
        cmbtable.Items.Clear()
        '显示数据所含表
        For i As Int16 = 0 To GetAllTableName.Count - 1
            cmbtable.Items.Add(GetAllTableName.Item(i).ToString)
        Next
        cmbtable.SelectedIndex = 0
    End Sub
    Private Sub cmbfiled_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbfiled.SelectedIndexChanged
        Dim i As Integer = cmbfiled.SelectedIndex
        '显示所选字段数据类型
        txtfieldtype.Text = ds.Tables(0).Columns(i).DataType.Name
    End Sub

    Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim Rs As New ADODB.Recordset()
        Dim dbaname As String = txtdba.Text  '指定数据库文件路径及名称
        Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & CurDir() & dbaname
        Dim conn As New ADODB.Connection
        conn.Open(connStr)
        Rs = conn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not Rs.EOF
            If Rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(Rs("TABLE_NAME").Value)
            End If
            Rs.MoveNext()
            If Rs.EOF Then Exit Do
        Loop
        Rs.Close()
        Rs = Nothing
        Return t
    End Function

End Class