ARMAZENAR ULTIMO REGISTRO EM UMA VARIAVEL
Olá Pessoal!!!
Bom, estou tendo certos problemas com este aplicativo que estou desenvolvendo.
Preciso pegar o último registro de uma tabela e armazena-lo em uma variável para então colocar o valor na text box.
Para pegar o último registro estou usando o código:
[th]
Mas não estou conseguindo inserir este valor em na variável.
Se puderem me ajudar agradeço desde já!
Bom, estou tendo certos problemas com este aplicativo que estou desenvolvendo.
Preciso pegar o último registro de uma tabela e armazena-lo em uma variável para então colocar o valor na text box.
Para pegar o último registro estou usando o código:
| Cabecalho | [/th]
| SQL = [Ô]Select max(Codigo) From TBLordem[Ô] |
Mas não estou conseguindo inserir este valor em na variável.
Se puderem me ajudar agradeço desde já!
Então, estou utilizando o MySQL, faço o select desta mesma maneira que estã no post. Eu faço ele no evento Load do formulário pois preciso inserir o valor deste select no text box logo qnd ele é iniciado.
Utilizo o ADODB, e duas variáveis. Uma sendo do tipo ADODB.Connection e outra como ADODB.Recordset
Utilizo o ADODB, e duas variáveis. Uma sendo do tipo ADODB.Connection e outra como ADODB.Recordset
Você está usando vb6 ou vb2010,2008
Uso o Visual Studio 2008
Aqui estou codigo de outro post para mostrar.Existe outras formas também.Meu Banco para teste é Acess 2007 e vb 2010
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Tot As Integer
Dim Fil_Codigo As String = [Ô]SELECT Max(Codigo) as Total FROM Pecas [Ô]
Using Con As New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.accdb;Persist Security Info=False[Ô])
Con.Open()
Using Cmd As New OleDbCommand(Fil_Codigo, Con)
Using Dr As OleDbDataReader = Cmd.ExecuteReader
While Dr.Read
MsgBox(Dr.Item([Ô]Total[Ô]))
txtCodigo.Text = Dr.Item([Ô]total[Ô])
Tot = (Dr.Item([Ô]Total[Ô]))
txtIdade.Text = Tot
End While
End Using
End Using
End Using
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Tot As Integer
Dim Fil_Codigo As String = [Ô]SELECT Max(Codigo) as Total FROM Pecas [Ô]
Using Con As New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BRAS2010.accdb;Persist Security Info=False[Ô])
Con.Open()
Using Cmd As New OleDbCommand(Fil_Codigo, Con)
Using Dr As OleDbDataReader = Cmd.ExecuteReader
While Dr.Read
MsgBox(Dr.Item([Ô]Total[Ô]))
txtCodigo.Text = Dr.Item([Ô]total[Ô])
Tot = (Dr.Item([Ô]Total[Ô]))
txtIdade.Text = Tot
End While
End Using
End Using
End Using
End Sub
Vlw cara!!
Vou ver se funciona
Vou ver se funciona
Citação:Bom, se vc utiliza ADO, então Utiliza um Recordset, certo ?
Então:
RS([Ô]CAMPO[Ô])=SuaVariavel
TXT_SEUTEXTBOX.TEXT=SuaVariavel
Usei este código aqui ó:
SQL = [Ô]Select max(Codigo) From TBLordem[Ô]
RecordSet.Open(SQL, Conexao)
Cod_Ordem = RecordSet.Fields([Ô]Codigo[Ô]).Value
TXTordem.Text = Cod_Ordem
Porém ocorre o seguinte erro:
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
Como resolvo esse erro?
Voce Tem um campo Chamado Codigo na sua tabela?
Isto quer dizer que não tem um campo Camado Codigo.
Mude para seu Campo da sua tabela.
Isto quer dizer que não tem um campo Camado Codigo.
Mude para seu Campo da sua tabela.
Tente assim.
SQL = [Ô]Select max(Codigo) Total From TBLordem[Ô]
RecordSet.Open(SQL, Conexao)
Cod_Ordem = RecordSet.Fields([Ô]Total[Ô]).Value
[ô]TXTordem.Text =RecordSet.Fields([Ô]Total[Ô]).Value
TXTordem.Text = Cod_Ordem
Tópico encerrado , respostas não são mais permitidas