Ir para conteúdo
Fórum Script Brasil
  • 0

Migrando ASP para ASP.NET


Douglas  Zacharias

Pergunta

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 por Douglas Zacharias
Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0

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

;)

Link para o comentário
Compartilhar em outros sites

  • 0

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!!!

Link para o comentário
Compartilhar em outros sites

  • 0

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 por quintelab
Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por Douglas Zacharias
Link para o comentário
Compartilhar em outros sites

  • 0

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 &lt;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>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...