zaynoubagl
Messages postés60Date d'inscriptionmercredi 11 septembre 2013StatutMembreDernière intervention19 octobre 2014
-
24 sept. 2014 à 14:58
jordane45
Messages postés37494Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention26 mai 2023
-
24 sept. 2014 à 17:32
Bonjour, mon probleme IPAddress.Parse(ligne) une exeption affiche invalid ip adress
Private Sub BT_CONNEXION_Click(sender As Object, e As EventArgs) Handles BT_CONNEXION.Click Dim dr As OleDb.OleDbDataReader Conn = "provider = microsoft.jet.oledb.4.0 ; data source =" & "C:\BDDold1.mdb" Cnx = New OleDbConnection Cnx.ConnectionString = Conn Cnx.Open() sql = "select Table_Equipements.Adr_IP from Table_Equipements" Cmd = New OleDbCommand(sql) Dta = New OleDbDataAdapter(Cmd) Cmd.Connection() = Cnx ' Dta.Fill(Dts, "Table_Equipements") ' Dtt = Dts.Tables("Table_Equipements") dr = Cmd.ExecuteReader
'Dim UnMess As String 'Do While dr.Read() ' UnMess = dr.Item("Adr_IP")
' LB.Text = UnMess
'Loop
Dim ligne As String = ""
' affichage des données While dr.Read()
' exploitation ligne courante ligne = "" For i = 0 To dr.FieldCount - 1 ligne += dr(i).ToString + " "
If ippoint Is Nothing Then ReDim ippoint(0) Else
ReDim Preserve ippoint(ippoint.Count) End If ippoint(ippoint.Count - 1) = New IPEndPoint(IPAddress.Parse(ligne), "1314") If ippoint Is Nothing Then
For j = 0 To ippoint.Count - 1 ippoint(j) = New IPEndPoint(IPAddress.Parse(ligne), "1314")