+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : Database (/showthread.php?tid=38282)
Database - 22reem - 13-04-21
ابغا كود يحدث لي مدخلات اليوزر بكل مره دخل البرنامج
يعني مثلا اليوزر دخل مبلغ في شهر 5 و تخزنت فالداتا بيس
كيف ابغاه بشهر 6 يغير المبلغ و يخزنه مره ثانيه بنفس الحساب
يارب الفكره واضحه
RE: Database - HALIM ELEULMA - 06-01-24
لتحديث مدخلات اليوزر في قاعدة البيانات بناءً على الشهر، يمكنك استخدام استعلام SQL لتحديث القيمة الموجودة بالفعل. على سبيل المثال، إذا كان لديك جدول يحتوي على الشهر والمبلغ المخزن، يمكنك القيام بشيء مشابه لهذا:
PHP كود :
Private Sub UpdateAmount(month As Integer, newAmount As Decimal)
Dim connectionString As String = "YourConnectionStringHere" ' استبدل هذا بسلسلة الاتصال الخاصة بك
Using connection As New OleDbConnection(connectionString)
Using command As New OleDbCommand()
command.Connection = connection
command.CommandText = "UPDATE YourTableName SET Amount = @NewAmount WHERE Month = @Month"
command.Parameters.AddWithValue("@NewAmount", newAmount)
command.Parameters.AddWithValue("@Month", month)
connection.Open()
command.ExecuteNonQuery()
End Using
End Using
End Sub
ثم يمكنك استدعاء هذه الوظيفة في الشهر الجديد لتحديث المبلغ. على سبيل المثال، إذا كنت تريد تحديث المبلغ في الشهر 6:
PHP كود :
Private Sub UpdateButton_Click(sender As Object, e As EventArgs) Handles UpdateButton.Click
Dim newAmount As Decimal ' تعيين المبلغ الجديد
If Decimal.TryParse(TextBoxNewAmount.Text, newAmount) Then ' التحقق من صحة إدخال المبلغ الجديد
UpdateAmount(6, newAmount) ' استدعاء الوظيفة لتحديث المبلغ للشهر الجديد (مثلاً شهر 6)
MessageBox.Show("تم تحديث المبلغ بنجاح!", "تحديث")
Else
MessageBox.Show("الرجاء إدخال مبلغ صحيح!", "خطأ")
End If
End Sub