高手请帮小弟解决下，vb.net2005 datagridview连接数据库

高手请帮小弟解决下，vb.net2005 datagridview连接数据库，本人刚学，还请高手们指点。

22 个解决方案

#1

'将数据库DB.mdb放在Debug目录下：
Imports System.Data.OleDb
Public Class Form1
    Dim MyConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DB.mdb")
    Dim MyCommand As OleDbCommand
    Dim dbset As New DataSet
    Dim dataA As OleDbDataAdapter
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyConnection.Open()
        MyCommand = New OleDbCommand("Select * from BOOK ", MyConnection)
        dataA = New OleDbDataAdapter(MyCommand)
        dataA.Fill(dbset, "BOOK")
        DataGridView1.DataSource = dbset.Tables("BOOK")
        MyConnection.Close()
    End Sub
 end class

#2

嗯，可以用代码，就是上面这位写的。也可以自己拖个datagridview。然后配置它的datasource.这是根据配置界面可以完成。。

#3

Using cn As New SqlConnection("")
    cn.Open()
    Dim ds As New DataSet()
    Dim cmd As New SqlCommand("select * from Tb", cn)
    Dim da As New SqlDataAdapter(cmd)
    Dim builder As New SqlCommandBuilder(da)
    da.Fill(ds, "Test")
    Me.dataGridView1.DataSource = ds.Tables(0).DefaultView
End Using

#4

大家都给了你比较完整的代码，其实简单的就是分为二个部分，一部分将数据读取出来放到一个dataTable中，第二部分就是直接绑定至gridview上。

#5

学习ing

#6

每天回帖即可获得10分可用分！

#7

 
 
 学习+关注！

#8

学习中。。。。。。。。

#9

            SqlCommand cmd = conn.CreateCommand();
            cmd.CommandText = "Select * from film_detail order by filmName ";
            SqlDataReader dr = cmd.ExecuteReader();
            DataTable dt = new DataTable();
            dt.Load(dr);
            gridview.DataSource =  dt;
            gridview.DataBind();
            dr.Close();
            conn.Close();
             这个一定好使,我刚用完.

#10

VB.NET中的代码: 试试吧！

Imports system.data
imports System.Data.SqlClient
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   dim con as new sqlconnection("server=(local);uid=sa,pwd=sa;database=pubs")
   dim cad as new sqldataadapter("select * from authors",con)
   dim bset as new dataset
   cad.fill(bset,"authors")
   me.datagridview1.datasource=bset.Tables("authors").DefaultView
   bset.Dispose()
   cad.Dispose()
End Sub

end Class

#11

其实你该先看书。。。。。

#12

ExcelWord正解

#13

接份，就不多说

#14

学习...

#15

给的源码貌似都能正常运行的。

#16

来看一下

#17

xuexi

#18

正在寻找好方法！！

#19

我自己写的连接数据库的dll

这个是oledb

'************************************************操作OLE类型数据********************************************************
'*                                                                                                                     *
'* 函数： 1.GetTable：传递一个SQL语句，以数据表的形式返回查询结果                                                      *
'*        2.GetValue：传递一个SQL语句，返回查询结果的第一个字段值                                                      *
'*        3.IsExists：根据提供的SQL语句判断该数值是否存在，返回结果为布尔型                                            *
'*        4.UpdateTable：根据提供的SQL语句对指定的数据表记录进行插入，更新和删除，成功返回True，失败返回False          *
'*        5.BatchUpdateTable：根据提供的SQL语句数组，对数据库的表记录进行批量操作                                      *
'*                                                                                                                     *
'***********************************************************************************************************************

Imports System.Data.OleDb

Public Enum TranType
    Access = 0
    Excel = 1
    DBF = 2
End Enum

Public Class OLE

#Region "声明"

    Private oleconn As OleDbConnection
    Private oleadapter As OleDbDataAdapter
    Private olecommand As OleDbCommand
    Private stroleconn As String = ""

#End Region

