Datenbank auslesen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von HerrFrie.

    Datenbank auslesen

    Hallo Forum!

    Ich würde gerade aus einer Access Datenbank Werte auslesen, diese dann in Variablen schreiben und mit diesen dann Komplex rechnen. Die errechneten Werte werden dann in eine andere Tabelle geschrieben.

    Mein Problem:

    Ich kriege keine Schleife über diesen Vorgang, so das mit dem nächsten Datensatz auch gerchnet wird. Wenn ich eine Schleife über die Variablen beim Auslesen lege, werden die Daten nicht mehr erkannt. Meine Variblen sind dann rot unterlegt und werden als nicht definiert gesehen.

    Der komplette Vorgang wird durch einen Button ausgelöst....also seht quick and dirty.

    Weiß jemand wie man das n den Griff bekommt? Danke im vorraus...

    AVA

    VB.NET-Quellcode

    1. Try
    2. con.Open()
    3. MessageBox.Show(con.DataSource)
    4. con.Close()
    5. Catch ex As Exception
    6. MessageBox.Show(ex.Message)
    8. End Try
    10. 'SQL an Datenbank
    11. cmd.CommandText = "SELECT Projekt, FROM Eingabe_Grundeinstellung"
    12. con.Open()
    15. 'Hier fehlt die Schleife
    16. reader = cmd.ExecuteReader()
    17. reader.Read()
    19. Dim Pr = reader("Projekt")
    20. Dim FH = reader("Frequenz_Hochspannung")
    21. Dim Da = reader("Außendurchmesser") / 1000
    23. con.Close()
    25. 'Die Rechnung soll dem entsprechent auch durchlaufen werden, Variablen werden aber nicht mehr als deklariert betrachtet, eal bei welcher Schleife.
    26. Dim Omg50 As Double = FH * 2 * PI
    27. 'MessageBox.Show(Omg50)
    29. Dim R As Double
    30. R = (Sqrt(Rgleich * uo * ur * Omg50) / (PI * Da * Sqrt(2)) + (uo * Omg50) / 8) * 1000000
    31. 'MessageBox.Show(R)
    33. 'Hier wird zurück in die DB geschrieben
    34. Try
    36. con.Open()
    37. Dim stri As String
    39. stri = "INSERT INTO Ausgabe_Grundeinstellungen("....
    40. cmd.CommandText = stri
    41. MessageBox.Show(stri)
    42. anzahl = cmd.ExecuteNonQuery()
    43. MessageBox.Show("Datensätze geändert: " & anzahl)
    45. Catch ex As Exception
    47. MessageBox.Show(ex.Message)
    48. con.Close()
    49. End Try
    51. ' Mit einem Datensatz gibt es keine Probleme...


    Edit by Manschula: Thema verschoben

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()

    Hi,

    die Schleife, womit du mit dem DataReader lesen kannst funktioniert so :

    VB.NET-Quellcode

    1. cmd.CommandText = "SELECT Projekt, Frequenz_Hochspannung, Außendurchmesser FROM Eingabe_Grundeinstellung"
    3. Do While reader.read()
    4. Dim Pr = reader("Projekt")
    5. Dim FH = reader("Frequenz_Hochspannung")
    6. Dim Da = reader("Außendurchmesser") / 1000
    7. Loop


    In der SELECT Anweisung mußt du dann aber auch die Frequenz und den Außendurchmesser mit angeben.
    Die Do/Loop Schleife ließt jetzt alle Zeilen in die Variablen ein. Soll heißen, dass wenn du nach dieser Schleife mit den Variablen arbeitest, die Werte der letzten Zeile in der Datenbank in den Variablen stehen.
    Du müstest also deine Berechnungen mit in die Schleife bauen, damit jede Zeile der Datenbank berechnet wird, oder in deinen CommandText noch ein WHERE einbauen, damit nur eine bestimmte Zeile gelesen wird.

    Gruß
    HerrFrie

Facebook
Telefonspende