数据库连接绑定问题，请指教！

Question

DataGrid1.DataSource = MyDr
==>
DataGrid1.DataSource = MyDr.Tables("article")try it.

Answer 1

lcyer的方法我试验了一下。结果还是一样，什么都没有！

Answer 2

或许把DataGrid1.DataSource = MyDr修改为:
Dim mySource As DataView=MyDr.Tables("article").DefaultView
DataGrid1.DataSource=mySource
或一句搞定:
DataGrid1.DataSource = MyDr.Tables("article").DefaultView希望可以 ^_^

Answer 3

完整的.VB的代码，请帮忙Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub    Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
        Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db1.mdb")
        Dim MyConn As New OleDb.OleDbConnection(ConStr)
        MyConn.Open()
        Dim Sqlstr As String = "select * from article"
        Dim MyAdp As New OleDb.OleDbDataAdapter(Sqlstr, MyConn)
        Dim MyDr As New DataSet()
        MyAdp.Fill(MyDr, "article")
        DataGrid1.DataSource = MyDr
        DataGrid1.DataBind()        MyDr.Dispose()
        MyAdp.Dispose()        MyConn.Close()
        MyConn = Nothing    End Sub    Private Sub SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs)    End Sub
End Class

Answer 4

where are you calling these statements?

Answer 5

这个是用access的库，那个库效果都是一样的。编译后页面上什么也没有！

Answer 6

add these code into Page_LoadPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       if not IsPostBack then
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("db1.mdb")
        Dim MyConn As New OleDb.OleDbConnection(ConStr)
        MyConn.Open()
        Dim Sqlstr As String = "select * from article"
        Dim MyAdp As New OleDb.OleDbDataAdapter(Sqlstr, MyConn)
        Dim MyDr As New DataSet()
        MyAdp.Fill(MyDr, "article")
        DataGrid1.DataSource = MyDr
        DataGrid1.DataBind()        MyDr.Dispose()
        MyAdp.Dispose()        MyConn.Close()
        MyConn = Nothing
       end if
    End Sub

Answer 7

saucer(思归) 大侠这是我自己的代码！！我的机器上的，是不是写的不对劲？

Answer 8

谢谢大侠saucer(思归) 果然是高手出手不同反响，解决了！！谢谢！！

Answer 9

actually, this is a simple question, from now on, always try to be clear and post more code

Answer 10

oh no~~
早知道我也说清楚一点

Answer 11

spgoal(小goal) ：
也谢谢你热情的帮忙！！我的问题多的不得了！希望你能帮忙！