[英]Datagridview save changes to Database vb.net
Hello i've a databse that i load to Datagridview in vb.net application. 您好我是一个数据库,我加载到vb.net应用程序中的Datagridview。 it loads fine, however when i try to save the date it doesn't work. 它加载正常,但是当我尝试保存日期时它不起作用。 here is the code 这是代码
Private myConString As String
Private con As OleDbConnection = New OleDbConnection
Private Dadapter As OleDbDataAdapter
Private DSet As DataSet
Private DSet2 As DataSet
Private ConCMD As OleDb.OleDbCommand
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
myConString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=e:\Database31.accdb"
con.ConnectionString = myConString
con.Open()
Dadapter = New OleDbDataAdapter("select * from Table1", con)
DSet = New DataSet
Dadapter.Fill(DSet, "Table1")
DataGridView1.DataSource = DSet.Tables("Table1")
con.Close()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
con.Open()
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()
End Sub
Update requires a valid InsertCommand when passed DataRow collection with new rows. 当使用新行传递DataRow集合时,更新需要有效的InsertCommand。 what am i supposed to do? 我应该做些什么?
the accessdatabase 3 colmuns and ID is primary key ID Field1 Field2 accessdatabase 3 colmuns和ID是主键ID Field1 Field2
So you must define an InsertCommand
for you DataAdapter
因此,您必须为DataAdapter
定义InsertCommand
Side-note: The line DSet.AcceptChanges()
is redundant since the previous line Dadapter.Update
will call AcceptChanges
implicitely. 注意: DSet.AcceptChanges()
是多余的,因为前一行Dadapter.Update
将隐含地调用AcceptChanges
。
You should use using-statement
for anything implementing IDisposable
like a Connection. 你应该使用using-statement
来实现像Connection这样的IDisposable
。 That would call Dispose
(which closes the connection) implicitely even in case of an exception. 即使在异常的情况下,也会隐含地调用Dispose
(它会关闭连接)。
So replace: 所以替换:
con.Open()
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()
with 同
Using con = New OleDbConnection(myConString)
con .Open()
Dadapter.Update(DSet, "Table1")
End Using
You need to read back the dataset from the datagrid 您需要从数据网格中读回数据集
con.Open()
DSet = DataGridView1.DataSource '<<<<<<<<<<<<<<<<<<<<<<<
Dadapter.Update(DSet, "Table1")
DSet.AcceptChanges()
con.Close()
My VB.NET code for the 4 type of databases (update information from DataGridView to Database) 我的4种数据库的VB.NET代码(从DataGridView到数据库的更新信息)
Private Sub sqldb_savedata()
Dim connectionString As String = "Server='" & sql_server & "';Database='" & sql_database & "';User Id='" & sql_user & "';Password='" & sql_pass & "'"
Dim sqlCon = New SqlConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New SqlDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New SqlCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub mysqldb_savedata()
Dim connectionString As String = "Server='" & mysql_server & "';Database='" & mysql_database & "';User Id='" & mysql_user & "';Password='" & mysql_pass & "'"
Dim sqlCon = New MySqlConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New MySqlDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New MySqlCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub firebirddb_savedata()
Dim connectionString As String = "Database='" & firebird_server & "';User=SYSDBA;Password=masterkey;Dialect=3;ServerType=1"
Dim sqlCon = New FirebirdSql.Data.FirebirdClient.FbConnection(connectionString)
If (sqlCon.State = ConnectionState.Closed) Then sqlCon.Open()
Dim SQLAdapter = New FirebirdSql.Data.FirebirdClient.FbDataAdapter("SELECT * FROM clinics", sqlCon)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New FirebirdClient.FbCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
Private Sub localdb_savedata()
DBconn = New SqlCeConnection("Data Source=Data Source=|DataDirectory|\Database.sdf")
If (DBconn.State = ConnectionState.Closed) Then DBconn.Open()
Dim SQLAdapter = New SqlCeDataAdapter("SELECT * FROM clinics", DBconn)
Dim SQLDataSet As New DataSet
Dim myTable = DataGridViewClinic.DataSource
Dim cmdbuilder As New SqlCeCommandBuilder(SQLAdapter)
SQLAdapter.Update(myTable, "clinics")
MsgBox("Updated!", MsgBoxStyle.OkOnly, "")
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.