امر محير اريد حلا

بسم الله الرحمن الرحيم

أخى العزيز

حط الكود ده قبل ال label

cmd.excutenonquery

اخي bodman

ما نفع بعطيني error

1 'excutenonquery' is not a member of 'System.Data.SqlClient.SqlCommand'. C:\...\ \

اخي ساعدني انا بدي اعرف شو المشكلة وليش ما بضيف

انا بعرف اضيف بطريقة اخرى بس حاب اتعلم هاي الطريقة لاني بدي اصير استخدم ال sql server مش express

بارك الله فيك

السلام عليكم

        Dim ConnStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Conn As New SqlConnection(ConnStr)
        Conn.Open()

        Dim cmd As New SqlCommand()

        cmd.Connection = Conn
        cmd.CommandText = "Insert Into users (username, password) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"

        cmd.ExecuteNonQuery()
        Label1.Text = "Added successfully"


        Conn.Close()

كما قال اخي bodaman22

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

يمكن انت نقلتها بحرفيتها

cmd.excutenonquery

اي لم تضع قوسين تذكر انك تنفذ اجراء وبذلك تحتاج الى قوسين

بكل الاحوال تمنى ان تكون قد وضحت الامور

بارك الله فيكم

فعلا نفع الحل

بارك الله فيكم مرة اخرى

الان عندي طلب صغير

وهو انكم رايتم جملة ال insert بالكود وهي تعتمد على الtextbox

الان اريد ان تكتبول لي جمل select , update و delete

بارك الله فيكم

وجربوها

AsJsGle

شكرا اخي

ارجوا ان لا اكون قد ازعجتك

تابع مساعدتي اخي

:wub:

لسلام عليكم

ولا يهمك اخي

الفكرة انو تريد ان تعمل الجمل تلك على نفس الحقول ام ماذا

هل تريد ان اعمل لك كل صفحة على مثال ام ان هناك شيء بعقلك :lol:

المهم احببت ان انوه الى شيء ان استعلامك سهل الاختراق (sql injection)

لذلك عليك استخدام البرمترات

        Dim ConnStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
        Dim Conn As New SqlConnection(ConnStr)
        Conn.Open()

        Dim cmd As New SqlCommand()

        cmd.Connection = Conn
        cmd.CommandText = "Insert Into users (username, password) values ( @username,@password)"

        cmd.ExecuteNonQuery()
        Label1.Text = "Added successfully"


        Conn.Close()

اخي الكريم جربت طريقتك

cmd.Parameters.AddWithValue("@username", TextBox1.Text)

cmd.Parameters.AddWithValue("@password", TextBox2.Text)

ولكن اخي الاضافة صارة من الاعلى يعني اخر شيء بضيفه يصبح اول شيء بالترتيب

اخي ممكن تكتبلي كل الجمل select و del ..........

بطريقتي وطريقتك

بارك الله فيك

:blush:

بسم الله الرحمن الرحيم

أخى العزيز

كبداية متاسف كتبت لك الجملة غير صحيحة لكن صديقى العزيز AsJsGle

صححها اتمنى تكون استفدت

اما بالنسبة لل del و ياريت لو تمشى على ال Parameters

يعنى على طريقة الأخ AsJsGle

   Dim cmd As New SqlClient.SqlCommand
        cmd.CommandText = "delete from users where username=@username"
        cmd.Parameters.AddWithValue("@username", TextBox1.Text)
 cmd.ExecuteNonQuery()       
 Label1.Text = "del successfully"

اما بالنسبة لل select

 Dim dr As SqlClient.SqlDataReader

  cmd.CommandText = "select * from users where username=@username"
        cmd.Parameters.AddWithValue("@username", TextBox1.Text)
        dr = cmd.ExecuteReader
        Do While dr.Read
            textbox2.text = Trim(dr("password"))
        Loop

اتمنى اكون افدتك

bodaman22 كتب:

بسم الله الرحمن الرحيم

أخى العزيز

كبداية متاسف كتبت لك الجملة غير صحيحة لكن صديقى العزيز AsJsGle

صححها اتمنى تكون استفدت

اما بالنسبة لل del و ياريت لو تمشى على ال Parameters

يعنى على طريقة الأخ AsJsGle

   Dim cmd As New SqlClient.SqlCommand
        cmd.CommandText = "delete from users where username=@username"
        cmd.Parameters.AddWithValue("@username", TextBox1.Text)
 cmd.ExecuteNonQuery()       
 Label1.Text = "del successfully"

اما بالنسبة لل select

 Dim dr As SqlClient.SqlDataReader

  cmd.CommandText = "select * from users where username=@username"
        cmd.Parameters.AddWithValue("@username", TextBox1.Text)
        dr = cmd.ExecuteReader
        Do While dr.Read
            textbox2.text = Trim(dr("password"))
        Loop

اتمنى اكون افدتك

اخي الكريم

لا داعي للاعتذار

واشكرك على سعة صدرك

اخي

كود السلكت جربته وهو يعطيني الباسورد داخل التكست الثاني وهذا انا لا اريده

انا ارد الجملة تخرجلي كل الاعمدت في جردي فيو بناء على استعلام ال where

ارجو ان تكون قد وضحة الصورة

بالنسبة لكود ال del فاشكرك عليه عمل معاي بهاي الطريقة

بارك الله فيك

Dim ConnStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"

Dim Conn As New SqlConnection(ConnStr)

Conn.Open()

Dim cmd As New SqlCommand()

cmd.Connection = Conn

cmd.CommandText = "delete from force where name=@name"

cmd.Parameters.AddWithValue("@name", TextBox1.Text)

cmd.ExecuteNonQuery()

Label1.Text = "Added successfully"

Conn.Close()

:huh:

:mad: :mad: :mad: :mad: :mad: :mad:

السلام عليكم

:) :) :)

nnen.rar

وعليكم السلام ورحمة الله وبركاته

اشكرك اخي الحبيب AsJsGle على هذا الشرح الوافي

بارك الله فيك

:wub: :wub: :wub: :wub: :wub:

اهلا وسهلا اخي