+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في طريقة كود (/showthread.php?tid=7935)
مشكلة في طريقة كود - shado1796 - 12-03-13
السلام عليكم ورحمة الله وبركاته
اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟
هذا كود اضافة البيانات في مشروعي
اما كود الاضافة من النوع الثاني
حااولت كثيرا في استخدام طريقة الكود الثاني لكن ظهرت لي مشاكل،،، لان مشروعي كله بنفس طريقة الكود الاول ،،
الان اريد تحويل الكود الثاني لكود مشروعي
[COLOR="#FF0000"][b]المثال من الرابط التالي :
http://www.mediafire.com/?25mnxh465qdbqhr
[/COLOR]
[/b]
اخواني في شئ بسيط هو ان طريقة نوع كود الاضافة عندي في مشروعي يختلف عن طريقة نوع كود الاضافة في الصور كيف اسوي ؟
هذا كود اضافة البيانات في مشروعي
كود :
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]
مشكلة في طريقة كود - Sajad - 12-03-13
[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()
مشكلة في طريقة كود - shado1796 - 12-03-13
sajad كتب :[b][COLOR="#A52A2A"]السلام عليكم
[/COLOR]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()
اخي ظهر لي خطأ في " & PicByte ،، اتوقع بسبب عدم وجود
كود :
, Conn)لكن برضوا يطلع خطأ ؟
[/b]
مشكلة في طريقة كود - shado1796 - 12-03-13
هل ساعدتني من فضلك اخي الكريم
مشكلة في طريقة كود - shado1796 - 12-03-13
Up Up Up Up
مشكلة في طريقة كود - shado1796 - 13-03-13
اتمنى مساعدتي في اقرب وقت ،، مشروعي موقف بسبب هذه المشكله لمدة خمسة ايام
مشكلة في طريقة كود - Sajad - 13-03-13
[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()
مشكلة في طريقة كود - shado1796 - 13-03-13
[COLOR="#FF0000"]اخي ظهرت مشكلة انظرها في الرابط التالي
http://im35.gulfup.com/yUWLx.png[/COLOR]
مشكلة في طريقة كود - سعود - 13-03-13
سانظر في المشروع واسال الله ان يعينني عليه
مشكلة في طريقة كود - Sajad - 13-03-13
[COLOR="#A52A2A"]صحيح اخي العزيز
كنت اكتب الاكواد بدون ما اجربها عذرا لم اتوقع ان تظهر هذا الخطأ[/COLOR]