webbrowser,url,mysql

[evilmen164]

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