a guest Dec 14th, 2019 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- Dim a As Integer = 0
- Call koneksi()
- cmd = New OdbcCommand(" select id_waktu from waktu order by id_waktu desc", conn)
- dr = cmd.ExecuteReader
- If Not dr.HasRows Then
- a = "0001"
- a = Val(dr.Item("id_waktu")) + 1
- End If
RAW Paste Data