hola atodos mi pregunta es tengo en un formualrio un ListBox1, un boton(btnIr),webbrowser(WBuscador) combobox( cbBuscador) listo ahora al escribiel la direccion den el list box me navega y em muetra la pagina solicitada en el webbrowser listo ademas me muestra todos los enlaces url de la pagina en el listbox mi pregunta es como puedo mandar esos links del istbox1 a una base de datos mysql teniendo en cuenta que ya tengo la coneccion funcionando y la base de datos a una tabla historial adjunto el codigo la coneccion sirve lo unico que no puedo es inviar los datos del listbox1 a la tabla historial en my sql gracias la coneccione sta en un modulo y ya la probe gracias
Option Explicit On
Option Strict On
Public Class Form1
Private Sub btnIr_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnIr.Click
cbBuscador.Items.Clear()
WBuscador.Navigate(cbBuscador.Text.Trim)
'El metodo Navigate me da el valor puesto en la entrada de texto
Me.WBuscador.Navigate(Me.cbBuscador.Text)
'Agrego la direccion al buscador (asi podre consultarla sin tener que teclearla)
Me.cbBuscador.Items.Add(Me.cbBuscador.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'Aqui inicio con el protocolo HTTP antepuesto
Me.cbBuscador.Text = "http://www."
'Enfoco la entrada de URL
Me.cbBuscador.Focus()
End Sub
Private Sub btnAtras_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnAtras.Click
'Para volver atras
Me.WBuscador.GoForward()
End Sub
Private Sub btnDelante_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnDelante.Click
'Seguir adelante (en caso de que ya hallas retrocedido)
Me.WBuscador.GoBack()
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnStop.Click
'Aqui detenemos la navegacion
Me.WBuscador.Stop()
End Sub
Private Sub btnActualizar_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnActualizar.Click
'Aqui actualizo la pagina que se este visualizando
Me.cbBuscador.Refresh()
End Sub
Private Sub WBuscador_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WBuscador.DocumentCompleted
If e.Url.ToString = String.Empty Or e.Url.ToString = "http:///" Then
Exit Sub
End If
Try
Me.Cursor = Cursors.WaitCursor
Call links()
Me.Cursor = Cursors.Default
Catch ex As Exception
Debug.Print(ex.Message.ToString)
End Try
End Sub
Private Sub links()
ListBox1.Items.Clear()
For i As Integer = 0 To WBuscador.Document.Links.Count - 1
ListBox1.Items.Add(WBuscador.Document.Links.Item(i ).GetAttribute("href"))
Next
End Sub
End Class
