مالخطاء في كودinsert into هذا

أخي العزيز هل نفذت العملية قبل إغلاق Conn يجب كتابة cmd.executenonquery

و يعطيك العافية

أخوي عملتها بس يطلع لي خطاء

Dim conn As New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=stor;integrated security=sspi;user id=sa"
		conn.Open()
		Dim cmd As SqlClient.SqlCommand
		cmd = New SqlClient.SqlCommand
		cmd.CommandText = "insert into test (id,name,cntry) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "')"
		Dim dd As String
		dd = cmd.ExecuteNonQuery
		conn.Close()
		Me.TextBox1.Text = ""
		Me.TextBox2.Text = ""
		Me.TextBox3.Text = ""

لكن تطلع لي هذي الصورة

طب لازم تعرف Cmd على Connection من خاصية

cmd.connection = conn

يعني الكود لازم يكون كالتالي

Dim conn As New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=stor;integrated security=sspi;user id=sa"
		conn.Open()
		Dim cmd As SqlClient.SqlCommand
		cmd = New SqlClient.SqlCommand
		cmd.connection = conn
		cmd.CommandText = "insert into test (id,name,cntry) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "')"

		 cmd.ExecuteNonQuery
		conn.Close()
		Me.TextBox1.Text = ""
		Me.TextBox2.Text = ""
		Me.TextBox3.Text = ""

بدون ما تعرف Dim dd As String و شيل dd=cmd.executenonequery لأنها غير لازمة هنا بس خلي

Cmd.ExecuteNoneQuery لوحدها

الله يعطيك العافية أخوي

ولو تسمح لي بصير شوي طماع

وودي تخدمني في هذا الموضوع

على هذا الرابط

وأتمنى أنك ما تخيب ضني وتردني

والله يزيدك من علمه يارب

أخوي الحمد لله أشتغل الكود معاي تمام

بس لما اضفت حقل من نوع datetime

ورفض وعطاني خطاء

هذا الكود

Dim conn As New SqlClient.SqlConnection
		conn.ConnectionString = "initial catalog=stor;integrated security=sspi;user id=sa"
		conn.Open()
		Dim cmd As SqlClient.SqlCommand
		cmd = New SqlClient.SqlCommand
		cmd.Connection = conn
		cmd.CommandText = "insert into test (id,name,cntry,d) values ('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.DateTimePicker1.Text & "')"

		cmd.ExecuteNonQuery()
		conn.Close()
		Me.TextBox1.Text = ""
		Me.TextBox2.Text = ""
		Me.TextBox3.Text = ""

وهذي صورة لخطاء

أرجو أن يكون حل مشكلتك عندي ..

حسناً تأكد من أن نوع حقل التاريخ في قاعدة البيانات من نوع ShortDate

وكذلك في الأداة DateTimePicker1

ثم أستبدل الكود السابق بهذا الكود ..

Dim conn As New SqlClient.SqlConnection("initial catalog=stor;integrated security=sspi;user id=sa")
Dim cmd As New SqlClient.SqlCommand

conn.Open()
cmd.Connection = conn
cmd.CommandType = CommandType.Text

cmd.CommandText = String.Format("insert into test (id,name,cntry,d) values ({0},{1},{2},DateValue ('{3}'))", Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, CDate(Trim(Me.DateTimePicker1.Text)).ToShortDateString)

cmd.ExecuteNonQuery()
conn.Close()

Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""

والله الموفق

;)

الله يعطيك العافيه أخوي

بس أخوي انا استخدم sql

واعتقد ما فيه ShortDate

ربما تعني الاكسس؟؟

ولا كني اعمل على sql

تحياتي لك

ليس هناك مشكله لو جربت الكود المذكور وأخبرتنا عن النتائج ، لاني استخدمه مع اكسس وهو يعمل بكفائة عالية ..

السلام عليكم

اول شيء يعطيك العافية أخوي ياسر على اهتمامك

ثاني شيء انا جربت الكود قبل ما ارد عليك الرد اللي قبل هذا

وهذي صورة الخطاء اللي طلع عندي

وتحياتي لك