VISUAL BASIC - AUTO INCREMENTO IDENTITY
Estou criando um programa no visual Studio em vb, então criei uma tabela no sql sendo o campo código um auto- increment(identity), então a cada cliente cadastrado é usado um numero do auto incremento, como faço pra aparecer o próximo valor que o auto-incremento ira usar para cadastrar o cliente, em um textbox do vb?
use uma consulta sql tipo.
Sql = [Ô]Select Max(IdCli) as Valor From SuaTabela[Ô]
Pegue o Valor + 1.
Se tiver 11 registros o
Valor = 11 adicionar + 1
Deste jeito.
Sql = [Ô]Select Max(IdCli) as Valor From SuaTabela[Ô]
Pegue o Valor + 1.
Se tiver 11 registros o
Valor = 11 adicionar + 1
Deste jeito.
Fiz assim:
Public Sub novo()
Dim cn As New SqlConnection(conexao)
Dim query As String = [Ô][Ô]
cn.Open()
query &= [Ô]Select Max(Codigo) as Valor From Cadastrocliente[Ô]
fiz até aqui como fica o resto? (não entendi a parte da soma)
Public Sub novo()
Dim cn As New SqlConnection(conexao)
Dim query As String = [Ô][Ô]
cn.Open()
query &= [Ô]Select Max(Codigo) as Valor From Cadastrocliente[Ô]
fiz até aqui como fica o resto? (não entendi a parte da soma)
Mais ou menos assim
Qualquer erro alguém pode corrigir.
Dim dr As SqlDataReader, Valor As Long
Dim CN As New SqlConnection([Ô]Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\SeuBanco.mdf;Integrated Security=True[Ô])
cn.Open()
Dim cmd As New SqlCommand([Ô]Select Max(Cod) as Valor From Times[Ô], CN)
dr = cmd.ExecuteReader
While dr.Read()
Valor = dr([Ô]Valor[Ô]) + 1
TextBox1.Text = Valor
End While
dr.Close()
CN.Close()
Qualquer erro alguém pode corrigir.
Dim dr As SqlDataReader, Valor As Long
Dim CN As New SqlConnection([Ô]Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\SeuBanco.mdf;Integrated Security=True[Ô])
cn.Open()
Dim cmd As New SqlCommand([Ô]Select Max(Cod) as Valor From Times[Ô], CN)
dr = cmd.ExecuteReader
While dr.Read()
Valor = dr([Ô]Valor[Ô]) + 1
TextBox1.Text = Valor
End While
dr.Close()
CN.Close()
Deu certo! Obrigado Omar, te amo cara!
Tópico encerrado , respostas não são mais permitidas