, DataSet. Code View. Form1, :
Public Function
FillDataSet() as IzuchavaneVBDanni.dsDascali
Dim ds as new
IzuchavaneVBDanni.dsDascali
Me.odbcConnection1.Open()
Try
Me.odbcDataAdapter1.Fill(ds)
Catch fillException As
System.Exception
msgBox("Caught exception: "
& fillException.Message)
End Try
Me.odbcConnection1.Close()
Return ds
End Sub
Public Sub
UpdateDataSource(ByVal ds As IzuchavaneVBDanni.dsDascali)
odbcConnection1.Open()
Dim UpdatedRows As
System.Data.DataSet
Dim InsertedRows As
System.Data.DataSet
Dim DeletedRows As
System.Data.DataSet
UpdatedRows =
ds.GetChanges(System.Data.DataRowState.Modified)
InsertedRows =
ds.GetChanges(System.Data.DataRowState.Added)
DeletedRows =
ds.GetChanges(System.Data.DataRowState.Deleted)
Try
odbcDataAdapter1.Update(UpdatedRows)
odbcDataAdapter1.Update(InsertedRows)
odbcDataAdapter1.Update(DeletedRows)
Catch updateException As
System.Exception
msgBox("Caught exception: "
& updateException.Message)
End Try
Me.odbcConnection1.Close()
End Sub
![]() 93 DataSet. | , DataAdapter DataConnection. , DataSet . DataSet. (datasource). , DataSet e , , , , (datasource). ADO.NET , DataSet. ADO.NET , (back-end database). |
