求VB.NET 连接SQL数据库最简练的语句

[蔡健常熟]

要求：显示一个SQL表数据到DataGrid,用最少的语句实现，要从定义连接开始，语句越少得分越高(代码成功的话),控件只用一个GataGrid.

[essenza]

Public Function FillDataGridview(ByVal ObjString As Object, ByVal SqlString As String)
Using conn As New OleDb.OleDbConnection(SQL2005_String)
Try
conn.Open()
Dim MyDataSet As DataSet = New DataSet()
Dim MyOleDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
MyOleDataAdapter.SelectCommand = New OleDb.OleDbCommand(SqlString, conn)
MyOleDataAdapter.Fill(MyDataSet)
ObjString.DataSource = MyDataSet.Tables(0)

MyOleDataAdapter.Dispose()
MyDataSet.Dispose()
Catch ex As Exception ' catches any error
MessageBox.Show(ex.Message.ToString())
Finally
conn.Dispose()
End Try
End Using
Return 0
End Function

Public Function FillDataGridview(ByVal ObjString As Object, ByVal SqlString As String)
        Using conn As New OleDb.OleDbConnection(SQL2005_String)
            Try
                conn.Open()
                Dim MyDataSet As DataSet = New DataSet()
                Dim MyOleDataAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
                MyOleDataAdapter.SelectCommand = New OleDb.OleDbCommand(SqlString, conn)
                MyOleDataAdapter.Fill(MyDataSet)
                ObjString.DataSource = MyDataSet.Tables(0)

                MyOleDataAdapter.Dispose()
                MyDataSet.Dispose()
            Catch ex As Exception ' catches any error
                MessageBox.Show(ex.Message.ToString())
            Finally
                conn.Dispose()
            End Try
        End Using
        Return 0
    End Function

[lingdu1225]

LS

[hzybc]

Dim CN As New SqlConnection
Dim CnStr As String
CnStr = "Server=192.168.1.100;DataBase=DhFyGL;Uid=DhFy;Pwd=123456"
CN.ConnectionString = CnStr
CN.Open()

Dim Sql1 As String
Sql1 = " Select Col1,Col2,Col3 from dhfyb where " & CxTj & ""
Dim Cmd As SqlCommand
Dim Ds As New DataSet
Dim DA As New SqlDataAdapter

Cmd = CN.CreateCommand
Cmd.CommandText = Sql1
If Ds.Tables.Contains("CX_TJ") = True Then Ds.Tables.Remove("CX_TJ")
DA.SelectCommand = Cmd
DA.Fill(Ds, "CX_TJ")
DataGridView3.DataSource = Nothing
DataGridView3.DataSource = Ds.Tables("CX_TJ")

[liujiayu10]

Dim Conn As New SqlConnection("Data Source=(local);Initial Catalog=northwind;User ID=sa;Password=1234")
Dim myDa As New SqlDataAdapter("Select * from Customers", Conn)
Dim myDs As New DataSet
myDa.Fill(myDs, "tmp")
myDa.Dispose()

DataGridView1.DataSource = myDs.Tables(0).DefaultView

[liujiayu10]

因为VS2005和VS2003中的表格控件不同，所以，在2005中就是上面那样，在2003中就应该是

DataGrid1.DataSource = myDs.Tables(0).DefaultView

[lovehongyun]

Public Function SelectRows( _
    ByVal dataSet As DataSet, ByVal connectionString As String, _
    ByVal queryString As String) As DataSet

    Using connection As New SqlConnection(connectionString)
        Dim adapter As New SqlDataAdapter()
        adapter.SelectCommand = New SqlCommand( _
            queryString, connection)
        adapter.Fill(dataSet)
        Return dataSet
    End Using
End Function

DataGrid1.DataSource = SelectRows(0).DefaultView 

[blues_zhao_yang]

        Dim SqlConn As New SqlConnection
        Dim SqlDa As New SqlDataAdapter
        Dim Dt As New DataTable
        SqlConn.ConnectionString = "data source=127.0.0.1;database=数据库名;uid=sa;pwd=;"
        SqlDa.SelectCommand = New SqlCommand
        SqlDa.SelectCommand.Connection = SqlConn
        SqlDa.SelectCommand.CommandText = "select * from [表]"
        SqlConn.Open()
        SqlDa.Fill(Dt)
        SqlConn.Close()
         DataGrid1.DataSource = Dt

[雾里看花]

Dim DbConnAs New SqlConnection
Dim DbDataAdapter As New SqlDataAdapter
Dim DbDataSet As New DataTable
DbConn.ConnectionString = "data source=127.0.0.1;database=数据库名;uid=sa;pwd=;"
DbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(strSQL, DbConn)
DbDataSet = New System.Data.DataSet
DbDataAdapter.Fill(DbDataSet, "OpenTable")
DataGridView1.DataSource = DbDataSet.Tables("OpenTable")