在VB窗体中以GridView显示Access数据库数据 [英] Show the Access DataBase Data in GridView in VB Form

问题描述

我需要在网格视图中以VB形式显示数据库数据.....我知道如何通过DataGrid显示来自数据源的数据。但我需要显示代码中的数据。我的连接数据库代码是

  Dim  cnnOLEDB  As  新 OleDbConnection 
  Dim  cmdOLEDB  As  新 OleDbCommand 
  Dim  cmdInsert  As  新 OleDbCommand 
  Dim  cmdUpdate  As  新 OleDbCommand 
  Dim  cmdDelete  As  < span class =code-keyword>新 OleDbCommand 
  Dim  strConn ectionString =   Provider = Microsoft.Jet.OLEDB.4.0; Data Source =& System.Environment.CurrentDirectory&   \ SMMoolDB.mdb 
 cnnOLEDB.ConnectionString = strConnectionString 
 cnnOLEDB。打开（）

任何人请帮帮我.......

解决方案

试试这个：

  Dim  objda  As  OleDbDataAdapter = 新 OleDbDataAdapter 
 公共 con 作为 新 OleDb.OleDbConnection ' 创建连接对象 
  Dim  objdataset  As  DataSet = 新 DataSet 
  Dim  dv  As  DataView 
 objda.SelectCommand = 新 OleDbCommand 
 OpenConnection（） ' 首先打开数据库连接 
 objda.SelectCommand.CommandText =  < span class =code-string> Select * FROM TableName 
 objda.Fill（objdataset，  TableName）
 dv = 新 DataView（objdataset.Tables（  TableName））
 DataGridView1.DataSource = dv 
 
  Public   Sub  OpenConnection（）
 如果 con.State = ConnectionState.Open 然后 ' 检查连接状态 
 con.Close（）' < span class =code-comment>结束连接 
 结束 如果 
 con.ConnectionString =   Provider = Microsoft.Jet.OLEDB.4.0; Data Source = &安培; Application.StartupPath&   \ DataBaseName.mdb; Persist Security Info = True; 
 尝试 
 con.Open（）' 打开连接 
  Catch  ex  As 例外' 提供错误消息 
 MessageBox.Show（ 无法连接， 数据库错误，MessageBoxButtons.OK，MessageBoxIcon。 错误）
 结束 ' 关闭A.应用 
 结束 尝试 

这将有助于

GridView.DataBind方法

I need to display the DataBase Data in VB Form in Grid view ..... I know how to Display Data via DataGrid View from datasources.But i need to display data from code.My Code for Connecting Database is

Dim cnnOLEDB As New OleDbConnection
    Dim cmdOLEDB As New OleDbCommand
    Dim cmdInsert As New OleDbCommand
    Dim cmdUpdate As New OleDbCommand
    Dim cmdDelete As New OleDbCommand
    Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\SMSToolDB.mdb"
cnnOLEDB.ConnectionString = strConnectionString
        cnnOLEDB.Open()

Any One please Help me.......

解决方案

Try this one :

Dim objda As OleDbDataAdapter= New OleDbDataAdapter
        Public con As New OleDb.OleDbConnection             'Creating Connection object       
        Dim objdataset As DataSet = New DataSet
        Dim dv As DataView
        objda.SelectCommand = New OleDbCommand
        OpenConnection()                                    'Open your DataBase Connection First
        objda.SelectCommand.CommandText = "Select * FROM TableName"
        objda.Fill(objdataset, "TableName")
        dv = New DataView(objdataset.Tables("TableName"))
        DataGridView1.DataSource = dv

Public Sub OpenConnection()
        If con.State = ConnectionState.Open Then            'Checking Connection State
            con.Close()                                     'Closing Connection
        End If
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBaseName.mdb;Persist Security Info=True;"
        Try
            con.Open()                                      'Opening Connection
        Catch ex As Exception                               'Providing Error Message
            MessageBox.Show("Uable to Connect", "Database Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End                                             'Closing Application
        End Try

This will helps
GridView.DataBind Method

这篇关于在VB窗体中以GridView显示Access数据库数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！