ADO.NET

Απ: Compute-Filter

George J. Capnias — Tue, 18 Nov 2008 15:54:23 GMT

Δεν υπάρχει συνέχεια στις δημοσιεύσεις που έχουν γίνει στο thread - έκανα μια ερώτηση εγώ, απάντησες με άλλη καινούργια ερώτηση διαφορετική από το προηγούμενο θέμα... Θα πρέπει να με βοηθήσεις να καταλάβω ποιο είναι το πρόβλημα ώστε να μπορέσω να απαντήσω - αν είναι κάτι καινούργιο αυτό που θες να ρωτήσεις, τότε θα πρέπει να ξεκινήσεις ένα νέο thread.

George J.

Απ: Compute-Filter

SotirisPap — Sun, 16 Nov 2008 23:49:03 GMT

Καλησπέρα σας.
Public Sub New(ByVal TableSpDg As DataTable)
MyBase.New()
Tbsp = TableSpDg.Copy

Dim ΧρώμαThread As Thread
ΧρώμαThread = New Thread(AddressOf ThreadCms)
ΧρώμαThread.Priority = ThreadPriority.BelowNormal
ΧρώμαThread.IsBackground = True
ΧρώμαThread.Start()

End Sub

Κάνω εισαγωγή το Table στην Class με τον παραπάνω τρόπο και από ότι έχω καταλάβει μέχρι σήμερα για την σύνταξη queries χρειάζεται και το ConnectionString.Ερώτηση: είναι καλύτερα να εισάγω και το ConnectionString ; Το χρησιμοποιώ μόνο σε αυτή την Sub.
Ευχαριστώ.

Απ: Compute-Filter

George J. Capnias — Sun, 16 Nov 2008 19:28:21 GMT

SotirisPap:
Καλησπέρα σας.
Πως μπορεί να είναι η σύνθεση του Φίλτρο ,για να αποφύγω το Loop στο ΕισαγωγήΑΑ δεδομένου ότι το Table δεν έχει Primary Key.

Table = πίνακας σε βάση δεδομένων, από ότι καταλαβαίνω. Γιατί δεν χρησιμοποιείς SQL queries για την ανεύρεση του ελάχιστου και του μέγιστου, αλλά φτιάχνεις ένα τέτοιο αλγόριθμο;

George J.

Απ: Compute-Filter

SotirisPap — Sun, 16 Nov 2008 03:08:23 GMT

Καλησπέρα σας.
Το έκανα κάπως έτσι και λειτουργεί.
    Private Sub ΕύρεσηMaxiMini(ByVal Maxi() As Decimal, ByVal Mini() As Decimal, ByVal Total() As Decimal, ByVal Totps() As Decimal)
        Try
            Dim tit As String = CStr(Tbsp.Columns(0).Caption)
            Dim apo As String = CStr(Tbsp.Rows(Από).Item(0))
            Dim eos As String = CStr(Tbsp.Rows(Εως).Item(0))
            Dim dep As String = eos
            If apo > eos Then
                apo = eos
                eos = dep
            End If
            Dim Totth(col), Totar(col) As Decimal
            For j As Integer = 0 To Tbsp.Columns.Count - 1
                If IsNumeric(Tbsp.Rows(0).Item(j)) AndAlso ΑπόΣτήλη(j) = True Then
                    Dim cc As String = Tbsp.Columns(j).Caption
                    Dim Φίλτρο As String = String.Format("{0}>='{1}' AND {0}<='{2}' ", tit, apo, eos)
                    Maxi(j) = CDec(Tbsp.Compute("MAX(" & cc & ")", Φίλτρο))
                    Mini(j) = CDec(Tbsp.Compute("MIN(" & cc & ")", Φίλτρο))
                    Total(j) = CDec(Tbsp.Compute("SUM(" & cc & ")", Φίλτρο))
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SpGraph ... ΕύρεσηMaxiMini")
        End Try
End Sub

Ευχαριστώ

Compute-Filter

SotirisPap — Sun, 09 Nov 2008 08:02:34 GMT

Καλησπέρα σας.
Πως μπορεί να είναι η σύνθεση του Φίλτρο ,για να αποφύγω το Loop στο ΕισαγωγήΑΑ δεδομένου ότι το Table δεν έχει Primary Key.
    Private Sub ΕύρεσηMaxiMini(ByVal Maxi() As Decimal, ByVal Mini() As Decimal, ByVal Total() As Decimal, ByVal Totps() As Decimal)
        Try
            For j As Integer = 0 To Tbsp.Columns.Count - 1
                If IsNumeric(Tbsp.Rows(0).Item(j)) AndAlso ΑπόΣτήλη(j) = True Then
                    Dim cc As String = Tbsp.Columns(j).Caption
                    Dim Φίλτρο As String = "ΑΑ>=" & Από & " AND " & "ΑΑ<=" & Εως
                    Maxi(j) = CDec(Tbsp.Compute("MAX(" & cc & ")", Φίλτρο))
                    Mini(j) = CDec(Tbsp.Compute("MIN(" & cc & ")", Φίλτρο))
                    Total(j) = CDec(Tbsp.Compute("SUM(" & cc & ")", Φίλτρο))
                    End If
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "SpGraph ... ΕύρεσηMaxiMini")
        End Try
    End Sub

    Private Sub ΕισαγωγήΑΑ(ByVal Tb As DataTable)
        Tb.Columns.Add(New DataColumn("ΑΑ", GetType(Integer)))
        For i As Integer = 0 To Tb.Rows.Count - 1
            Tb.Rows(i).Item("ΑΑ") = i
        Next
    End Sub
Ευχαριστώ