Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: SqlConnection

Q-apprentice — Thu, 20 Nov 2008 07:05:17 GMT

Αν έχεις στοιχεία της βάσης δεδομένων (π.χ. όνομα βάσης, όνομα server κτλ....) είναι σχετικά έυκολο να βρείς το connection string...αν δεν κάνω λάθος υπάρχει και ένα site που αναφέρει όλα τα connection strings για όλες σχεδόν τις βάσεις δεδομένων.....τώρα...ξέροντας μόνο το datasource χωρίς να ξέρεις το initial catalog ...εκεί είναι δύσκολο για να σε βοηθήσω....(σε προσωπικό επίπεδο..) μην σου πω και κάτι που μπορεί να μην ισχύει....

Απ: SqlConnection

SotirisPap — Mon, 16 Jun 2008 03:59:27 GMT

Το Me αναφέρεται σε διαφορετική Class.
Ο κώδικας παραπάνω αναφέρει πως γεμίζει με δεδομένα (και πράγματι γεμίζει). Εχει βέβαια και ένα ConnectionString το οποίο το έχωμε ορίσει εμείς Public σε άλλη Class. Εαν υποθέσουμε ότι υπάρχει το ConnectionString αλλά δεν γνωρίζωμε ποίο είναι και έχουμε Μόνον τα δεδομένα του κώδικα δηλ. ουσιαστικά το DataSource του DataGridView πως μπορούμε να βρούμε ConnectionString .

Ευχαριστώ.

Απ: SqlConnection

eliasm — Mon, 16 Jun 2008 03:11:07 GMT

Σε γενικές γραμμές για να έχεις ένα DataGridView στην φόρμα σου κάπως γέμισε με δεδομένα

Μπορείς να γίνεις λίγο πιο συγκεκριμένος για το πως "γέμισε" με δεδομένα το DataGridView;

Επίσης το Me είναι δεσμευμένη λέξη στην VB.NET και στην περίπτωση αν έχεις μια φόρμα όταν το χρησιμοποιείς αναφέρεσαι στην φόρμα.

SqlConnection

SotirisPap — Mon, 16 Jun 2008 00:54:57 GMT

Καλησπέρα σας
Το Me είναι ένα DataGridView
    Private Sub Διαγραφή()
        Try
            Dim s As String = Regex.Replace(Me.Columns(0).HeaderText, "[ ]", "_")
            Dim Kod As String = CStr(Me.Rows(gr).Cells(0).Value)
            Dim tb1 As String = Me.DataSource.ToString
            Dim ds As New DataSet
            Dim q1 As String
            q1 = "DELETE FROM " & tb1 & " WHERE " & s & "= '" & Kod & "'"
            Dim adp As New SqlClient.SqlDataAdapter(q1, *************)
            adp.Fill(ds, tb1)
            Dim str As String = ΠρόσθεσηUnderScound(str)
            q1 = "SELECT " & str & " FROM " & tb1
            adp = New SqlClient.SqlDataAdapter(q1, *************)
            adp.Fill(ds, tb1)
            Me.DataSource = ds.Tables(tb1)
        Catch exc As Exception
            MsgBox(exc.Message, MsgBoxStyle.Exclamation, "Dg ...... Διαγραφή")
        End Try
    End Sub
    Private Function ΠρόσθεσηUnderScound(ByVal str As String) As String
        For i As Integer = 0 To Me.Columns.Count - 1
            If i = Me.Columns.Count - 1 Then
                str += Regex.Replace(Me.Columns(i).HeaderText, "[ ]", "_")
            Else
                str += Regex.Replace(Me.Columns(i).HeaderText, "[ ]", "_") & " ,"
            End If
        Next
        Return str
    End Function
Εαν γνωρίζομε Μόνον τα παραπάνω πως μπορούμε να βρούμε το ConnectionString (*************)

Ευχαριστώ