Migrando ASP para ASP.NET

Douglas Zacharias · Agosto 4, 2009

Fala galera!

Estou penando aqui pra resolver essa questão da migração para asp.net.

Como o tempo tá curto, estou mantendo em vb mas depois vou escrever em c#.

Seguindo estou com um problema porque ele não aceita meu "set".

A minha query era executada da seguinte forma:

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "DRIVER=Microsoft Excel Driver (*.xls); ReadOnly=1; DBQ=" & Server.MapPath("SISCOPE.xls")

SQL2 = "SELECT [TEMPO AGORA] From [Plan1$] where TA='"&TERMINAL&"'ORDER BY [TEMPO DE SOBREESTADIA AGORA] DESC"

Set rs2 = conn.Execute(SQL2)

IF NOT RS2.EOF THEN

'FUNÇÕES

END IF

Cheguei no seguinte ponto:

<%@ Import namespace="System.Data" %>

<%@ Import namespace="System.Data.OleDb" %>

<%

Dim objConn As OleDbConnection

Dim strCaminho As String = Server.MapPath("siscope1.mdb")

objConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";")

objConn.Open()

Dim SQL2 As String = "SELECT [TEMPO AGORA] From [Plan1$] where TA='"&TERMINAL&"'ORDER BY [TEMPO DE SOBREESTADIA AGORA] DESC"

Como consigo navegar pelos registros como em destacado em vermelho acima , já que o asp.net não aceita set??? (Compiler Error Message: BC30807: 'Let' and 'Set' assignment statements are no longer supported.)

Editado Agosto 6, 2009 por Douglas Zacharias

OSJunior · Agosto 4, 2009

Acredito que o mais parecido com o que você procura seja:

Dim conn As New OleDbConnection("stringConexao")
conn.Open()

Dim sql As New OleDbCommand("comandoSQL", conn)
Dim reader As OleDbDataReader = sql.ExecuteReader()
While reader.Read()
    ' Funções
End While

;)

Douglas Zacharias · Agosto 5, 2009

Vlw meu brother!

Mais uma etapa avançada (Já estou começando a me lembrar das aulas de vb 6 da escola técnica... rs)

mais uma coisa:

Nessas funções, eu puxava os dados dos campos da tabela usando RS2.FIELDS(x).VALUE onde x é a posição do campo na minha query.

Como puxo agora?

Abração!!!

OSJunior · Agosto 5, 2009

Utilize o reader como matriz:

meuValorInteiro = Int32.Parse(reader("nomeDoCampo1"))
minhaString = reader(1).ToString()

Douglas Zacharias · Agosto 5, 2009

Blza! Consegui ler!

Editado Agosto 5, 2009 por Douglas Zacharias

Douglas Zacharias · Agosto 6, 2009

