[Beginer]

ممكن هكذا بالوضع المنفصل

PHP كود :

Dim dt_Ticket As New DataTable, n = Label_N_CAISSE.Text, m = (-Val(TextBox4.Text))
Using da_Ticket As New OleDbDataAdapter("UPDATE [TABLE_" & n & "] SET [Dates]=@dates,[Heure]=@heure", cn)
    da_Ticket.SelectCommand.Parameters.AddWithValue("@dates", Now.AddHours(m).ToString("dd/MM/yyyy"))
    da_Ticket.SelectCommand.Parameters.AddWithValue("@heure", Now.AddHours(m).ToString("HH:mm:ss"))
    da_Ticket.Fill(dt_Ticket)
    Dim savedt_Ticket As New OleDbCommandBuilder(da_Ticket)
    da_Ticket.Update(dt_Ticket)
End Using 


ممكن هكذا بالوضع المتصل

PHP كود :

Dim n = Label_N_CAISSE.Text, m = (-Val(TextBox4.Text))
If cn.State <> ConnectionState.Open Then cn.Open()
Using cmd_Ticket As New OleDbCommand("UPDATE [TABLE_" & n & "] SET [Dates]=@dates,[Heure]=@heure", cn)
    cmd_Ticket.Parameters.AddWithValue("@dates", Now.AddHours(m).ToString("dd/MM/yyyy"))
    cmd_Ticket.Parameters.AddWithValue("@heure", Now.AddHours(m).ToString("HH:mm:ss"))
    cmd_Ticket.ExecuteNonQuery()
End Using
cn.Close()