اضافه کردن کاربر [بایگانی]

mf_engineer

دوشنبه 22 شهریور 1389, 10:49 صبح

ن تکه کد زیر را برای ثبت کاربر جدید استفاده می کنم ولی یک پیغام خطا می ده که عکسشو براتون گذاشتم
کد:

کد:

Dim objConnection As New SqlConnection( _
" Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;User Instance=True")

Private Sub adduser()
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from student", objConnection)
Dim insertcmd As String
insertcmd = "Insert Into student(idstd,name,famiy,pass,mail,reshte,degree)" & _
"Values(" + UserName.Text + ",'" + txtName.Text + "','" + txtFamily.Text + "'," & _
"'" + Password.Text + "','" + reshte.Text + "','" + deg.Text.Trim + "'"

Dim cmd As SqlCommand
cmd = New SqlCommand(insertcmd, objConnection)

cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()

End Sub

ِببینین reshte و deg شی Combo text هستند ولی نمی دونم چرا از مقدار deg که دومقدار کاردانی وکارشناس است ایراد می گیره
ممنون می شم کمکم کنید.
راستی یه سوال در مورد session
اگه تو برنامه به صورت زیر بنویسم درسته ؟

کد:
session['username']=usernametxt.text

اخه من اینجوری نوشتم ولی نشد می شه برام بگین چطوری بنویسم؟؟

نیازی هست که کتابخانه ای رو import کنم؟

تصاویر ضمیمه http://barnamenevis.org/forum/attachment.php?attachmentid=56197&stc=1&thumb=1&d=1284352101 (http://barnamenevis.org/forum/attachment.php?attachmentid=56197&d=1284352101) http://barnamenevis.org/forum/attachment.php?attachmentid=56198&stc=1&thumb=1&d=1284352101 (http://barnamenevis.org/forum/attachment.php?attachmentid=56198&d=1284352101)

Saman Hashemi

دوشنبه 22 شهریور 1389, 11:04 صبح

ن تکه کد زیر را برای ثبت کاربر جدید استفاده می کنم ولی یک پیغام خطا می ده که عکسشو براتون گذاشتم
کد:

کد:

Dim objConnection As New SqlConnection( _
" Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;User Instance=True")

Private Sub adduser()
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from student", objConnection)
Dim insertcmd As String
insertcmd = "Insert Into student(idstd,name,famiy,pass,mail,reshte,degree)" & _
"Values(" + UserName.Text + ",'" + txtName.Text + "','" + txtFamily.Text + "'," & _
"'" + Password.Text + "','" + reshte.Text + "','" + deg.Text.Trim + "'"

Dim cmd As SqlCommand
cmd = New SqlCommand(insertcmd, objConnection)

cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()

End Sub

ِببینین reshte و deg شی Combo text هستند ولی نمی دونم چرا از مقدار deg که دومقدار کاردانی وکارشناس است ایراد می گیره
ممنون می شم کمکم کنید.
راستی یه سوال در مورد session
اگه تو برنامه به صورت زیر بنویسم درسته ؟

کد:
session['username']=usernametxt.text

اخه من اینجوری نوشتم ولی نشد می شه برام بگین چطوری بنویسم؟؟

نیازی هست که کتابخانه ای رو import کنم؟

تصاویر ضمیمه http://barnamenevis.org/forum/attachment.php?attachmentid=56197&stc=1&thumb=1&d=1284352101 (http://barnamenevis.org/forum/attachment.php?attachmentid=56197&d=1284352101) http://barnamenevis.org/forum/attachment.php?attachmentid=56198&stc=1&thumb=1&d=1284352101 (http://barnamenevis.org/forum/attachment.php?attachmentid=56198&d=1284352101)

"Values(" + UserName.Text + ",'" + txtName.Text + "','" + txtFamily.Text + "'," & _
"'" + Password.Text + "','" + reshte.Text + "','" + deg.Text.Trim + "'"
تک کوتیشن یادت رفته!! در ضمن این ایراد از insert است،خط بعد اگر یک BreakPoint قرار بده و مقدار رشته رو نگاه کنی میبینی چه کردی!!

mf_engineer

دوشنبه 22 شهریور 1389, 11:40 صبح

نه اخه از username.text ایراد نمی گیره که از اخریش deg.text ایراد می گیره

Saman Hashemi

دوشنبه 22 شهریور 1389, 12:57 عصر

نه اخه از username.text ایراد نمی گیره که از اخریش deg.text ایراد می گیره

اگر به Error نگاه کنی نوشته نزدیکه این مورد خطا وجود دار نه دقیقا اون بهترین راه همون BreakPoint!!
در ضمن Trim پرانتز داره!!

mf_engineer

دوشنبه 22 شهریور 1389, 12:59 عصر

می شه بیشتر توضیح بدی؟
وبگی چکار کنم؟

Saman Hashemi

دوشنبه 22 شهریور 1389, 13:18 عصر

می شه بیشتر توضیح بدی؟
وبگی چکار کنم؟

این مطلب (http://www.homeandlearn.co.uk/csharp/csharp_s5p4.html) بخون توضیح داده

mf_engineer

سه شنبه 23 شهریور 1389, 07:43 صبح

سلام
بالاخره مشکلمو حل کردم
جناب Saman Hashemi (http://barnamenevis.org/forum/member.php?u=160262) مشکل به :
اگر به Error نگاه کنی نوشته نزدیکه این مورد خطا وجود دار نه دقیقا اون بهترین راه همون BreakPoint!!
در ضمن Trim پرانتز داره!! و تک کوتیشن
ربط نداشت
یه مشکل خنده دار:چشمک:
من ( اخر دستور رو بعد از Values نذاشته بودم همین .همون طور که قبلا هم گفته بودم مشکل نزدیک مقدار Deg بود. ممنون
کد :

Private Sub adduser()
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from student", objConnection)
Dim insertcmd As String
insertcmd = "Insert Into student(idstd,name,family,pass,mail,reshte,degree)" & _
"Values('" + Trim(UserName.Text) + "','" + txtName.Text + "','" + txtFamily.Text + "'," & _
"'" + Password.Text + "','" + Email.Text + "','" + reshte.Text + "','" + deg.Text + "')"

Dim cmd As SqlCommand
cmd = New SqlCommand(insertcmd, objConnection)

cmd.Connection.Open()
cmd.ExecuteNonQuery()
cmd.Connection.Close()
End Sub