hallo zusammen
ich habe ein Problem, weiss aber nicht wie ich ihm sagen sollte, darum dieser nichtssagende Titel. Konnte aus dem selben Grund auch nichts recherchieren...
ich habe eine for each.. next schleife... jedes mal wird dort ein String ausgegeben, dieser string wird mit einem string auf einer SQL-Datennbank verglichen. nun funktioniert das aber nicht und ich weiss nicht wieso..
hier mal der code, wäre sehr dankbar wenn mir jemand weiterhelfen könnte:
ich habe ein Problem, weiss aber nicht wie ich ihm sagen sollte, darum dieser nichtssagende Titel. Konnte aus dem selben Grund auch nichts recherchieren...
ich habe eine for each.. next schleife... jedes mal wird dort ein String ausgegeben, dieser string wird mit einem string auf einer SQL-Datennbank verglichen. nun funktioniert das aber nicht und ich weiss nicht wieso..
hier mal der code, wäre sehr dankbar wenn mir jemand weiterhelfen könnte:
VB.NET-Quellcode
- Private Sub checkmac()
- ' NetzwerkInterface-Objekt
- Dim oInterface As NetworkInterface
- ' alle verfügbaten Netzwerk-Interfaces durchlaufen
- For Each oInterface In NetworkInterface.GetAllNetworkInterfaces()
- With oInterface
- ' nur wenn es sich um kein LoopBack/Tunnel-Interface handelt...
- If .NetworkInterfaceType <> NetworkInterfaceType.Loopback AndAlso .NetworkInterfaceType <> NetworkInterfaceType.Tunnel Then
- ' MAC-Adresse in String schreiben
- mac = (.GetPhysicalAddress.ToString)
- Dim Conn As New MySqlConnection
- Conn.ConnectionString = "server=host; user id=benutzer; password=passwort; database=Datenbank"
- Dim myAdapter As New MySqlDataAdapter
- Dim cmd As String = "Select * from tabelle where spalte like '" & mac & "'"
- Dim myCommand As New MySqlCommand
- myCommand.Connection = Conn
- myCommand.CommandText = cmd
- myAdapter.SelectCommand = myCommand
- Dim myData As MySqlDataReader
- Conn.Open()
- myData = myCommand.ExecuteReader()
- If myData.HasRows Then
- myData.Read()
- If mac = myData(0) Then
- 'Ereignis ausführen
- Else
- MessageBox.Show("false MAC-adress")
- End If
- Else
- MessageBox.Show("Fehler(MAC)")
- End If
- End If
- End With
- Next
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „0luca0“ ()