Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Lidianne Medeiros Ferreira

Acesso ao Banco de Dados via Internet

Recommended Posts

Public Sub Monta_Grid()On Error GoTo erroDim f As Long, Linha As String, i As Integerf = FreeFileMe.MousePointer = 11Open App.Path & "\testando.asp" For Input As f Do While Not EOF(f) DoEvents Line Input #f, Linha 'Inclui itens flx_operacao.Row = flx_operacao.Rows - 1 flx_operacao.Col = 0 flx_operacao.Text = Mid(Linha, 1, 4) flx_operacao.CellAlignment = vbAlignLeft flx_operacao.Col = 1 flx_operacao.Text = Date & " " & Format(Mid(Linha, 5, 8), "hh:mm:ss") flx_operacao.CellAlignment = vbAlignLeft flx_operacao.Col = 2 flx_operacao.Text = Trim(Mid(Linha, 13, 50)) flx_operacao.Col = 3 flx_operacao.Text = Format(Trim(Mid(Linha, 79, 30)), "fixed") flx_operacao.Col = 4 flx_operacao.Text = Format(Trim(Mid(Linha, 63, 8)), "fixed") flx_operacao.CellAlignment = vbAlignLeft flx_operacao.Col = 5 If Produto_Wappa = 6 Then flx_operacao.ColWidth(5) = 1250 flx_operacao.Text = Trim(Mid(Linha, 109, 10)) Else flx_operacao.ColWidth(5) = 0 flx_operacao.ColWidth(2) = 4250 flx_operacao.ColWidth(3) = 3255 End If 'flx_operacao.CellAlignment = vbAligncenter flx_operacao.Col = 6 Set flx_operacao.CellPicture = Image3.Picture flx_operacao.CellAlignment = vbAlignNone flx_operacao.Col = 7 Set flx_operacao.CellPicture = Image2.Picture flx_operacao.CellAlignment = vbAlignRight flx_operacao.Rows = flx_operacao.Rows + 1 Loop Close #fMe.MousePointer = 1If flx_operacao.Rows = 1 Then mnuAtualizar.Visible = False Else mnuAtualizar.Visible = True Exit Suberro:MsgBox "Erro nº " & Err.Number & vbCrLf & Err.Description, vbCritical, "ERRO"End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

no caso linda q server você está usando?no iis vcc teria que bolquear acesso ao código fonte do scriptacho q é isso, qualquer coisa volta e posta su a dúvida!t+

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.