درمورد ویرایش دیتابیس کمکم کنین فوری

[sama_65]

سلام
داخل یه جدول در اکسس یه ستون هست با نام "مانده اولیه" و ستون دوم "تعداد ارسالی"
حالا توی وی بی می خوام مانده اولیه از ارسالی کم شه و توی اکسسم نشون بده
برنامه شو چی باید بنویسم؟

[majj]

یک کنترل هست به نام vsflexgrad از اون کمک بگیرید

[sama_65]

میشه واضحتر بگین که جطوری ازش استفاده کنم؟

[ALI TT]

اگه از تو VB مي‌خواهي اين كار را بكني ،‌ بايد اول مقدار ها را با شيء DataTable از جدول خارج كني و پس از كم كردن آنها با دستور INSERT اونو ثبت كني

[sama_65]

میشه برنامشو اینجا هم بنویسین؟

[ALI TT]

DataSet1.Clear()
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM NameTable"
OleDbDataAdapter1.Fill(DataSet1)
Dim dataTable As DataTable = DataSet1.Tables(0)
' ستون رديف
Dim a AsInteger = (Convert.ToInt32(dataTable.Rows(0)(0)))
Dim b AsInteger = (Convert.ToInt32(dataTable.Rows(0)(1)))
Dim c AsInteger = b - a
OleDbDataAdapter1.InsertCommand.CommandText = "INSERT INTO NameTable ( [نام ستون 3]) VALUES ( '" & c & "')"
OleDbDataAdapter1.InsertCommand.ExecuteNonQuery()

[ALI TT]

DataSet1.Clear()
OleDbDataAdapter1.SelectCommand.CommandText = "SELECT * FROM NameTable"

OleDbDataAdapter1.Fill(DataSet1)
Dim dataTable As DataTable = DataSet1.Tables(0)x
' ستون رديف

Dim a AsInteger = (Convert.ToInt32(dataTable.Rows(0)(0)x
Dim b AsInteger = (Convert.ToInt32(dataTable.Rows(0)(1)x
Dim c AsInteger = b - a
OleDbDataAdapter1.InsertCommand.CommandText = "INSERT INTO NameTable (Fild Name) VALUES (" & c & ")"x
OleDbDataAdapter1.InsertCommand.ExecuteNonQuery

[sama_65]

مرسی
میرم امتحان کنم ببینم چی میشه

[sama_65]

از توی componnent چیزی هم باید قرار بدم تو فرم؟!

[ALI TT]

يه OleDbDataAdapter1
يه DataSet1
يه OleDbConnection1 كه وقتي اون دوتا بالايي ها رو بزاري خودش مياد .
اگه توي toolbox نداريشون بايد اضافشون كني

[sama_65]

اوکی
میرم ببینم میشه یا نه
ممنون