SQL aus Datei ausführen

  • VB.NET

    SQL aus Datei ausführen

    Hallo
    habe noch eine Sache:
    Habe ein PHP-Script geschrieben, das 3 SQL-Anweisungen ineinander ausgibt. Jetzt habe ich diese SQL anweisungen in eine txt Datei gepackt und möchte diese 3 Anweisungen genau so ausgeben. Ich zeige euch kurz den PHP-Auszug:

    *editiert*

    So in der txt-Dateii steht jetzt:
    SQL1: erste anweisung
    SQL1.1: ...
    SQL1.2: ...
    SQL 1.2.1: ...

    Wie kann ich die jetzt genau ausführen.

    Falls ihr da was niht versteht bitte fragt (ist was doof geschrieben).

    Aso ich habe schon einen Ansatz:

    Quellcode

    1. Public Function AddItem(ByVal Parent As Panel, ByVal gHeight As Integer, ByVal Pfad As String, ByVal Counter As StatusBarPanel) As Integer
    2. 'Dim tst As clsItem
    3. Dim tst As uctItem
    4. Dim i As Integer
    5. For Each tst In myObjects
    6. If Not tst Is Nothing Then
    7. tst.Top = i * 100
    8. i += 1
    9. Application.DoEvents()
    10. End If
    11. Next
    13. Static ObjCount As Integer
    14. Parent.Visible = False
    15. If OpenDB() = True Then
    16. FileOpen(1, Pfad, OpenMode.Input, OpenAccess.Read) 'Öffne txt-Datei
    17. cString = LineInput(1)
    18. cString = Replace(cString, Left(cString, InStr(cString, ":")), "") ' SQL-Befehl aus Zeile 1
    19. FileClose(1)
    20. Command = New OdbcCommand(cString, DBCon)
    21. Try ' Auswertung der ersten Zeile. Wie kann ich hier die 2. SQL-Zeile dann mit einbeziehen?
    22. Reader = Command.ExecuteReader
    23. Do While Reader.Read
    24. ReDim Preserve myObjects(ObjCount)
    25. 'myObjects(ObjCount) = New clsItem
    26. myObjects(ObjCount) = New uctItem
    28. With myObjects(ObjCount)
    29. 'If ObjCount Mod 2 = 1 Then
    30. ' .IsMod = True
    31. 'Else
    32. ' .IsMod = False
    33. 'End If
    34. .Top = gHeight
    35. gHeight += 100
    36. .Left = 0
    37. .Width = Parent.Width
    38. .lblBugID.Text = Format(Reader.Item(0), "0000000")
    39. .lblUser.Text = "- " & Reader.Item("username")
    40. .lblProjektID.Text = Format(Reader.Item("ProjectID"), "000")
    41. .lblProjekt.Text = "- " & Reader.Item("ProjectName")
    42. .txtBeschreibung.Text = Reader.Item("BugDescription")
    43. .lblStatus.Text = GetStatus(Reader.Item("Status"))
    44. End With
    45. Parent.Controls.Add(myObjects(ObjCount))
    46. ObjCount = ObjCount + 1
    47. Loop
    48. Counter.Text = ObjCount
    49. Catch ex As Exception
    50. MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace)
    51. Finally
    52. Reader.Close()
    53. End Try
    54. Parent.Update()
    55. AddItem = gHeight
    56. CloseDB()
    57. Parent.Visible = True
    58. End If
    59. End Function

Facebook
Telefonspende