محتاج مساعدة شفرة لخزن الصور في قاعدة بيانات sql server

محمد فؤاد تركي كتب:

اتمني ان يساعدك هذا الرابط

 

/index.php/topic/96743-%D8%AD%D9%81%D8%B8-%D8%B5%D9%88%D8%B1%D8%A9-%D8%AF%D8%A7%D8%AE%D9%84-%D9%82%D8%A7%D8%B9%D8%AF%D8%A9-%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-sqlserver-%D8%A8%D8%A5%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-vbnet2005/

مشكور استاذ

عندما طبقت الكود يظهر لي مسج بوك فيه العبارة التالية

must declare the scalar variable "@picname"

ماذا يجب ان افعل

مع كثير الشكر

الرسالة تقول بان لابد من تعريف متغير اسمة @picname فهل قمت بتعريفة

محمد فؤاد تركي كتب:

الرسالة تقول بان لابد من تعريف متغير اسمة @picname فهل قمت بتعريفة

اشكرك استاذي والله يوفقك تم حل المشكلة مع الشكر الجزيل

Dim con As New SqlConnection("Data Source=MKYH86-PC; Initial Catalog=family;Integrated Security=True")

        Dim fname As String

        If Filedlg.ShowDialog = DialogResult.OK Then

            picbox1.Image = Image.FromFile(fileDlg.FileName)

            Dim m() As String = Split(Filedlg.FileName, "\")

            Array.Reverse(m)

            fname = m(0)

        Else

            Exit Sub

        End If

        Dim arrfilename() As String = Split(fname, "\")

        Array.Reverse(arrfilename)

        Dim ms1 As New MemoryStream()

        picbox1.Image.Save(ms1, picbox1.Image.RawFormat)

        Dim arrimg() As Byte = ms1.GetBuffer

        ms1.Close()

        Dim strSQL As String = _

              "insert into table_1 (au_id,au_lname,au_fname,picfilename,picture)" & _

              "values(@id,@na,@nl,@picname,@pic)"

        Dim cmdSQL As New SqlCommand(strSQL, con)

        With cmdSQL

.Parameters.Add(New SqlParameter("@id", SqlDbType.VarChar)).Value = InputBox("ادخل الرقم")

.Parameters.Add(New SqlParameter("@na", SqlDbType.VarChar)).Value = InputBox("ادخل اسم الاب")

.Parameters.Add(New SqlParameter("@nl", SqlDbType.VarChar)).Value = InputBox("ادخل الاسم الاول")

.Parameters.Add(New SqlParameter("@picname", SqlDbType.NVarChar, 255)).Value = ("اخل ملاحظات عن الصورة")

.Parameters.Add(New SqlParameter("@pic", SqlDbType.Image)).Value = arrimg

        End With

        Try

            con.Open()

            cmdSQL.ExecuteNonQuery()

            con.Close()

            MsgBox("The new item added in table ")

        Catch ex As SqlException

            MsgBox(ex.Message)

        Finally

            con.Close()

        End Try

    End Sub

شاكرا تعاونكم...مع التقدير