Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim a As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\db1.mdb;Persist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from s"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "s")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\db1.mdb;Persist Security Info=False"
cn = New OleDbConnection(cnStr)
a = a + 1
Dim m = a
Dim sql As String = "insert into s(sNo,SN,Sex,Age,Dept) values ('" & m & " ','" & "21" & " ','" & "男" & " ','" & "21" & " ','" & "呵呵" & "')"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "s")
DataGridView1.DataSource = ds.Tables(0)
cheshi() //注释
End Sub
Private Sub cheshi()
Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\db1.mdb;Persist Security Info=False"
cn = New OleDbConnection(cnStr)
Dim sql As String = "select * from s"
da = New OleDbDataAdapter(sql, cn)
ds = New DataSet
da.Fill(ds, "s")
DataGridView1.DataSource = ds.Tables(0)
End Sub
End Class
cheshi是重新读取可以。
但是不知道为什么DataGridView1.DataSource = ds.Tables(0),这个会出现错误,无法找到表0,
我的目的是更新表。但是,在刚才那个地方会直接崩溃,不知道为什么。
应该怎么修改,谢谢。