PDA

View Full Version : بدهکار کردن همه افراد


aknj56
پنج شنبه 01 تیر 1391, 08:46 صبح
با سلام خدمت دوستان
من یک جدول درست کردم که توش اسم فرد و مشخصاتش هست ویک فیلد داره به نام بدهکاری
حالا چطور میشه یک مبلغی رو توی یک تکس باکس که تو فرم گذاشتم وارد کنی و با زدن دکمه این مبلغ به همه افراد آن جدول اضافه بشه و همه رو به اندازه آن مبلغ بدهکار کنه
ebraham
پنج شنبه 01 تیر 1391, 09:22 صبح
سلام منظورت اینه که میخوای مبلغ بدهی رو توی فیلد بدهکاری جدولت روی تمام افراد اون جدول اعمال کنی؟ اگه منظورت اینه باید با دستور آپدیت ولی بدون شرط اینکارو انجام بدی .
mohammadriano
پنج شنبه 01 تیر 1391, 09:45 صبح
خب کوئری بنویس


Update Table1 Set Liability = ' " + "Textbox1.text ' " + " "
aknj56
پنج شنبه 01 تیر 1391, 10:29 صبح
سلام منظورت اینه که میخوای مبلغ بدهی رو توی فیلد بدهکاری جدولت روی تمام افراد اون جدول اعمال کنی؟ اگه منظورت اینه باید با دستور آپدیت ولی بدون شرط اینکارو انجام بدی .

درسته دوست عزیز میخام همه رو بدهکار کنم هر نفری یک فیلد بدهکاری داره وباید این بدهکاری توی تمام فیلدها بره ولی با آپدیت که فقط یک نفر بدهکار می شود منظورم دستور forنمی خواد که هر کی توی جدول هست رو بدهکار کنه یا اگر روش دیگری هست بفرمائید البته همین for رو هم در اینجا بلد نیستم
mohammadriano
پنج شنبه 01 تیر 1391, 10:36 صبح
کوئری رو امتحان کردی؟
aknj56
پنج شنبه 01 تیر 1391, 10:40 صبح
کوئری رو امتحان کردی؟

آره ولی تغییری توی فیلد بدهکاری ایجاد نشد ضمنا منظور از Liability چیه یعنی باید نام فیلد رو بنویسم
mohammadriano
پنج شنبه 01 تیر 1391, 10:45 صبح
Liability = بدهکاری
نام فیلد بدهکاری
خب این رو تست کن

"Update Table1 Set Liability = '500000'"

من که تعداد فیلد های شما رو نمی دونم ولی اگه زیاد نیستن می تونی از حلقه استفاده کنی
البته برای VB6
این کد با اندکی تغییر فیلدهای شما رو پر می کنه

Dataname.Recordset.moveFirst
While(dataname.recordset.Eof <> True)
dataname.Recordset.Fields("Liability").value = TextBox1.text
dataname.Recordset.movenext
Wend

البته شاید نوشتن VB6 در تالار VB.net کار درستی نباشه ولی می خواستم مشکل شما حل بشه
ebraham
پنج شنبه 01 تیر 1391, 10:49 صبح
خب باید از این دستور استفاده کنی :
Dim cmd As New Sqlcommand
cmd=New Sqlcommand("update TableName set bedehiField='" & TextBox1.Text & "'",sqlconnection)
cmd.ExecuteNonquery


درسته دوست عزیز میخام همه رو بدهکار کنم هر نفری یک فیلد بدهکاری داره وباید این بدهکاری توی تمام فیلدها بره ولی با آپدیت که فقط یک نفر بدهکار می شود منظورم دستور forنمی خواد که هر کی توی جدول هست رو بدهکار کنه یا اگر روش دیگری هست بفرمائید البته همین for رو هم در اینجا بلد نیستم
aknj56
پنج شنبه 01 تیر 1391, 11:11 صبح
خب باید از این دستور استفاده کنی :
Dim cmd As New Sqlcommand
cmd=New Sqlcommand("update TableName set bedehiField='" & TextBox1.Text & "'",sqlconnection)
cmd.ExecuteNonquery

ممنون مشکل حل شد