USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Abrir MDB na Internet
abezerra
não registrado
ENUNCIADA !
Postada em 16/05/2008 11:22 hs   
Bom dia Pessoal.
 
Estou precisando abrir um arquivo MDB na Internet no VB 6.0. Dei uma olhada no exemplo que foi colocado nesse site, mas estou encontrando um problema. O responsável manda digitar uma query no campo text1, mas qual é a query.
 
Quem puder me ajudar, eu agradeço.
 
   
Jose Ari
não registrado
ENUNCIADA !
Postada em 16/05/2008 15:29 hs   
se voce for mais específico, a galera pode ajudar........
   
abezerra
não registrado
ENUNCIADA !
Postada em 16/05/2008 15:45 hs   
 
Bom tarde Pessoal.
 
Espero que esteja mais claro o meu problema.
 
Estou precisando abrir um arquivo MDB para ser usado num sistema VB 6.0 por vários usuários em várias partes do RJ usando a internet.
 
Eu já criei o form como foi pedido no exemplo abaixo, mas não esta funcionando.
 
O exemplo que estou me referindo é o seguinte :
 

Parte 2: VB

Crie um novo projeto, no form desenhe 1 commandbutton, 1 MSFlexgrid, um textbox e um WebBrowser Control. Cole o código abaixo no form. Para usar digite a query no textbox e clique o botão, em alguns instantes o flexgrid será preenchido com os resultados.

Note que para funcionar vc deve estar conectado a internet.

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Sub Command1_Click()

    Dim URL As String
    
    ' Navega até a url
    Screen.MousePointer = vbHourglass
    DoEvents
    URL = "
http://www.meuprovedor.com/minhapasta/access-server.asp?SQL=" & Text1
    WebBrowser1.Navigate URL
    
End Sub

Private Sub Form_Load()

    Command1.Caption = "Executa Query"
    
    With MSFlexGrid1
        .Cols = 1
        .Rows = 1
        .FixedCols = 0
    End With
    
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    Dim Cab As String, Dados As String
    
    ' Extrai os dados da página recebida
    Cab = WebBrowser1.Document.All.Cabecalho.InnerText
    Dados = WebBrowser1.Document.All.Dados.InnerText
    
    If Cab <> "NADA" And Dados <> "NADA" Then
        MostraDados Cab, Dados
        Screen.MousePointer = vbDefault
    Else
        Screen.MousePointer = vbDefault
        MsgBox "Nada a Exibir", vbInformation
    End If

End Sub

Sub MostraDados(ByVal Cab As String, ByVal Dados As String)

    Dim CORPO As Variant, CABEC As Variant, TMP As Variant
    
    CORPO = Split(Dados, Chr(255))
    CABEC = Split(Cab, Chr(254))
    
    With MSFlexGrid1
        ' Paralisa o update de tela
        LockWindowUpdate .hWnd
        
        ' Poe o cabeçalho
        .Cols = UBound(CABEC)
        .Row = 0
        For I = 0 To UBound(CABEC) - 1
            .Col = I
            .Text = CABEC(I)
        Next
        
        ' Poe os dados
        For I = 0 To UBound(CORPO)
            CORPO(I) = Replace(CORPO(I), Chr(254), vbTab)
            .AddItem CORPO(I)
        Next
        
        ' retorna ao normal
        LockWindowUpdate 0
    End With
    
End Sub

Quem puder me ajudar, eu agradeço.
   
ADRIANO2605
CAMPO GRANDE
MS - BRASIL
ENUNCIADA !
Postada em 16/05/2008 20:20 hs            
Dr. seu problema é o seguinte vc precisa de um banco de dados cliente servidor. o access não faz este serviço!
Se vais er utilizado por varios usuarios fora de uma rede local, vc vai ter de utilizar um Mysql ou o proprio sql express, pois o vb se conecta há eles.
Ok espero ter ajudado!
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 20/05/2008 21:46 hs            
colega querya é aquela funçaõ SQL basica de pesquisa
 
ex:
text1.text="SELECT * FROM tabela WHERE nome='joão'"
 
   
Macaubal
MACAUBAL
SP - BRASIL
ENUNCIADA !
Postada em 21/05/2008 15:19 hs            
Crie uma comunicação ODBC
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página