1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Dim strConn As String
strConn = ""
strConn = strConn & "Provider=Microsoft.Jet.OLEDB.4.0" & ";" & "Data Source="
strConn = strConn & PATHNAME
strConn = strConn & "; Jet OLEDB:Database Password=""hfdatabase"";"
Dim ObjetConnection As New OleDb.OleDbConnection
ObjetConnection.ConnectionString = strConn
DS = New Data.DataSet
ObjetDataAdapter = New OleDb.OleDbDataAdapter
ObjetDataAdapter.SelectCommand = New OleDb.OleDbCommand(strSQL, ObjetConnection)
custCB = New OleDb.OleDbCommandBuilder(ObjetDataAdapter)
ObjetConnection.Open()
ObjetDataAdapter.Fill(DS, "custodian")
'
'Modification du dataset
'
ObjetDataAdapter.update(DS, "custodian")
ObjetConnection.close
|
Partager