Απ: Μημυμα λαθους σε Vb.net

KelMan — Mon, 25 Dec 2006 10:44:17 GMT

Dim cmd As OleDb.OleDbCommand

κάντο

Dim cmd As New OleDb.OleDbCommand

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

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

Μημυμα λαθους σε Vb.net

it048 — Mon, 25 Dec 2006 08:00:05 GMT

Μου βγαζει το παρακάτω μηνυμα και μου χτυπαει στο 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

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

WinForms

Απ: Μημυμα λαθους σε Vb.net

Μημυμα λαθους σε Vb.net