title image


Smiley völlig ratlos ???, aus lauter kummer schon eine rechner boot gemacht :-)
hi,



nein blanks sind nicht drin, das habe ich mir genau angeschaut.



wenn ich bei dieser abfrage das else dazu mache findet er genau diese

stelle mit "7016".



er sollte dann aber in der schleife ( ca. 200 tanks) bei jeder anderen

nummer in den else zweig laufen, aber das macht er dann auch nicht.



das verstehe ich nicht, so eine simple abfrage, nur eingebaut um einen haltepunkt

zu setzen, deshalb auch das tolle x=x.



da ist doch grundsätlich was falsch, in der gleichen sub funktionieren ja andere

abfragen mit strings.



werde das mal auf einen anderen rechner testen ??, oder geh ich jetzt besser in den biergarten ist ja freitag !!!!!!!!!!!!!!



mfg fiddi und schönes wochenende





poste unten mal die ganze sub











      

Private Sub start_pitrans()



        Dim x As Integer

        Dim y As Integer

        Dim i As Integer

        Dim j As Integer



        vStatus = Space(0)

        vValue = Space(0)

        vDate = Date.Now.ToString

        vDate = vDate.Substring(6, 4) & vDate.Substring(3, 2) & vDate.Substring(0, 2) & vDate.Substring(10, 3) & vDate.Substring(14, 2)



        Try

            x = CType(DataGrid1.DataSource, DataTable).Rows.Count ' anzahl zeilen



            For i = 0 To x - 1            'alle zeilen durchlaufen



                DataGrid1.Item(i, 3) = CInt(DataGrid1.Item(i, 3)) + 1



                If CInt(DataGrid1.Item(i, 2)) = CInt(DataGrid1.Item(i, 3)) Then



                    DataGrid1.Item(i, 3) = 0

                    vTank = CStr(DataGrid1.Item(i, 0))

                    vFeld = CStr(DataGrid1.Item(i, 1))

                    vTag = CStr(DataGrid1.Item(i, 4))



                    ' read osi-pi() ------------------------------------------------------------------

                    mySqlStr = "SELECT * FROM picomp WHERE tag = '" & vTag & "' AND time = date('*')"

                    myDtaPi.SelectCommand.CommandText = mySqlStr

                    myTblPi.Clear()

                    y = myDtaPi.Fill(myTblPi) ' y = rueckgabewert anzahl datensätze



                    vStatus = CStr(myTblPi.Rows(0).Item(myTblPi.Columns(1)))



                    If vStatus = "0" Then vValue = CStr(myTblPi.Rows(0).Item(myTblPi.Columns(5)))



                    DataGrid1.Item(i, 7) = vStatus





                    '-----------------test------------------------------

                    Debug.WriteLine(vTank.Length & "  " & vTank.ToString)



                    If vTank = "7016" Then

                        x = x

                    Else

                        i = i

                    End If



                    If StrComp(vTank, "7016", CompareMethod.Text) = 0 Then

                        x = x

                    Else

                        i = i

                    End If

                    '-----------------test------------------------------



                    'write oracel -------------------------------------------------------------------

                    If vStatus = "0" And CDbl(DataGrid1.Item(i, 6)) <> CDbl(vValue) Then

                        DataGrid1.Item(i, 6) = vValue

                        DataGrid1.Item(i, 5) = vDate



                        If CStr(DataGrid1.Item(i, 1)) = "tankstand_in_p" Then

                            Call Tank_Calculating(CDbl(vValue), i)

                            mySqlStr = "update petpo.taaktual set petpo.taaktual.tankstand_in_t = '" & myVolume & "',petpo.taaktual.datum = '" & vDate & "',petpo.taaktual." & vFeld & " = '" & vValue & "' where petpo.taaktual.tanknummer = '" & vTank & "'"

                        Else

                            mySqlStr = "update petpo.taaktual set petpo.taaktual.datum = '" & vDate & "',petpo.taaktual." & vFeld & " = '" & vValue & "' where petpo.taaktual.tanknummer = '" & vTank & "'"

                        End If

                        myCmdOra.CommandText = mySqlStr

                        myExecuteInfo = myCmdOra.ExecuteNonQuery.ToString

                    End If

                End If

            Next

        Catch er As OleDbException



            Dim errorMessages As String

            Dim err_i As Integer



            For err_i = 0 To er.Errors.Count - 1

                errorMessages += "Index #" & i.ToString() & ControlChars.CrLf _

                               & "Message: " & er.Errors(i).Message & ControlChars.CrLf _

                               & "NativeError: " & er.Errors(i).NativeError & ControlChars.CrLf _

                               & "Source: " & er.Errors(i).Source & ControlChars.CrLf _

                               & "SQLState: " & er.Errors(i).SQLState & ControlChars.CrLf

            Next



            Dim log As System.Diagnostics.EventLog = New System.Diagnostics.EventLog

            log.Source = "My Application"

            log.WriteEntry(errorMessages)

            txtInfo.Text = txtInfo.Text & errorMessages



        Finally

            myBusy = 0

        End Try

    End Sub 



Code eingefügt mit Syntaxhighlighter 3.0







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: