Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @h@ Morada:
- 'Retorna o ultimo idmorada da tabela morada e incrementa-o por 1, tornando assim todos os registos sequênciais.
- Dim adicionaidmorada As New SqlClient.SqlCommand
- adicionaidmorada.Connection = db
- adicionaidmorada.CommandType = CommandType.Text
- adicionaidmorada.CommandText = "select max(idmorada) from morada"
- db.Open()
- Dim ultimamorada As Integer = adicionaidmorada.ExecuteScalar
- db.Close()
- If IsDBNull(ultimamorada) = True Then
- idmorada = 1
- Else
- idmorada = Convert.ToInt32(idmorada) + 1
- End If
- @h@ Categoria:
- 'Retorna o ultimo idcategoria da tabela categoria e incrementa-o por 1, tornando assim todos os registos sequênciais.
- Dim adicionaidcategoria As New SqlClient.SqlCommand
- adicionaidcategoria.Connection = db
- adicionaidcategoria.CommandType = CommandType.Text
- adicionaidcategoria.CommandText = "select max(idcategoria) from categoria"
- db.Open()
- Dim ultimacategoria As Integer = adicionaidcategoria.ExecuteScalar
- db.Close()
- If IsDBNull(ultimacategoria) = True Then
- idcategoriatextbox.Text = 1
- Else
- idcategoriatextbox.Text = Convert.ToInt32(ultimacategoria) + 1
- End If
- '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