Selecionar resultado de SQL e usando como 'String'?

[Hugo Lamounier 0]

Olá, sou completamente iniciante em VB e acabei de empacar e não tenho idéia de como resolver o problema.

Não sei se especifiquei corretamente no título mas irei explicar melhor.

(...)
private void Form1_Load(object sender, EventArgs e)
{
WebClient client = new WebClient();
client.DownloadProgressChanged += new DownloadProgressChangedEventHandler(client_DownloadProgressChanged);
client.DownloadFileCompleted += new AsyncCompletedEventHandler(client_DownloadFileCompleted);
client.DownloadFileAsync(new Uri("Queria a String aqui"), @"arquivo.exe");
}

void client_DownloadFileCompleted(object sender, AsyncCompletedEventArgs e)
{
MessageBox.Show("Atualização Completa");

Close();
}

void client_DownloadProgressChanged(object sender, DownloadProgressChangedEventArgs e)
{
progressBar1.Maximum = (int)e.TotalBytesToReceive / 100;
progressBar1.Value = (int)e.BytesReceived / 100;
}

}
}

Estou criando um programa de download automático, porém não sei como selecionar os dados que estão no banco de dados e colocar em client.DownlaodFile(URi, ...);

Queria saber se alguem sabe como pegar o resultado do banco de dados e colocar como string no lugar do URi, supondo que a string seja uma URL normal.

 

Se alguem puder me ajudar, ficaria muito grato.

[Durbano 1]

Cara eu nao sei como fazer com BANCO SQL mas vou te passar o código para você fazer no ACCESS e não deve ser muito diferente para fazer no SQL

 

COLOCA ESSA PARTE NO MODULO

 

Dim conexao As String = "Provider = Microsoft.jet.oledb.4.0;data source=banco.mdb"

Public objcon As New OleDb.OleDbConnection(conexao)

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

Public Sub abrir_banco()

Try

objcon.Open()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

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

Public Sub fechar_banco()

If objcon.State = ConnectionState.Open Then objcon.Close()

End Sub

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

Public Sub executar_comando(ByVal meusql As String)

Dim objcmd As New OleDb.OleDbCommand(meusql, objcon)

Call abrir_banco()

objcmd.ExecuteNonQuery()

Call fechar_banco()

End Sub

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

 

ESSA PARTE você COLOCA EM UMA FORM

 

Dim sql as string

 

sql ='select URL from tabela_dados'

 

executar_comando(sql)

 

 

Essa variável SQL vai estar com o resultado da consulta vai mostrar todas as URL gravadas no BANCO, se você quiser selecionar uma URL específica vai ter que usar WHERE, deste modo.

 

sql = 'select URL from tabela_dados where URL = ' & textbox.text

 

Esse textbox você criará e digitará um parametro para consulta.

 

EXEMPLO : Irá selecionar apenas a coluna URL da tabela_dados onde URL = imarsters.com.br

 

 

abraço