AUTOINCREMENTO
ola galera estou tentadofazer autoincremento em um campo textbox em um forulario mais esta me retornando sempre 1 quando nao tenho nada gravado no banco e quando ja tenho o valor 1 ele nao incrementa nada e nao me retorna nada alguem poderia me ajudar abraços
Dim Mycon As String = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=C:\Usersobson\Documents\Visual Studio 2010\programas\sistacademia\login\Academia.mdf; Integrated Security=true;User Instance=True[Ô]
Dim connection As New SqlConnection(Mycon)
Dim mySelectQuery11 As String = [Ô]select * from AgendamentoProf[Ô]
Dim myCommand11 As New SqlCommand(mySelectQuery11, connection)
connection.Open()
Dim myReader11 As SqlDataReader = myCommand11.ExecuteReader()
If myReader11.HasRows() Then
[ô]Codigo neste caso ‚ o n£mero de registo que cada aluno tem
Dim SQL As String = [Ô]SELECT MAX(Matricula_Profissional) FROM AgendamentoProf[Ô]
Dim command As New SqlCommand(SQL, connection)
connection.Open()
[ô]Aqui digo que Total ‚ o n£mero de registo e total R ser o n£mero do novo registo.
Dim total As Integer = command.ExecuteScalar()
Dim totalR As Integer = total + 1
txtMatriculaProfissionalAgendamento.Text = totalR
connection.Close()
connection = Nothing
command = Nothing
Else
Dim totalR As Integer = 1
txtMatriculaProfissionalAgendamento.Text = totalR
End If
Dim Mycon As String = [Ô]Data source=.\SQLEXPRESS;AttachDbFilename=C:\Usersobson\Documents\Visual Studio 2010\programas\sistacademia\login\Academia.mdf; Integrated Security=true;User Instance=True[Ô]
Dim connection As New SqlConnection(Mycon)
Dim mySelectQuery11 As String = [Ô]select * from AgendamentoProf[Ô]
Dim myCommand11 As New SqlCommand(mySelectQuery11, connection)
connection.Open()
Dim myReader11 As SqlDataReader = myCommand11.ExecuteReader()
If myReader11.HasRows() Then
[ô]Codigo neste caso ‚ o n£mero de registo que cada aluno tem
Dim SQL As String = [Ô]SELECT MAX(Matricula_Profissional) FROM AgendamentoProf[Ô]
Dim command As New SqlCommand(SQL, connection)
connection.Open()
[ô]Aqui digo que Total ‚ o n£mero de registo e total R ser o n£mero do novo registo.
Dim total As Integer = command.ExecuteScalar()
Dim totalR As Integer = total + 1
txtMatriculaProfissionalAgendamento.Text = totalR
connection.Close()
connection = Nothing
command = Nothing
Else
Dim totalR As Integer = 1
txtMatriculaProfissionalAgendamento.Text = totalR
End If
Se vc já esta colocando o SELECT MAX, porque também o command.ExecuteScalar() ?
Troca a linha -[Ô]SELECT MAX(Matricula_Profissional) FROM AgendamentoProf[Ô], por:
[Ô]SELECT MAX(Matricula_Profissional) as total FROM AgendamentoProf[Ô]
Troca a linha -[Ô]SELECT MAX(Matricula_Profissional) FROM AgendamentoProf[Ô], por:
[Ô]SELECT MAX(Matricula_Profissional) as total FROM AgendamentoProf[Ô]
ola carinha tudo bem ?
fiz o que vc me falou mais quando eu rodo aplicação, quando rodo a primeira vez gera o numero 1 ate ai tudo bem, mais quando eu rodo a segunda vez
ele me diz assim [Ô]A conexão não foi fechada. O estado atual da conexão é aberta.[Ô] e sublinha de amarelo a linha [Ô]connection.Open()[Ô] mais estou fechando logo abaixo onde pode estar o problema
obrigado
fiz o que vc me falou mais quando eu rodo aplicação, quando rodo a primeira vez gera o numero 1 ate ai tudo bem, mais quando eu rodo a segunda vez
ele me diz assim [Ô]A conexão não foi fechada. O estado atual da conexão é aberta.[Ô] e sublinha de amarelo a linha [Ô]connection.Open()[Ô] mais estou fechando logo abaixo onde pode estar o problema
obrigado
Por que não usa o autoIncrement do banco de dados?
como assim ?
direto no sql ?
mais estou usando o sql express do vs e nao sql express e possivel isso para ele me dar esse resultado no textbox?
grato
direto no sql ?
mais estou usando o sql express do vs e nao sql express e possivel isso para ele me dar esse resultado no textbox?
grato
Tópico encerrado , respostas não são mais permitidas