#Region "方法和函数"

    Sub New(ByVal DataType As TranType, ByVal SourcePath As String, Optional ByVal PassWd As String = "")
        Select Case DataType
            Case TranType.Excel _
            : stroleconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourcePath & _
            ";Extended Properties='Excel 8.0'"
            Case TranType.Access _
            : stroleconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourcePath & _
            ";jet oledb:database Password=" & PassWd
            Case TranType.DBF _
            : stroleconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourcePath & _
            ";Extended Properties=dBASE IV;User ID=Admin;Password="
        End Select
    End Sub

    'GetTable
    Public Function GetTable(ByVal strSql As String) As DataTable
        Try
            Dim tmptb As New DataTable
            oleconn = New OleDb.OleDbConnection(stroleconn)
            oleconn.Open()
            oleadapter = New OleDbDataAdapter(strSql, oleconn)
            oleadapter.Fill(tmptb)
            oleadapter.Dispose()
            oleconn.Close()
            Return tmptb
        Catch ex As Exception
            oleadapter.Dispose()
            oleconn.Close()
            Throw ex
            Return Nothing
        End Try
    End Function

    'GetValue
    Public Function GetValue(ByVal strSql As String) As String
        Try
            Dim tmptb As New DataTable
            oleconn = New OleDb.OleDbConnection(stroleconn)
            oleconn.Open()
            oleadapter = New OleDbDataAdapter(strSql, oleconn)
            oleadapter.Fill(tmptb)
            oleadapter.Dispose()
            oleconn.Close()
            If Not tmptb.Rows.Count < 1 Then
                Return tmptb.Rows(0).Item(0).ToString.Trim
            Else
                Return ""
            End If
        Catch ex As Exception
            oleadapter.Dispose()
            oleconn.Close()
            Throw ex
            Return ""
        End Try
    End Function

    'IsExists
    Public Function IsExists(ByVal strSql As String) As Boolean
        Try
            Dim tmptb As New DataTable
            oleconn = New OleDb.OleDbConnection(stroleconn)
            oleconn.Open()
            oleadapter = New OleDbDataAdapter(strSql, oleconn)
            oleadapter.Fill(tmptb)
            oleadapter.Dispose()
            oleconn.Close()
            If tmptb.Rows.Count < 1 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            oleadapter.Dispose()
            oleconn.Close()
            Throw ex
            Return False
        End Try
    End Function

    'UpdateTable
    Public Function UpdateTable(ByVal strSql As String) As Boolean
        Try
            oleconn = New OleDb.OleDbConnection(stroleconn)
            oleconn.Open()
            olecommand = New OleDbCommand(strSql, oleconn)
            olecommand.ExecuteNonQuery()
            olecommand.Dispose()
            oleconn.Close()
            Return True
        Catch ex As Exception
            olecommand.Dispose()
            oleconn.Close()
            Throw ex
            Return False
        End Try
    End Function

    'BatchUpdateTable
    Public Function BatchUpdateTable(ByVal strSql() As String) As Boolean
        Dim Trans As OleDbTransaction = Nothing
        Try
            oleconn = New OleDb.OleDbConnection(stroleconn)
            oleconn.Open()
            olecommand = New OleDbCommand
            olecommand.CommandType = CommandType.Text
            olecommand.Connection = oleconn
            Trans = oleconn.BeginTransaction
            olecommand.Transaction = Trans
            For i As Integer = 0 To strSql.Length - 1
                If Not String.IsNullOrEmpty(strSql(i)) Then
                    olecommand.CommandText = strSql(i).ToString
                    olecommand.ExecuteNonQuery()
                End If
            Next
            Trans.Commit()
            Trans.Dispose()
            olecommand.Dispose()
            oleconn.Close()
            Return True
        Catch ex As Exception
            Trans.Rollback()
            Trans.Dispose()
            olecommand.Dispose()
            oleconn.Close()
            Throw ex
            Return False
        End Try
    End Function

#End Region



End Class

#20

这个是SQL

'********************************************与SQL服务器交互数据********************************************************
'*                                                                                                                     *
'* 函数： 1.GetTable：传递一个SQL语句，以数据表的形式返回查询结果                                                      *
'*        2.GetValue：传递一个SQL语句，返回查询结果的第一个字段值                                                      *
'*        3.IsExists：根据提供的SQL语句判断该数值是否存在，返回结果为布尔型                                            *
'*        4.UpdateTable：根据提供的SQL语句对指定的数据表记录进行插入，更新和删除，成功返回True，失败返回False          *
'*        5.BatchUpdateTable：根据提供的SQL语句数组，对数据库的表记录进行批量操作                                      *
'*                                                                                                                     *
'***********************************************************************************************************************

