سلام
داخل یه جدول در اکسس یه ستون هست با نام "مانده اولیه" و ستون دوم "تعداد ارسالی"
حالا توی وی بی می خوام مانده اولیه از ارسالی کم شه و توی اکسسم نشون بده
برنامه شو چی باید بنویسم؟
Printable View
سلام
داخل یه جدول در اکسس یه ستون هست با نام "مانده اولیه" و ستون دوم "تعداد ارسالی"
حالا توی وی بی می خوام مانده اولیه از ارسالی کم شه و توی اکسسم نشون بده
برنامه شو چی باید بنویسم؟
یک کنترل هست به نام vsflexgrad از اون کمک بگیرید
میشه واضحتر بگین که جطوری ازش استفاده کنم؟
اگه از تو VB ميخواهي اين كار را بكني ، بايد اول مقدار ها را با شيء DataTable از جدول خارج كني و پس از كم كردن آنها با دستور INSERT اونو ثبت كني
میشه برنامشو اینجا هم بنویسین؟
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()
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
مرسی
میرم امتحان کنم ببینم چی میشه
از توی componnent چیزی هم باید قرار بدم تو فرم؟!
يه OleDbDataAdapter1
يه DataSet1
يه OleDbConnection1 كه وقتي اون دوتا بالايي ها رو بزاري خودش مياد .
اگه توي toolbox نداريشون بايد اضافشون كني