SELECT PROX NÊMERO LIVRE

Citação:

Onde esta o livro ?

Citação:

Leia o tópico e observe que ele só foi especifico após as nossas respostas. Ou estou lendo outro Tópico ?
Você só resolveu após ele especificar melhor.

Citação:

é um espaço de discussão pública. No fórum geralmente é colocada uma questão, uma ponderação ou uma opinião que pode ser comentada por quem se interessar. Quem quiser pode ler as opiniões e pode acrescentar algo, se desejar

Citação:

Portanto respeite a opinião de seus colegas, e não diga a eles o que devem ou não escrever, isso chama se respeito.

Citação:

Uma sugestão para o pessoal do fórum:
Não estou querendo causar discussão no fórum, mas acredito que o fórum seja para tirar dúvidas e não para ficarem questionando se os processos dos outros estão certos ou não. Lógico que há processos que não são viáveis ao NOSSO VER, mas não estamos aqui para ficar corrigindo os processos dos outros, além do mais, nem sabemos como funciona o sistema do nosso amigo ai. Acho que no máximo podemos dar umas dicas do que seria viável ou não e assim ELE tomará a decisão de mudar ou não as rotinas do sistema dele. Se não souberem a resposta, não fiquem questionando se o processo está certo ou não.
Esse é o meu ponto de vista.
Abraço à todos.

Citação:

E foi exatamente o que eu fiz, dei minha opinião.

Citação:

caso você não esteja enxergando. NA MINHA OPINIÃO, NO MEU PONTO DE VISTA.

Citação:

O Que pode ser um grande problema, é claro que digo sem conhecer o sistema, mas a principio isso
é inadmissível, por causa de estatísticas principalmente.

Citação:

Você entrou em 2012

Citação:

Você nem sabe para que seria o scritp é já está dizendo que o processo do nosso amigo é inadmissível

Citação:

Viu como vc só fala asneiras, faz alguma idéia porque meu nick é NILSONTRES ?
Porque esse já é meu terceiro cadastro aqui, o primeiro foi em 2001, mas graças a ataques ao site por hackers, que aconteceram em 2003 e 2008, se não me engano, sumiu meus dois outros cadastros.

Citação:

Movimentaçao do fórum
851 resposta(s) no fórum
31 tópico(s) criado(s) no fórum
27 tópico(s) encerrado(s) no fórum
4 tópico(s) ativo(s) no fórum
83 tópico(s) com pontuaçao atribuída

Citação:

Conteúdo enviado ao site
0 Artigos
1 Codigo Fonte (último enviado em 08/03/2014 14:20:45)
0 Componentes
0 Dicas
0 Icones
1 arquivos no histórico de decisões
2 comentários feitos sobre arquivos enviados

Citação:

Usuário
RO_DRIGOSG
Nível
Expert
Especialidades
.Net FoxPro Inno Setup MS ADO Engine Oracle SQL Server VBScript XML
Pontos
861 Critérios de pontuação
Acessos
1.506
Cadast. em
22/07/2004
Mensagem interna
Nova mensagem interna
MSN
ro_drigosg@hotmail.com
SKYPE

WebSite:

Cidade
SAO PAULO
País
BRAZIL
Últ. Modificaçao em
20/01/2014
Últ. Acesso em
16/05/2014 07:41:26
Último browser
Mozilla/5.0
Privilégios de administraçao
Nao é membro da equipe

Movimentaçao do fórum
181 resposta(s) no fórum
11 tópico(s) criado(s) no fórum
11 tópico(s) encerrado(s) no fórum
0 tópico(s) ativo(s) no fórum
24 tópico(s) com pontuaçao atribuída

Mensagens privadas
32 mensagens privadas enviadas
14 mensagens privadas recebidas

Conteúdo enviado ao site
12 Artigos (último enviado em 02/04/2014 10:15:16)
10 Codigo Fonte (último enviado em 27/11/2008 12:21:15)
0 Componentes
34 Dicas (último enviado em 06/07/2011 01:47:12)
0 Icones
10 arquivos no histórico de decisões
16 comentários feitos sobre arquivos enviados

Citação:

Quem mais se preocupa com os usuarios aqui ? eu ou Você ?

Private Function Teste() As Integer

        Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim sSQL As String
        Dim strConn As String
        Dim SEQ As Integer

        strConn = [Ô]Provider=sqloledb;[Ô] & _
                     [Ô]DRIVER={SQLServer};[Ô] & _
                     [Ô]SERVER=.\TesteSQL;[Ô] & _
                     [Ô]DATABASE=Banco;[Ô] & _
                     [Ô]Trusted_Connection=yes[Ô]

        conn.Open(strConn)
        sSQL = [Ô]SELECT ID FROM TESTE ORDER BY ID[Ô]
        rs.Open(sSQL, conn)
        rs.MoveFirst()

        If Not rs.EOF Then
            Do Until rs.EOF

                SEQ = SEQ + 1

                If rs.ID <> SEQ Then
                    Teste = SEQ
                    Exit Function
                End If

                rs.MoveNext()
            Loop
        Else

        End If

        rs.Close()
        conn.Close()
        rs = Nothing

    End Function

Private Function Teste2() As Integer

        Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim sSQL As String
        Dim strConn As String

        strConn = [Ô]Provider=sqloledb;[Ô] & _
                     [Ô]DRIVER={SQLServer};[Ô] & _
                     [Ô]SERVER=.\TesteSQL;[Ô] & _
                     [Ô]DATABASE=Banco;[Ô] & _
                     [Ô]Trusted_Connection=yes[Ô]

        conn.Open(strConn)

        sSQL = [Ô]SELECT MIN(V.IDVAGO) AS ID
		FROM (
			    SELECT (ID+1) AS IDVAGO
			    FROM ##TESTE T1
    			    WHERE NOT EXISTS (
        			SELECT ID FROM ##TESTE T2 
        			WHERE T2.ID = (T1.ID+1)
					    )
			) AS V[Ô]

        rs.Open(sSQL, conn)

        If Not rs.EOF Then
           Teste2 = rs.ID
        Else
	     Teste2 = 0		
        End If

        rs.Close()
        conn.Close()
        rs = Nothing

    End Function