SELECT MAX() COM FIREBIRD?

JOERBETH 01/12/2016 12:19:05
#469352
Bom dia queridos

Continuando a saga, aprender vb.net em duas semanas.rs

seguinte, estou com a seguinte situação,:
v_sql = [Ô]select max(CODIGO) AS ULTIMOCODIGO from EMPRESAS[Ô]
v_Comandos = New FbCommand(v_sql, vConexao)

quero saber, como eu teste se esse campo CODIGO está vazio, e se estiver vazio, acrescentar +1 no textbox ??

no vb6 mais ou menos assim;
If RS_PEDIDOS.State = adStateOpen Then RS_PEDIDOS.Close
RS_PEDIDOS.Open [Ô]select max(CODIGO) AS ULTIMOCODIGO from PEDIDOS[Ô], BD, adOpenKeyset, adLockOptimistic
If IsNull(RS_PEDIDOS([Ô]ULTIMOCODIGO[Ô])) Then
TXT_Cod.Text = [Ô]0000001[Ô]
Else
If RS_PEDIDOS.State = adStateOpen Then RS_PEDIDOS.Close
RS_PEDIDOS.Open [Ô]select max(CODIGO) AS ULTIMOCODIGO from PEDIDOS[Ô], BD, adOpenKeyset, adLockOptimistic
TXT_Cod.Text = RS_PEDIDOS([Ô]ULTIMOCODIGO[Ô]) + 1
End If

??

valeu
JOERBETH 01/12/2016 13:12:48
#469353
seria mais ou menos isso aqui:
v_Sql2 = [Ô]select max(CODIGO) AS ULTIMOCODIGO from EMPRESAS[Ô]
v_Comandos = New FbCommand(v_Sql2, vConexao)
If v_Comandos.Read Then
TXT_Codigo.Text = v_Comandos([Ô]ULTMOCODIGO[Ô]) + 1
Else
TXT_Codigo.Text = [Ô]00001[Ô]
End If

o lance é bem ai nesse READ que não exste?!?!?!

valeu
JOERBETH 01/12/2016 15:31:56
#469355
éguas ninguem???????????????????
OMAR2011 01/12/2016 19:23:31
#469358 Resposta escolhida
Mais ou menos assim.
Using con As FbConnection = GetconnectionFirebirdfb()
Try
con.Open()

Dim sql As String = [Ô]SELECT * FROM test [Ô]
Dim cmd As FbCommand = New FbCommand(sql, con)

Dim da As FbDataAdapter = New FbDataAdapter(cmd)
Dim dt As DataTable = New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then

txt3.Text = dt.Compute([Ô]MAX(idcod)[Ô], [Ô][Ô]) + 1
txt2.Text = dt.Compute([Ô]Min(idcod)[Ô], [Ô][Ô]) + 1
Else
txt3.Text = [Ô]00001[Ô]
End If
Catch ex As FbException
MsgBox(ex.Message)
End Try
End Using
Tópico encerrado , respostas não são mais permitidas
Voltar