منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة في طريقة كود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3 4 5
السلام عليكم ورحمة الله وبركاته

اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟

هذا كود اضافة البيانات في مشروعي

كود :
Conn.Open()
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber) values ( '" & Trim(TextBox1.Text) & "' , " & Val(TextBox2.Text) & " )", Conn)
Cmd.ExecuteNonQuery()

        RefreshListView()


اما كود الاضافة من النوع الثاني

كود :
Dim picStream As New MemoryStream
        PictureBox1.Image.Save(picStream, ImageFormat.Gif)
        Dim PicByte As Byte() = picStream.ToArray
        Dim cm As New SqlCommand("insert into Table1 (UserName,Img) values (@UserName,@Img)", Conn)
        cm.Parameters.AddWithValue("@UserName", SqlDbType.NVarChar).Value = picname.Text
        cm.Parameters.AddWithValue("@Img", SqlDbType.VarBinary).Value = PicByte

        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        cm.ExecuteNonQuery()
        MsgBox("تم الحفظ")

حااولت كثيرا في استخدام طريقة الكود الثاني لكن ظهرت لي مشاكل،،، لان مشروعي كله بنفس طريقة الكود الاول ،،
الان اريد تحويل الكود الثاني لكود مشروعي
[COLOR="#FF0000"][b]المثال من الرابط التالي :
http://www.mediafire.com/?25mnxh465qdbqhr
[/COLOR]

[/b]
[COLOR="#A52A2A"]السلام عليكم

PHP كود :
Conn.Open()
        
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber,Img) values ( '" Trim(TextBox1.Text) & "' , " Val(TextBox2.Text) & "," PicByte)
        
Cmd.ExecuteNonQuery()

        
RefreshListView() 
[/COLOR]
sajad كتب :[b][COLOR="#A52A2A"]السلام عليكم

PHP كود :
Conn.Open()
        
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber,Img) values ( '" Trim(TextBox1.Text) & "' , " Val(TextBox2.Text) & "," PicByte)
        
Cmd.ExecuteNonQuery()

        
RefreshListView() 
[/COLOR]

اخي ظهر لي خطأ في " & PicByte ،، اتوقع بسبب عدم وجود

كود :
, Conn)

لكن برضوا يطلع خطأ ؟
[/b]
هل ساعدتني من فضلك اخي الكريم
Up Up Up Up
اتمنى مساعدتي في اقرب وقت ،، مشروعي موقف بسبب هذه المشكله لمدة خمسة ايام Sad
[COLOR="#A52A2A"]السلام عليكم

تفضل

PHP كود :
Dim Cmd As New SqlCommand("insert into Table1 (UserName,MobileNumber,Img) values ( '" Trim(TextBox1.Text) & "' , " Val(TextBox2.Text) & "," PicByte ")"Conn)
        
Cmd.ExecuteNonQuery()

        
RefreshListView() 
[/COLOR]
[COLOR="#FF0000"]اخي ظهرت مشكلة انظرها في الرابط التالي
http://im35.gulfup.com/yUWLx.png[/COLOR]
سانظر في المشروع واسال الله ان يعينني عليهSmile
[COLOR="#A52A2A"]صحيح اخي العزيز

كنت اكتب الاكواد بدون ما اجربها عذرا لم اتوقع ان تظهر هذا الخطأ[/COLOR]
الصفحات : 1 2 3 4 5