PDA

View Full Version : بروز رسانی فرم



kashir
یک شنبه 18 مهر 1389, 03:15 صبح
سلام
میخوام یه فرم رو که به sql server متصله بروز رسانی کنم
یعنی مثلا یه دکمه ای قرار بدم که اگه دکمه زده شده اطلاعات فرم(از قبیل داده هایی که در تکست باکس یا لیبل از طریق بانک متصله) بروز بشه

xminxmin
یک شنبه 18 مهر 1389, 07:43 صبح
خب اون مقادیر لیبل ها رو برابر فیلدهای بانک قرار بده دیگه. مشکل کجاس؟

kashir
یک شنبه 18 مهر 1389, 20:09 عصر
ببین من یه فرم دارم که اطلاعاتی رو از طریق کومبوباکس میشه وارد کرد میخوام این مقادیر که تحت لیبل بالای صفحه قرار داره با یه باتن بروز بشه :لبخندساده:

Alghoochi
یک شنبه 18 مهر 1389, 21:59 عصر
کمبوباکس ها رویدادی دارند به اسم SelectedIndexChanged.
این رویداد زمانی فراخونی میشه که کاربر ایتم انتخاب شده را عوض کنه. شما باید کد دریافت اطلاعات از بانک اطلاعاتی و تعیین به عنوان text تکست باکس ها را اینجا قرار بدید.

ali_najari
یک شنبه 18 مهر 1389, 23:45 عصر
دوست عزیز شما اگه از حالت Binding واسه TextBox هات استفاده کنی اون حالتی رو که میخوای انجام میشه و برای Combobox هم بگم که کافیه DataSource ش رو معادل Datatable ای که اطلاعات توش هست قرار بده سپس DisplyValue اون رو معادل فیلدی قرار بده که میخوای اطلاعاتت توش کذاشته بشه و ValueMember اون رو هم معادل اون فیلدی قرار بده که میخوای وقتی SelectChenge شد اون مقدار رو توی text box قرار بده

http://barnamenevis.org/forum/showpost.php?p=1118344&postcount=5

یه نمونه برنامه توی پستی که آدرسش رو گذاشتم هست حتما نگاه کن

kashir
دوشنبه 19 مهر 1389, 22:37 عصر
شاید من خواسته خودمو بد گفتم
عکسو ببینید
http://up.iranblog.com/Files73/f7d710022e3c404995fb.JPG
فرممو خلاصه کردم
اون پایینه صفحه یه کومبوباکس دارم میخوام وقتی دکمه ثبت زده شد ابتدا اطلاعات وارد بانک بشه و از طریق بانک وارد تکست باکسها بشه نه ورود مستقیم

salmanbnd
سه شنبه 20 مهر 1389, 02:03 صبح
شاید من خواسته خودمو بد گفتم
عکسو ببینید
http://up.iranblog.com/Files73/f7d710022e3c404995fb.JPG
فرممو خلاصه کردم
اون پایینه صفحه یه کومبوباکس دارم میخوام وقتی دکمه ثبت زده شد ابتدا اطلاعات وارد بانک بشه و از طریق بانک وارد تکست باکسها بشه نه ورود مستقیم

سلام دوست عزیز
نمی دونم درست متوجه سوال شما شدم یا نه
ببینید شما برای اینکه اطلاعاتی رو به بانکتون اضافه کنید می تونید از روش Binde کردن استفاده کنید
خودتون فرمودید :


داده هایی که در تکست باکس یا لیبل از طریق بانک متصله

یعنی کنترلهای شما بایند شدن درسته؟
خب شما تو رویداد Click دکمه ی ثبت کار update رو انجام بدید
برای مثال :


bs.EndEdit()
da.Update(ds.tbl)

توضیح :
bs از نوع BindingSource
da از نوع tblTableAdapter
ds از نوع DataSet

و بعد هم فرمودید:


از طریق بانک وارد تکست باکسها بشه

اگه اتصال به بانک برقرار باشه خب می تونید از طریق da این کارو انجام بدید، مثلا :


da.Fill(Me.ds.tbl)


اما اگه بایند نکردید پیشنهاد می کنم بایند کنید!
اما اگه بخواید از SqlCommand استفاده کنید اون هم ساده است
بفرمایید تا خدمتتون عرض کنم
اگه توضیح بیشتری لازم هست بفرمایید
پیشنهاد می کنم مباحث ADO.NET رو مطالعه بفرمایید

kashir
سه شنبه 20 مهر 1389, 13:08 عصر
دوست خوبم الان فرصت خوندن ado.net رو ندارم باید تحویل بدم
کدی که تو رویداد کلیک دکمه ثبت دارم به قراره زیره میتونین کمک کنید :ناراحت:


If ComboBoxRegDay01.Text <> "روز" And ComboBoxRegMonth01.Text <> "ماه" And ComboBoxRegYear01.Text <> "سال" And txt_varizmoney01.Text <> "" Then
Try
Dim cmd As New SqlCommand
Dim con As New SqlConnection("data source=.\SQLEXPRESS;initial catalog=Mehr;integrated security=sspi;")
Dim dta As New SqlDataAdapter("select * from Mehr", con)
Dim ds As New DataSet
cmd.Connection = con
cmd.CommandText = "update Mehr set mojodiday01=@mojodiday01,mojodimonth01=@mojodimont h01,mojodiyear01=@mojodiyear01,mojodiz01=@mojodiz0 1,nationalcode=@nationalcode,sign01=@sign01 where nationalcode=@nationalcode"
cmd.Parameters.AddWithValue("mojodiday01", Trim(ComboBoxRegDay01.Text))
cmd.Parameters.AddWithValue("mojodimonth01", Trim(ComboBoxRegMonth01.Text))
cmd.Parameters.AddWithValue("mojodiyear01", Trim(ComboBoxRegYear01.Text))
cmd.Parameters.AddWithValue("mojodiz01", Trim(txt_varizmoney01.Text))
cmd.Parameters.AddWithValue("sign01", Trim(ComboBoxVariz.SelectedIndex))
cmd.Parameters.AddWithValue("nationalcode", Trim(txt_nacode.Text))
con.Open()
cmd.ExecuteNonQuery()
con.Close()
ds.Clear()
dta.Fill(ds, "Mehr")
Catch ex As Exception
MsgBox(ex.Message)
End Try
btn_register2.Enabled = False
MsgBox("اطلاعات با موفقیت ثبت شد")
Else
MsgBox("مقادیر خالی را پر کنید")
End If