GetRow Daten ändern in HTA mit VBScript

  • VBScript

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

    GetRow Daten ändern in HTA mit VBScript

    Hallo zusammen,

    ich stehe seit Tagen vor folgendem Problem: ich lese aus einer foxpro Datenbank Daten aus, so weit so gut. Nun habe ich 2 Fleder als Ergebnis: Spalte eins sind Tage in Form von Zahlen..also 1 für Sonntag usw., Spalte 2 ist ein Mittelwert. So weit so gut, das query hab ich schon vorher beim auslesen gebildet.
    Nun zum eigentlichen Problem: Ich möchte das Spalte 1 also die Wochentage auch als Wochentage angezeigt werden. CDOW funktioniert nicht da der ODBC Treiber für Foxpro unvollständige Tagesnamen angibt..also Wednes Wednesday usw. Daher war mein Gedankengang jener, die Daten im GetRow Array einfach umzu benennen: sprich aus 1 mach Sonntag usw.:

    Quellcode

    1. Sub OnChangeStation()
    3. On Error Resume Next
    4. SetLocale("de")
    6. Set MyConn = CreateObject("ADODB.Connection")
    7. MyConn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB="&Datei&";Exclusive=No"
    8. SQL_query1 = "SELECT DOW(daaprotx.datum)as Wochentag,Count(daaprotx.datum)/COUNT(DISTINCT daaprotx.datum)As Rückgaben FROM daaprotx WHERE BETWEEN (daaprotx.datum, gomonth(date(), -12), daaprotx.datum) AND(daaprotx.prottyp='1') AND(daaprotx.station='"&Station.options(Station.selectedIndex).value&"')Group by 1"
    10. Set rs=CreateObject("ADODB.recordset")
    11. rs.Open SQL_query1, MyConn
    13. If Err.Number <>0 Then
    14. MsgBox "Sie haben kein Verzeichnis ausgewählt"
    15. End If
    16. On Error Goto 0
    18. Dim arrAllData
    19. arrAllData = rs.GetRows()
    21. Dim numCols 'number of fields per row in results
    22. Dim numColCounter 'used to loop through the columns
    23. Dim numRows 'number of rows in results
    24. Dim numRowCounter 'used to loop through the rows
    25. Dim strthisfield 'current field in loop
    27. numCols = UBound(arrAllData, 1)
    28. numRows = UBound(arrAllData, 2)
    29. Document.Write("<table border=1 cellpadding=8><tr>" & vbcrlf)
    31. 'loop through rows
    32. For numRowCounter = 0 To numRows
    33. Document.Write("<tr>" & vbcrlf)
    34. 'for each column
    35. For numColCounter = 0 to numCols
    36. strthisfield = arrAllData(numColCounter, numRowCounter)
    37. If IsNull(strthisfield) Then
    38. strthisfield = "-null-"
    39. End If
    40. If Trim(strthisfield) = "" Then
    41. strthisfield = " "
    42. End If
    43. Select Case strthisfield
    44. Case "2"
    45. strthisfield("2") = "Montag"
    46. Case Else
    47. End Select
    50. Document.Write("<td >" & Round(strthisfield) & "</td>" & vbcrlf)
    51. Next
    52. Document.Write("</tr>" & vbcrlf)
    53. Next
    55. Document.Write("</table>")
    57. rs.Close
    58. Set rs = Nothing
    59. MyConn.close
    60. Set MyConn = Nothing
    62. End Sub


    hier mal mein Code, ich habe nun schon sehr viel probiert und scheitere durchweg, bin leider auch erst ein *junger* programmierer und hab es nun auch schon mit getstring und If--EOF probiert, denke ich habe da irgendwo einen Denkfehler. Vielleicht weiss einer von euch ja wie man das schöner löst :)

    Mfg Cryings

Facebook
Telefonspende