Mais problemas :(

Eu usava muitas funções em ASP, por exemplo a seguinte:

FUNCTION FORMATA_DATA_HORA(DATAHORA)
    if DATAHORA > 0 then
        valor = DATAHORA /24
        dia = FormatNumber(valor,0)
        hora = valor - dia
        hora = hora * 24
        if hora < 0 then
            dia = dia -1
            hora = 24 + hora
        end if
        min = hora
        hora = FormatNumber(hora,0)
        min = min - hora
        min = 60 * min
        if min < 0 then
            hora = hora - 1
            min = 60 + min
        end if
        min = FormatNumber (min,0)
        if min < 10 then
            min = "0"&min
        end if
        if dia >1 then
            response.write(dia&" dias")
        else
            if dia = 1 then
            response.write(dia&" dia")
            end if
        end if
        if hora>0 or min>0 then
            if dia>0 then
                response.write(", ")
            end if
            response.write(hora&":"&min&"h")
        else
        end if
        
    else
        response.write("ND")
    end if
END FUNCTION

Ela servia para me retornar a data formatada como "X dias, hh:mm" à partir de dias com decimais.

Tem algum jeito de eu fazer assim na própria página aspx? como? se não tiver como, como deverei fazer?

Abraços galera!

Editado Agosto 6, 2009 por quintelab
Adicionado BBCode Code

quintelab · Agosto 6, 2009

Só tem if nesse código, pode tentar converter ele que irá mudar pouco.

Abraços...

OSJunior · Agosto 6, 2009

Douglas,

veja os métodos que o registro do DateTime oferece (http://msdn.microsoft.com/en-us/library/sy...me_methods.aspx). Você verá que será mais fácil do que criar um função exclusiva para isso.

Abraços

Editado Agosto 6, 2009 por OSJunior

Douglas Zacharias · Agosto 7, 2009

Vlw galera! Esse é só um exemplo de função. Tenho várias funções de pesquisas em banco de dados, contas e etc...

O meu maior problema é que ele reclama da linha Function. Segue o Erro:

Server Error in '/' Application.

--------------------------------------------------------------------------------

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

Line 16:

Line 17: <%

Line 18: function TERMINAL ATRASADO(TERMINAL)

Line 19: dim terminal = "TA OSORIO"

Line 20: Dim sql As New OleDbCommand("SELECT TEMPO_AGORA From Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn)

Source File: E:\wwwroot\Transpetro\Gasoduto\sobreestadia\a01\processamento.aspx Line: 18

kuroi · Agosto 7, 2009

é impressao minha ou você ta tentando por espaco no nome da function??

não pode ne.

Douglas Zacharias · Agosto 7, 2009

Falaê kuroi!

Malz... Usei como exemplo somente, mas para desencargo de consciência verifiquei meu código e rodei uma página aspx com essa função sem espaço no nome da função. Deu o mesmo erro :(

Server Error in '/' Application.

--------------------------------------------------------------------------------

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

Line 16:

Line 17: <%

Line 18: function TERMINAL_ATRASADO(TERMINAL)

Line 19: dim terminal = "TA OSORIO"

Line 20: Dim sql As New OleDbCommand("SELECT TEMPO_AGORA, TEMPO_PREVISTO, PIER, NAVIO, NOR, TEMPO_SOBREESTADIA, CUSTO_SOBREESTADIA From Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn)

Source File: E:\wwwroot\Transpetro\Gasoduto\sobreestadia\a01\processamento.aspx Line: 18

Lembrando que minhas funções funcionavam perfeitamente em asp. :/

Editado Agosto 7, 2009 por Douglas Zacharias

Douglas Zacharias · Agosto 7, 2009

Opa!

Consegui resolver o problema! MAS APARECEU OUTRO!!! hauahuahauhau. ngm merece... rs

Seguinte: Eu estava declarando funções entre <% e %>. Descobri agora que preciso declarar minhas funções entre <script runat=server> e </script>.

Mas estou tendo um problema do além. Coisa do Jason:

Server Error in '/' Application.

--------------------------------------------------------------------------------

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

Line 67: #End ExternalSource

Line 68:

Line 69: Public Sub New()

Line 70: MyBase.New

Line 71: Dim dependencies As System.Collections.ArrayList

Source File: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\root\61493785\e01aae32\ssallrlb.0.vb Line: 69

Tipo... tá dando erro em um arquivo .vb que o JASON criou, não EU!!!

Nem tenho idéia de como arrumar.

Segue meu código completo da página:

<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.OleDb" %>
<%@ Page Language="VB" Debug="true" %>
<%
    TERMINAL_ATRASADO("TA BELEM")
    TERMINAL_ATRASADO("TA OSORIO")
%>
&lt;script runat=server>
    Function TERMINAL_ATRASADO(TERMINAL)
    Dim Conn As OleDbConnection
    Dim strCaminho As String = Server.MapPath("siscope.mdb")
    Conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";")
    Conn.Open()
    Dim sql As New OleDbCommand("SELECT TEMPO_AGORA, TEMPO_PREVISTO, PIER, NAVIO, NOR, TEMPO_SOBREESTADIA, CUSTO_SOBREESTADIA  From 

Sobreestadia where TA="& chr(34)&terminal &chr(34)&" ORDER BY TEMPO_SOBREESTADIA DESC", Conn)
    Dim reader As OleDbDataReader = sql.ExecuteReader()
    dim PIER, qcar, nterm2, NAVIO as String
    dim TSOB, CSOB as double
    reader.Read()
    response.write("label")
    QCAR=LEN(TERMINAL)
    QCAR=QCAR - 3
    NTERM2=MID(TERMINAL,4,QCAR)
    NAVIO = reader(3).ToString()
    PIER = reader(2).ToString()
    TSOB = reader(5)*24
    CSOB = reader(6)
    response.write(nterm2 & "= Navio " & NAVIO & " atracado no pier " & PIER & " com tempo de sobreestadia de " & TSOB & " ao custo de " & 

CSOB & ".&")
</script>

Entrar

Migrando ASP para ASP.NET

Pergunta

Link para o comentário

Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns