Dim qry As String = "insert into Media(Name,Description,Path,TypeID,FileType,location) values(?,?,?,?,?,3)"
Dim parName As New OleDb.OleDbParameter("Name", OleDb.OleDbType.LongVarChar)
Dim parDescription As New OleDb.OleDbParameter("Description", OleDb.OleDbType.LongVarChar)
Dim parPath As New OleDb.OleDbParameter("Path", OleDb.OleDbType.LongVarChar)
Dim parTypeID As New OleDb.OleDbParameter("TypeID", OleDb.OleDbType.Numeric)
Dim parFileType As New OleDb.OleDbParameter("FileType", OleDb.OleDbType.LongVarChar)
Dim cmm As New OleDb.OleDbCommand(qry)
Dim idselect As New OleDb.OleDbCommand
Dim qry1 As String = "select id from media where name=? and description=? and path=? and typeid=? and filetype=?"
cmm.Connection = cn
cmm.Parameters.Add(parName)
cmm.Parameters.Add(parDescription)
cmm.Parameters.Add(parPath)
cmm.Parameters.Add(parTypeID)
cmm.Parameters.Add(parFileType)
cmm.Parameters("Name").Value = mName
cmm.Parameters("Description").Value = description
cmm.Parameters("Path").Value = mypath
cmm.Parameters("TypeID").Value = Me.cmbTypes.SelectedValue
cmm.Parameters("FileType").Value = ext
cn.Close()
cn.ConnectionString = conString
Try
cn.Open()
cmm.ExecuteNonQuery()
cn.Close()
Catch ex As Exception
MessageBox.Show(ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
cmm.CommandText = qry1
Dim dr As OleDb.OleDbDataReader
cn.Open()
dr = cmm.ExecuteReader
Dim id As String
If dr.Read Then
id = dr.Item("ID")
End If
dr.Close()
cn.Close()