Μου βγαζει το παρακάτω μηνυμα και μου χτυπαει στο cmd.Connection = Me.OleDbConnection1:


Object reference not set to an instance of an object

Ο κωδικας είναι παρακάτω:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim track As String
        Dim cmd As OleDb.OleDbCommand

        Me.OleDbConnection1.Open()
        cmd.Connection = Me.OleDbConnection1
        cmd.CommandType = CommandType.Text

        For Each track In Me.DriveListBox1.SelectedValue
            Dim param1 As New OleDb.OleDbParameter("@title", OleDb.OleDbType.VarChar)
            cmd.Parameters.Add(param1)
            cmd.Parameters("title").Value = track

            Dim param2 As New OleDb.OleDbParameter("@cd_id", OleDb.OleDbType.Integer)
            cmd.Parameters.Add(param2)
            cmd.Parameters("cd_id").Value = Me.TrackDS1.Tables.Count

            cmd.CommandText = "INSERT INTO Titles (title,CDROM_ID) VALUES (@title,cd_id)"
            Try
                cmd.ExecuteNonQuery()
            Catch ex As Exception
            End Try
        Next

        Me.OleDbConnection1.Close()
    End Sub



Καμια βοηθεια?

To

Dim cmd As OleDb.OleDbCommand

κάντο

Dim cmd As New OleDb.OleDbCommand

Στην πρώτη γραμμή δηλώνεις μια μεταβλητή τύπου OleDb.OleDbCommand. Στην δεύτερη τη δηλώνεις και φτιάχνεις και ένα instance ταυτόχρονα. Είναι σαν να λες δηλαδή:

Dim cmd As OleDb.OleDbCommand
cmd = New OleDb.OleDbCommand

 

---

Vir prudens non contra ventum mingit