دستور update

[samira222]

من با دستور زیر یک رکرود جدید ایجاد می کنم ولی وقتی فیلد اخر رو مقدار نمی دم خطا میده یعنی فیلد اخر رو به کلمه where وصل می کنه . باید چیکار کنم !!!؟؟؟
Dim cmd AsNew SqlCommand("update savabeghtahsele set name_madrak='" + TextBox3.Text + "'," + "reshteh='" + TextBox4.Text + "'," + "location='" + TextBox5.Text + "'," + "year=" + TextBox6.Text + " where column1=" + pkey.ToString, con)
خیلی متشکرم . فقط خیلی فوریه

[VB.NET2005]

دوست عزیز فکر کنم این درست باشه :


(update savabeghtahsele set name_madrak='" + TextBox3.Text + "',reshteh='" + TextBox4.Text + "',location='" + TextBox5.Text + "',year='" + TextBox6.Text + "' where year='" + pkey.ToString + "', con)

[seeker]

دات نت 2005 درست میگه
شما برای where از سینگل کوتیشن استفاده نکردید

[VB.NET2005]

دوست عزیز اینو امتحان کنید :



Imports System.Data.OleDb
PublicClass DataBase
Dim connectionString = "provider=microsoft.jet.oledb.4.0;data source=database.mdb;"
'for insert , update , delete
PublicFunction DoCommand(ByVal ole AsString)
Try
Dim cmd AsNew OleDbCommand
Dim con AsNew OleDbConnection
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
cmd.ExecuteNonQuery()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
EndFunction
'for select and search in table
PublicFunction MySelect(ByVal ole AsString) As DataTable
Dim dt AsNew DataTable
Try
Dim cmd AsNew OleDbCommand
Dim con AsNew OleDbConnection
Dim da AsNew OleDbDataAdapter(cmd)
con.ConnectionString = connectionString
cmd.Connection = con
con.Open()
cmd.CommandText = ole
da.Fill(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
Return dt
EndFunction
EndClass

فراخوانی : [ برای سلکت کردن ]


Dim dt AsNew DataTable
'sakhte yek nemoone az class DataBase
Dim db AsNew DataBase
'seda zadan function==>MySelect baraye jostejoo dar bank
dt = db.MySelect("select * from YourTable")
DataGrid1.DataSource = dt

فراخوانی : [ برای Insert , Update , . . . ]


Dim dt AsNew DataTable
Dim db AsNew DataBase
dt = db.DoCommand("insert into YourTable values(. . .)")
DataGrid1.DataSource = dt

[samira222]

اگه از تک کوتیشن استفاده کنم که عبارت سبز میشه یعنی غیر فعال
درسته؟
اخه من هر جا دیدم از دابل استفاده کردن
ولی الان می رم هم اینو و هم کد بالا رو امتحان می کنم .
از هر دو تون متشکرم

[seeker]

گه از تک کوتیشن استفاده کنم که عبارت سبز میشه یعنی غیر فعال
درسته؟
نخیر دوست عزیز
اگر سینگل کوتیشن شما داخل دبل کوتیشن باشد به قول شما "سبز" نمیشود (:

[samira222]

ok
مرسی - من نمی دونستم - ولی این باعث میشه که یک فاصله بین فیلد اخر و where بزاره ؟:متعجب:

[seeker]

خوب بین ' و " فاصله نذار:

where coloumn1='" & textbox1.text & "'"

[samira222]

باشه مرسی
یک سوال دیگه : من برای add کردن یک رکورد کد زیر رو در fromload نوشتم
peshkey=0
Dim con As SqlConnection
Dim ss As Integer
Dim strcon As String
strcon = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con = New SqlConnection(strcon)
Dim cmd As New SqlCommand("select max(key1)+1 from Moshakhasatefarde", con)
con.Open()
ss = cmd.ExecuteScalar
TextBox1.Text = ss.ToString
con.Close()
peshkey = ss.ToString
و روی دکمه اضافه هم این کد رو نوشتم
TextBox10.Text = peshkey.ToString
Dim con1 As SqlConnection
Dim strcon1 As String
strcon1 = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con1 = New SqlConnection(strcon1)
Dim cmd1 As New SqlCommand("INSERT INTO Moshakhasatefarde ( " & "name1," & "family," & "configuration_num," & "orientation," & "last_madrak," & "type_stekhdam," & "date_stekhdam," & "organezation_post" & " ) values ('" & TextBox2.Text & "',' " & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & ComboBox1.Text & "','" & TextBox9.Text & "')", con1)
con1.Open()
cmd1.ExecuteNonQuery()
con1.Close()
MsgBox("ذخیره شد")
اما برای بعضی رکوردهای خاص جواب نمیده . یعنی توی پیدا کردن کلید مشکل پیدا می کنه . اشکالش از کجاست .
البته برنامه جناب vb.net2005 خیلی خوب و کامله ولی اگه بشه همین درست بشه من بهتر می فهمم .
متشکرم

[saeed_rezaei]

سلام
وقتی کدهاتون رو می نویسید بهتره که کدهای وی بی رو داخل دوتا تگ مربوط به کد قرار بدید. برای اینکار می تونید روی دکمه # نوار ابزار کلیک کنید. اینجوری کدهاتون بهتر نوشته می شه. مثلا اینجوری:



peshkey=0
Dim con As SqlConnection
Dim ss As Integer
Dim strcon As String
strcon = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con = New SqlConnection(strcon)
Dim cmd As New SqlCommand("select max(key1)+1 from Moshakhasatefarde", con)
con.Open()
ss = cmd.ExecuteScalar
TextBox1.Text = ss.ToString
con.Close()
peshkey = ss.ToString
و روی دکمه اضافه هم این کد رو نوشتم
TextBox10.Text = peshkey.ToString
Dim con1 As SqlConnection
Dim strcon1 As String
strcon1 = " Data Source=.;Integrated Security=True;Initial Catalog=parvandeh"
con1 = New SqlConnection(strcon1)
Dim cmd1 As New SqlCommand("INSERT INTO Moshakhasatefarde ( " & "name1," & "family," & "configuration_num," & "orientation," & "last_madrak," & "type_stekhdam," & "date_stekhdam," & "organezation_post" & " ) values ('" & TextBox2.Text & "',' " & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & ComboBox1.Text & "','" & TextBox9.Text & "')", con1)
con1.Open()
cmd1.ExecuteNonQuery()
con1.Close()



اینجوری کاربران راحتتر می تونن به شما کمک کنند. البته بهتره که هر سوال رو هم در یک تاپیک جداگانه پست کنید. مطمئنن این هم باعث تسریع در اخذ جواب می شه !!