Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. @h@ Morada:
  2.  
  3. 'Retorna o ultimo idmorada da tabela morada e incrementa-o por 1, tornando assim todos os registos sequênciais.
  4. Dim adicionaidmorada As New SqlClient.SqlCommand
  5. adicionaidmorada.Connection = db
  6. adicionaidmorada.CommandType = CommandType.Text
  7. adicionaidmorada.CommandText = "select max(idmorada) from morada"
  8.  
  9. db.Open()
  10. Dim ultimamorada As Integer = adicionaidmorada.ExecuteScalar
  11. db.Close()
  12.  
  13. If IsDBNull(ultimamorada) = True Then
  14. idmorada = 1
  15. Else
  16. idmorada = Convert.ToInt32(idmorada) + 1
  17. End If
  18.  
  19. @h@ Categoria:
  20.  
  21. 'Retorna o ultimo idcategoria da tabela categoria e incrementa-o por 1, tornando assim todos os registos sequênciais.
  22. Dim adicionaidcategoria As New SqlClient.SqlCommand
  23. adicionaidcategoria.Connection = db
  24. adicionaidcategoria.CommandType = CommandType.Text
  25. adicionaidcategoria.CommandText = "select max(idcategoria) from categoria"
  26.  
  27. db.Open()
  28. Dim ultimacategoria As Integer = adicionaidcategoria.ExecuteScalar
  29. db.Close()
  30.  
  31. If IsDBNull(ultimacategoria) = True Then
  32. idcategoriatextbox.Text = 1
  33. Else
  34. idcategoriatextbox.Text = Convert.ToInt32(ultimacategoria) + 1
  35. End If
  36.  
  37. 'São exactamente a mesma coisa, mas o da morada dá-me duplas PK à toa :\
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement