ايرور عند محاولة الانسيرت في جدول باستخدام الداتاست

السلام عليكم

عليك بالتأكد من تعريف

PicAdap.InsertPictures

حيث تم تمرير متغيرات اكثر من المعرفة فيه

TareqVB كتب:

السلام عليكم

عليك بالتأكد من تعريف

PicAdap.InsertPictures

حيث تم تمرير متغيرات اكثر من المعرفة فيه

أشواك ناعمة كتب:

لا لقد تاكدت مرارا و تكرار من تعريف InsertPictures

و فيه 4 متغيرات

و احداها اريد اضافة باث لل Pic

و البيكجر تتسيف في فايل

و لكن لا ادري اين الخلل

Adapter.InsertWithPicture(categoryName, description, brochurePath, picture)

هذه الستيتمينت

تضيف البيكجر في الجدول

و انا لا اريد اضافتها دايركت في الجدول

بل اضافة الباث فقط

و البيكجر داخل فايل

و هذا الكونفيقر لل InsertPictures

INSERT INTO [Pictures]

([Photo_Title], [ Photo_Url], [Photo_Description], [ Photo_Group_ID])

VALUES (?, ?, ?, ?);

و سويت الاكسيكيوت مود scalar

السلام عليكم

مرة اخرى تعريف InsertPictures() غير صحيح حيث يجب ان يكون على الشكل التالي

InsertWithPicture(categoryName as string, description  as string, brochurePath  as string, picture as integer)

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim PicAdap As New DataSet1TableAdapters.PicturesTableAdapter()
        If UploadTest.HasFile = False Then
            ' No file uploaded!
            UploadDetails.Text = "Please first select a file to upload..."
        Else
            ' Display the uploaded file's details
            UploadDetails.Text = String.Format( _
                    "Uploaded file: {0}<br />" & _
                    "File size (in bytes): {1:N0}<br />" & _
                    "Content-type: {2}", _
                    UploadTest.FileName, _
                    UploadTest.FileBytes.Length, _
                    UploadTest.PostedFile.ContentType)

            ' Save the file
            Dim filePath As String = _
                Server.MapPath("~/files/" & UploadTest.FileName)
            PicAdap.InsertPictures(TextBox1.Text as string, filePath as string , TextBox2.Text as string, DropDownList1.SelectedIndex as integer)

            UploadTest.SaveAs(filePath)
        End If

    End Sub

هذا الكود مخصص لاضافة ريكورد داخل الداتابيس و من ضمن الريكورد اضافة باث صورة

و اضافة الصورة في فايل و ليس الداتابيس

لازال الايرور قائما

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30057: Too many arguments to 'Public Overridable Function InsertPictures() As Object'.

Source Error:

Line 22: Dim filePath As String = _

Line 23: Server.MapPath("~/files/" & UploadTest.FileName)

Line 24: PicAdap.InsertPictures(TextBox1.Text as string, filePath as string , TextBox2.Text as string, DropDownList1.SelectedIndex as integer)

Line 25:

Line 26: UploadTest.SaveAs(filePath)