NUMERA?ÃO AUTOM?TICA SEM REPETI?ÃO COM O BD
Esse número teria que aparecer aqui, aonde está circulado, o nome da tabela é Cad_Cliente, e o nome da chave primária, que é o próprio Número da matrÃcula chama-se N_Cad
Seria isso, só n está reconhecendo o DS, aparecendo o traço azul em baixo
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad 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, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad 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, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM jogos [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
[txt-color=#e80000]Dim ds As New DataSet[/txt-color]
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM jogos [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
[txt-color=#e80000]Dim ds As New DataSet[/txt-color]
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
Tem que mudar para.
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente
Posso colocar esse código, na própria textbox1.text?
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
Dim ds As New DataSet
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
irei testa-lo agr
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
Dim ds As New DataSet
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
irei testa-lo agr
No caso, quando o primeiro usuário for se registrar, não só o primeiro, teria que aparecer nessa text que está circulada o número de cadastro dele, pois ele irá logar com esse número e a senha
Quando o primeiro for registrar vai verificar na tabela se existe algum resgistro, casa não ache Textbox1.text = 1.
Beleza.
[txt-color=#e80000]Não pode colocar este código TextBox1_TextChanged.[/txt-color]
Vai acusar erro.
Deve criar ou colocar num Button, e nesse Button vai colocar o código e limpar as caixas de texto.
Mas tome cuidado para não limpar o textbox1.text.
Beleza.
[txt-color=#e80000]Não pode colocar este código TextBox1_TextChanged.[/txt-color]
Vai acusar erro.
Deve criar ou colocar num Button, e nesse Button vai colocar o código e limpar as caixas de texto.
Mas tome cuidado para não limpar o textbox1.text.
Usei esse código na própria textbox1.text, só que continua a não aparcer 
, e eu não entendi porque, pois se achar um registro iria somar um, e se n achasse, iria dar o valor datextbox1.text=1
Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
Dim ds As New DataSet
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
, e eu não entendi porque, pois se achar um registro iria somar um, e se n achasse, iria dar o valor datextbox1.text=1Dim constring As String = [Ô]provider=microsoft.ace.oledb.12.0;password=[Ô][Ô][Ô][Ô]; user id=admin;data source=[Ô] + Application.StartupPath & [Ô]\Tec_Alfa.accdb[Ô]
Dim cn As New OleDb.OleDbConnection(constring)
Dim oComm As New OleDbCommand([Ô]SELECT N_Cad FROM Cad_Cliente [Ô], cn)
Dim ValorTotal As Object
Dim da As New OleDbDataAdapter(oComm)
Dim dt As New DataTable
[ô]da.Fill(dt)
Dim ds As New DataSet
da.Fill(ds, [Ô]Cad_Cliente[Ô])
dt = ds.Tables([Ô]Cad_Cliente[Ô])
If dt.Rows.Count > 0 Then
ValorTotal = dt.Compute([Ô]MAX(N_Cad)[Ô], [Ô][Ô])
[ô]txtCodigo.Text = ValorTotal.ToString() + 1
TextBox1.Text = ValorTotal + 1
Else
TextBox1.Text = 1
End If
Basta incrementar.
Esse programa não abre no meu computador, dá erro, se puder me mandar o código
Tópico encerrado , respostas não são mais permitidas