NUMERA?ÃO AUTOM?TICA SEM REPETI?ÃO COM O BD

JABA 19/06/2015 20:41:51
#447922
você poderia usar também uma consulta após a inserção: Select Max(ID) From Tabela
VINICIUS2445 19/06/2015 21:41:45
#447924
Poderia me passar o código para mim tentar?
JABA 19/06/2015 21:57:45
#447925
é só converter isso para o que você precisa:

Dim query As String = [Ô]Insert Into Categories (CategoryName) Values (?)[Ô]
Dim query2 As String = [Ô]Select @@Identity[Ô]
Dim ID As Integer
Dim connect As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Northwind.mdb[Ô]
Using conn As New OleDbConnection(connect)
  Using cmd As New OleDbCommand(query, conn)
    cmd.Parameters.AddWithValue([Ô][Ô], Category.Text)
    conn.Open()
    cmd.ExecuteNonQuery()
    cmd.CommandText = query2

   [ô]O id será pego aqui
    ID = cmd.ExecuteScalar()

  End Using
End Using
VINICIUS2445 19/06/2015 22:06:30
#447927
Não estou entendendo mto bem esse código, se você conseguir jogar nele pra mim

tabela chama Cad_Cliente
a chave primária que é a que tem que ser em sequência e n pode se repetir chama-se N_Cad
E o lugar que eu tenho que colocar esse código é na textbox1.text
OMAR2011 19/06/2015 23:30:39
#447929
Olhe isto que postou.
Dim sql As String
sql = [Ô]insert into Cad_Cliente (RG,Nome,Idade,Email,Endereço,Cidade,Bairro,CEP,País,Telefone,Celular,Ano_Matric,[txt-color=#e80000]N_Cad[/txt-color],Senha,Confirmar_senha) values (@RG, @Nome,@Idade,@Email,@Endereço,@Cidade,@Bairro,@CEP,@País,@Telefone,@Celular,@Ano_Matric,[txt-color=#e80000]@N_Cad[/txt-color],@Senha,@Confirmar_senha)[Ô]
Dim cm As New OleDbCommand(sql, dbcon)
cm.Parameters.AddWithValue([Ô]@RG[Ô], TextBox14.Text)
cm.Parameters.AddWithValue([Ô]@Nome[Ô], TextBox6.Text)
cm.Parameters.AddWithValue([Ô]@Idade[Ô], TextBox15.Text)
cm.Parameters.AddWithValue([Ô]@Email[Ô], TextBox13.Text)
cm.Parameters.AddWithValue([Ô]@Endereço[Ô], TextBox2.Text)
cm.Parameters.AddWithValue([Ô]@Cidade[Ô], TextBox7.Text)
cm.Parameters.AddWithValue([Ô]@Bairro[Ô], TextBox8.Text)
cm.Parameters.AddWithValue([Ô]@CEP[Ô], TextBox11.Text)
cm.Parameters.AddWithValue([Ô]@País[Ô], TextBox12.Text)
cm.Parameters.AddWithValue([Ô]@Telefone[Ô], TextBox10.Text)
cm.Parameters.AddWithValue([Ô]@Celular[Ô], TextBox9.Text)
cm.Parameters.AddWithValue([Ô]@Ano_Matric[Ô], TextBox3.Text)
[txt-color=#e80000] cm.Parameters.AddWithValue([Ô]@N_Cad[Ô], TextBox1.Text)[/txt-color]
cm.Parameters.AddWithValue([Ô]@Senha[Ô], TextBox4.Text)
cm.Parameters.AddWithValue([Ô]@Confirmar_senha[Ô], TextBox5.Text)

Quando se tem um campo como autonumeração no seu caso o N_Cad não tem necessidade de incluir num insert, isto porque é gerado de forma automática.
OMAR2011 19/06/2015 23:34:49
#447930 Resposta escolhida
Você deve retirar o que está de vermelho.
Vou dar uma Martelada no seu dedão do pé para sempre lembrar.
Tu tá precisando de ler um pouquinho mais.
VINICIUS2445 19/06/2015 23:41:16
#447931
Como faço para esse número gerado automaticamente e em sequência, sem repetição aparecer na textbox1.text?
VINICIUS2445 20/06/2015 17:25:13
#447940
Alguém poderia me ajudar por favor
OMAR2011 20/06/2015 17:49:11
#447941
Mais ou menos assim.
Dim cn = New OleDbConnection([Ô]Provider=msdaora;Data Source=XE;Persist Security Info=TRUE;User Id=SYSTEM;Password=xxxx;[Ô])
Dim oComm As New OleDbCommand([Ô]SELECT jocodigo FROM jogos [Ô], cn)
Dim ValorTotal As Object

Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable

[ô]da.Fill(dt)


ds = New DataSet

da.Fill(ds, [Ô]Jogos[Ô])
dt = ds.Tables([Ô]Jogos[Ô])

If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(jocodigo)[Ô], [Ô][Ô])

[ô]txtCodigo.Text = ValorTotal.ToString() + 1
txtCodigo.Text = ValorTotal + 1
Else
txtCodigo.Text = 1

End If
VINICIUS2445 20/06/2015 17:52:36
#447942
Posso colocar isso no próprio campo N_Cad ou no botão cadastrar?
Página 2 de 4 [35 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar