Hallo,
ich stell mich mal wieder dähmlich an. Normalerweise schreibe ich nur in VBS. Da wir auf arbeit ne neue Software bekommen muss ich auf VB.NET umsteigen.
Ich möchte eine Datenbankabfrage machen. Um das Ganze zu testen, habe ich alles kurz mit VBS durchgespielt und hatte Erfolg. Nun wollte ich den Code auf VB.NET anpassen.
Wenn ich den Code ausführe bleibt er mir in einer Schleife hängen ohne einen Fehler auszuspucken.
Im Detail bleibt er mir immer dann hängen wenn ich Ergebnis_SWPDM_WRITE("VALUETEXT") einsetze.!
Wenn ich in der Schleife Do While Not Ergebnis_SWPDM_WRITE.eof alles, bis auf die Test MsgBox 2.8 auskommentiere läuft die Schleife durch. (hab ich mit Test MsgBox 3.4 kontrolliert)
Ich hab schon überlegt ob ich bei der Deklaration von Dim Ergebnis_SWPDM_WRITE As Object etwas falsch mache.
Naja jedenfalls hoffe ich, das Ihr mir die Augen öffnen könnt.
ich stell mich mal wieder dähmlich an. Normalerweise schreibe ich nur in VBS. Da wir auf arbeit ne neue Software bekommen muss ich auf VB.NET umsteigen.
Ich möchte eine Datenbankabfrage machen. Um das Ganze zu testen, habe ich alles kurz mit VBS durchgespielt und hatte Erfolg. Nun wollte ich den Code auf VB.NET anpassen.
Wenn ich den Code ausführe bleibt er mir in einer Schleife hängen ohne einen Fehler auszuspucken.
Im Detail bleibt er mir immer dann hängen wenn ich Ergebnis_SWPDM_WRITE("VALUETEXT") einsetze.!
Wenn ich in der Schleife Do While Not Ergebnis_SWPDM_WRITE.eof alles, bis auf die Test MsgBox 2.8 auskommentiere läuft die Schleife durch. (hab ich mit Test MsgBox 3.4 kontrolliert)
Ich hab schon überlegt ob ich bei der Deklaration von Dim Ergebnis_SWPDM_WRITE As Object etwas falsch mache.
Naja jedenfalls hoffe ich, das Ihr mir die Augen öffnen könnt.
VB.NET-Quellcode
- If poCmd.meCmdType = EdmCmdType.EdmCmd_Menu Then
- If poCmd.mlCmdID = 1 Then
- 'Für alle betroffenen Dateien
- Dim Zaehler As Long
- Zaehler = LBound(ppoData)
- Dim Letzter_Zaehler As Long
- Letzter_Zaehler = UBound(ppoData)
- Dim Dateiname As String
- Dim Datei_ID As Long
- Dim Ordner_ID As Long
- Dim arrayLine As EdmCmdData
- While Zaehler <= Letzter_Zaehler
- arrayLine = ppoData(Zaehler)
- Dateiname = arrayLine.mbsStrData1
- Datei_ID = arrayLine.mlObjectID1
- Ordner_ID = arrayLine.mlObjectID2
- MsgBox(Dateiname)
- Dim DBVerbindung_SWPDM_WRITE As Object
- Dim SQL_ABfrage_SWPDM_WRITE As String
- Dim Ergebnis_SWPDM_WRITE As Object
- Dim MSG_Text As String
- Const Verbindung_SWPDM_WRITE = "Provider=SQLOLEDB.1;Password=xyaqw;Persist Security Info=True;User ID=xyaqw;Initial Catalog=ITAB;Data Source=171DB1"
- DBVerbindung_SWPDM_WRITE = CreateObject("ADODB.Connection")
- DBVerbindung_SWPDM_WRITE.Open(Verbindung_SWPDM_WRITE)
- SQL_ABfrage_SWPDM_WRITE = "SELECT DOCUMENTID, VALUETEXT, VARIABLEID FROM VARIABLEVALUE WHERE VARIABLEID = '72' AND DOCUMENTID = '12901'"
- Ergebnis_SWPDM_WRITE = DBVerbindung_SWPDM_WRITE.Execute(SQL_ABfrage_SWPDM_WRITE)
- Ergebnis_SWPDM_WRITE.Movefirst
- 'MsgBox(Ergebnis_SWPDM_WRITE("VARIABLEID"))
- Do While Not Ergebnis_SWPDM_WRITE.eof
- MsgBox("2.8")
- MSG_Text = Ergebnis_SWPDM_WRITE("VALUETEXT")
- MsgBox(MSG_Text)
- ' MsgBox("3.0")
- Ergebnis_SWPDM_WRITE.Movenext
- Loop
- Ergebnis_SWPDM_WRITE.Close
- DBVerbindung_SWPDM_WRITE.Close
- MsgBox("3.3")
- Zaehler = Zaehler + 1
- End While
- MsgBox("3.4")
- End If
- End If