新手学习,在网上找到的代码不执行
Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\persons.mdb;Persist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from grade"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "grade")
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class
上面是在网上找到实例,想试下。运行后没反应,也没报错。
自己添加了一个 TextBox1.Text = "OK" ,放在 da.Fill(ds, "grade") 前可以显示,
放在之后就不显示了,问题应该出在da.Fill(ds, "grade")。
百度了好久,也没弄明白。
win 7系统,VS2015, access2007