1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Dim MyConnexion31 As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\Spectateur.mdb;Jet OLEDB:Database Password=philguio;")
Dim Mycommand31 As OleDbCommand = MyConnexion31.CreateCommand()
Dim a, b, c, d, f, g, h As String
a = Me.T19.Text
b = Me.T20.Text
c = Me.T21.Text
d = Me.T22.Text
f = Me.T23.Text
g = Me.T24.Text
h = Me.T25.Text
MyConnexion31.Open()
Mycommand31.CommandText = " UPDATE T_Archive SET place19 = '" & a & "', place20 = '" & b & "', place21 = '" & c & "' WHERE Rencontre = '" & strIdentifiant2 & "'"
Dim myReader31 As OleDbDataReader = Mycommand31.ExecuteReader()
MyConnexion31.Close() |
Partager