Dim frmM As New frmStatus
Dim SelectCommand As String = "SELECT id,name FROM status"
Dim InsertCommand = "INSERT INTO status ( name) VALUES (?)"
Dim UpdateCommand = "UPDATE status SET name = ? WHERE id = ?"
Dim DeleteCommand = "DELETE FROM status WHERE id = ?"
frmM.DA = New OdbcDataAdapter
frmM.DS = New DataSet
Add_Connect_updated(frmM.DataGridView1, frmM.DA, frmM.DS, SelectCommand, InsertCommand, UpdateCommand, DeleteCommand)
frmM.ShowDialog()
frmM = NothingPublic Class frmStatus
Public DA As OdbcDataAdapter
Public DS As DataSet
Private Sub frmStatus_Closed(sender As Object, e As EventArgs) Handles Me.Closed
'ПРОБОВАЛ ТАК ДОБАВИТЬ ВНОВЬ ДЕЙСТВИЯ
'DA.SelectCommand = New OdbcCommand("SELECT id,name FROM status")
'DA.InsertCommand = New OdbcCommand("INSERT INTO status ( name) VALUES (?)")
'DA.UpdateCommand = New OdbcCommand("UPDATE status SET name = ? WHERE id = ?")
'DA.DeleteCommand = New OdbcCommand("DELETE FROM status WHERE id = ?")
'ИЛИ ТАК - ДЕЙСТВИЯ ДОБАВЛЯЮТСЯ, ПРИ ПРОХОЖДЕНИИ ПО ЭТИМ СТРОКАМ ОШИБОК НЕ ВЫЛЕЗАЕТ, НО В БД - ИЗМЕНЕНИЯ НЕ ПРОИСХОДЯТ
'Dim dbCommandBuilder As New OdbcCommandBuilder(DA)
'DA.InsertCommand = dbCommandBuilder.GetInsertCommand()
'DA.UpdateCommand = dbCommandBuilder.GetUpdateCommand()
'DA.DeleteCommand = dbCommandBuilder.GetDeleteCommand()
DA.Update(DS, "table")
DS.Tables("table").AcceptChanges()
End Sub
End ClassDim frmM As New frmStatus
Dim SelectCommand As String = "SELECT id,name FROM status"
Dim InsertCommand = "INSERT INTO status ( name) VALUES (?)"
Dim UpdateCommand = "UPDATE status SET name = ? WHERE id = ?"
Dim DeleteCommand = "DELETE FROM status WHERE id = ?"
frmM.DA = New OdbcDataAdapter
frmM.DS = New DataSet
Add_Connect_updated(frmM.DataGridView1, frmM.DA, frmM.DS, SelectCommand, InsertCommand, UpdateCommand, DeleteCommand)
frmM.ShowDialog()
frmM = NothingPublic Class frmStatus
Public DA As OdbcDataAdapter
Public DS As DataSet
Private Sub frmStatus_Closed(sender As Object, e As EventArgs) Handles Me.Closed
'ПРОБОВАЛ ТАК ДОБАВИТЬ ВНОВЬ ДЕЙСТВИЯ
'DA.SelectCommand = New OdbcCommand("SELECT id,name FROM status")
'DA.InsertCommand = New OdbcCommand("INSERT INTO status ( name) VALUES (?)")
'DA.UpdateCommand = New OdbcCommand("UPDATE status SET name = ? WHERE id = ?")
'DA.DeleteCommand = New OdbcCommand("DELETE FROM status WHERE id = ?")
'ИЛИ ТАК - ДЕЙСТВИЯ ДОБАВЛЯЮТСЯ, ПРИ ПРОХОЖДЕНИИ ПО ЭТИМ СТРОКАМ ОШИБОК НЕ ВЫЛЕЗАЕТ, НО В БД - ИЗМЕНЕНИЯ НЕ ПРОИСХОДЯТ
'Dim dbCommandBuilder As New OdbcCommandBuilder(DA)
'DA.InsertCommand = dbCommandBuilder.GetInsertCommand()
'DA.UpdateCommand = dbCommandBuilder.GetUpdateCommand()
'DA.DeleteCommand = dbCommandBuilder.GetDeleteCommand()
DA.Update(DS, "table")
DS.Tables("table").AcceptChanges()
End Sub
End Class
Немного не понял... Поясните, если можно
Если ее остается с лихвой и это увеличит производительность, то не против...
Это хостинг, следовательно сайты не мои. Хотя сделать статейку 10 способов увеличить производительность и разослать админам сайтов было бы выгодно всем.