|
#2
gsyou2011-09-02 13:05
|
程序代码： Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & System.Windows.Forms.Application.StartupPath & "\数据库.mdb;"
Dim con As New OleDb.OleDbConnection(strconn)
con.Open()
Dim cmd As New OleDb.OleDbCommand("alter table 表名 DROP 列名", con)
cmd.ExecuteNonQuery()
con.Close()
Dim sql As String
sql = "select * from 表名"
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(数据库DataSet, "表名")
DataGridViewX2.DataSource = 数据库DataSet.Tables(0)
增加一列我也是这样做的，为何能及时更新呢？怎么删除就不灵了呢？Dim con As New OleDb.OleDbConnection(strconn)
con.Open()
Dim cmd As New OleDb.OleDbCommand("alter table 表名 DROP 列名", con)
cmd.ExecuteNonQuery()
con.Close()
Dim sql As String
sql = "select * from 表名"
Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(数据库DataSet, "表名")
DataGridViewX2.DataSource = 数据库DataSet.Tables(0)
[ 本帖最后由 zhangzhen 于 2011-8-23 16:19 编辑 ]