WEBROWSER.ACESSAR ENDERECO DE URL SALVA EM BD

LUCASORL 29/04/2012 22:10:03
#401018
OLÁ AMIGOS , TENHO UM WEBROWSER NO MEU FORM, ONDE EU QUERO ACESSAR UM SITE CLICANDO EM BUTTON, MAIS O ENDEREÇO DO SITE TA SALVA NO BANCO DE DADOS ACCESS, COMO FAÇO PARA ACESSAR

Automate = True
WebBrowser1.Visible = True
WebBrowser1.Navigate([Ô]www.google.com.br[Ô]) <------COMO ACESSAR O SITE QUE ESTA SALVO NO BD
ToolStripProgressBar1.Visible = True
ALTAIR148 29/04/2012 22:48:03
#401021 Resposta escolhida
Boa Noite,

Recupere o valor em uma variavel e depois passe-a para o webbrowser.
LUCASORL 29/04/2012 23:04:13
#401022
OLÁ AMIGO ALTAIR OBRIGADO PELO TOQUE, MAS NÃO ESTOU CONSEGUINDO ACERTAR ESSA VARIAVEL, GOSTARIA DE SABER SE VC PODE ME MANDAR UM EXEMPLO?



DESDE JÁ AGRADEÇO POR SUA AJUDA.
ALTAIR148 30/04/2012 00:01:07
#401023
Simples, faz um select no banco....

Exemplo

Dim Endereco as string

Endereco = ResuldadoSelect



Automate = True
WebBrowser1.Visible = True
WebBrowser1.Navigate(Endereco) <------COMO ACESSAR O SITE QUE ESTA SALVO NO BD
ToolStripProgressBar1.Visible = True
KURTGU 30/04/2012 00:23:02
#401025
voce pode pegar esse campo jogar em uma label ,textbox o que voce quiser e jogar assim..

WebBrowser1.Navigate= label.text ou textbox.text
LUCASORL 30/04/2012 21:40:01
#401078
OLÁ PESSOAL O QUE EU FAÇO
A INSTRUÇÃO SELECT NÃO ESTÁ FUNCIONANDO.......

POR EXEMPLO EU TENHO UM SITE SALVO NO BANCO DDE DADOS, COMO ABRIR ESTE SITE POR MEIO DE UM BOTÃO?
O ENDEREÇO DO SITE ESTA SALVO EM UMA TABELA NO FORM CADASTRO E O SITE QUERO ABRIR NO FORM PRINCIPAL...
ALTAIR148 30/04/2012 22:09:12
#401080
Citação:

A INSTRUÇÃO SELECT NÃO ESTÁ FUNCIONANDO......



Não está funcionando? Qual erro aparece? Como você está fazendo?
LUCASORL 01/05/2012 01:51:15
#401109
AlLTAIR OBRIGADO PELA AJUDA ESTA SOLUÇAO FUNCIONOU


Dim EnderecoPagina As String
Try
Dim CN1 As New OleDb.OleDbConnection
CN1 = New OleDb.OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & Application.StartupPath & [Ô]\Biblioteca.mdb;[Ô])
CN1.Open()
Dim instrucaoSQL As String = [Ô]Select topo from opcoes [Ô]
Dim objCommand = New OleDb.OleDbCommand(instrucaoSQL, CN1)
Dim reader As OleDb.OleDbDataReader
reader = objCommand.ExecuteReader
While reader.Read
EnderecoPagina = reader([Ô]topo[Ô])
End While
reader.Close()
objCommand.Dispose()
CN1.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try

Automate = True
WebBrowser1.Visible = True
WebBrowser1.Navigate(EnderecoPagina)
ToolStripProgressBar1.Visible = True
Tópico encerrado , respostas não são mais permitidas
Voltar