Guest User

Untitled

a guest
Dec 14th, 2019
92
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim a As Integer = 0
  2. Call koneksi()
  3. cmd = New OdbcCommand(" select id_waktu from waktu order by id_waktu desc", conn)
  4. dr = cmd.ExecuteReader
  5. dr.Read()
  6.  
  7. If Not dr.HasRows Then
  8. a = "0001"
  9. Else
  10. a = Val(dr.Item("id_waktu")) + 1
  11. End If
RAW Paste Data