Imports System.Data.SqlClient

Public Class SQL

#Region "声明"

    Dim Conn As SqlConnection
    Dim Adapter As SqlDataAdapter
    Dim Command As SqlCommand
    Private strConnect As String = ""

    Sub New(ByVal SrvName As String, ByVal DataBaseName As String, ByVal UserID As String, ByVal PassWd As String, _
    Optional ByVal Cnt As Integer = 30)
        strConnect = "Server=" & SrvName & ";database=" & DataBaseName & ";user id=" & UserID & _
        ";pwd=" & PassWd & ";Connect Timeout=" & Cnt.ToString
        Try
            Conn = New SqlConnection(strConnect)
        Catch ex As Exception
            Throw ex
            Return
        End Try
    End Sub

#End Region


#Region "方法和函数"

    'GetTable
    Public Function GetTable(ByVal strSql As String) As DataTable
        Try
            Dim tmptb As New DataTable
            Conn = New SqlConnection(strConnect)
            Conn.Open()
            Adapter = New SqlDataAdapter(strSql, Conn)
            Adapter.Fill(tmptb)
            Adapter.Dispose()
            Conn.Dispose()
            Return tmptb
        Catch ex As Exception
            Adapter.Dispose()
            Conn.Close()
            Throw ex
            Return Nothing
        End Try
    End Function

    'GetValue
    Public Function GetValue(ByVal strSql As String) As String
        Try
            Dim tmptb As New DataTable
            Conn = New SqlConnection(strConnect)
            Conn.Open()
            Adapter = New SqlDataAdapter(strSql, Conn)
            Adapter.Fill(tmptb)
            Adapter.Dispose()
            Conn.Close()
            Return tmptb.Rows(0).Item(0).ToString.Trim
        Catch ex As Exception
            Adapter.Dispose()
            Conn.Close()
            Throw ex
            Return ""
        End Try
    End Function

    'IsExists
    Public Function IsExists(ByVal strSql As String) As Boolean
        Try
            Dim tmptb As New DataTable
            Conn = New SqlConnection(strConnect)
            Conn.Open()
            Adapter = New SqlDataAdapter(strSql, Conn)
            Adapter.Fill(tmptb)
            Adapter.Dispose()
            Conn.Close()
            If tmptb.Rows.Count < 1 Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            Adapter.Dispose()
            Conn.Close()
            Throw ex
            Return False
        End Try
    End Function

    'UpdateTable
    Public Function UpdateTable(ByVal strSql As String) As Boolean
        Try
            Conn = New SqlConnection(strConnect)
            Command = New SqlCommand(strSql, Conn)
            Command.ExecuteNonQuery()
            Command.Dispose()
            Conn.Close()
            Return True
        Catch ex As Exception
            Command.Dispose()
            Conn.Close()
            Throw ex
            Return False
        End Try
    End Function

    'BatchUpdateTable
    Public Function BatchUpdateTable(ByVal strSql() As String) As Boolean
        Dim SqlTran As SqlTransaction = Nothing
        Try
            Conn = New SqlConnection(strConnect)
            Command = New SqlCommand
            Command.Connection = Conn
            Command.CommandType = CommandType.Text
            SqlTran = Conn.BeginTransaction
            Command.Transaction = SqlTran
            For i As Integer = 0 To strSql.Length - 1
                If Not String.IsNullOrEmpty(strSql(i)) Then
                    Command.CommandText = strSql(i).ToString
                    Command.ExecuteNonQuery()
                End If
            Next
            SqlTran.Commit()
            Command.Dispose()
            SqlTran.Dispose()
            Conn.Close()
            Return True
        Catch ex As Exception
            SqlTran.Rollback()
            Command.Dispose()
            SqlTran.Dispose()
            Conn.Close()
            Throw ex
            Return False
        End Try
    End Function

#End Region


End Class

#21

向牛X 人 学习!!

#22

建议楼主在百度搜索“datagridview的使用教程”，多看点基础方面的书，才能用得得手应手