sadeghlinux
سه شنبه 14 شهریور 1391, 19:09 عصر
سلام دوستان
من دو تا جدول دارم که که بنا به نیاز برنامه میخام مقادیر رو مقایسه کنم
یکی از جداول واسه خرید هست و یکی برای فروش.
حالا با کد زیر جمع تعداد کالا رو بدست میارم(خریداری شده)
Dim sumkharid, sumfroush As Long
Dim cn As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=lavazem-yadaki;Integrated Security=True")
cn.Open()
Dim ad As SqlDataAdapter = New SqlDataAdapter("select sum(tedad) from tbllistkharid where codekala=" & txtCkala.Text, cn)
Dim dt As New DataTable
ad.Fill(dt)
sumkharid = dt.Rows(0)(0)
و برای بدست آمورد تعدا فروش از کد زیر استفاده میکنم
Dim ad2 As SqlDataAdapter = New SqlDataAdapter("select sum(tedad) from tblListfrosh where codekala=" & txtCkala.Text, cn)
Dim dt2 As New DataTable
dr.Close()
ad2.Fill(dt2)
sumfroush = dt.Rows(0)(0)
اگه من برای اولین بار بخوام کالایی رو بفروشم چون جدول فروش خالی هس گیر میده
حالا میخوام لطف کنید فقط بگید که من چجوری باید چک کنم که اگر جدول خالی بود
بیاد متغیر جمع فروش رو برابر 0 کنه و اگه نه که مراحل بالا رو انجام بده
با تشکر
من دو تا جدول دارم که که بنا به نیاز برنامه میخام مقادیر رو مقایسه کنم
یکی از جداول واسه خرید هست و یکی برای فروش.
حالا با کد زیر جمع تعداد کالا رو بدست میارم(خریداری شده)
Dim sumkharid, sumfroush As Long
Dim cn As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=lavazem-yadaki;Integrated Security=True")
cn.Open()
Dim ad As SqlDataAdapter = New SqlDataAdapter("select sum(tedad) from tbllistkharid where codekala=" & txtCkala.Text, cn)
Dim dt As New DataTable
ad.Fill(dt)
sumkharid = dt.Rows(0)(0)
و برای بدست آمورد تعدا فروش از کد زیر استفاده میکنم
Dim ad2 As SqlDataAdapter = New SqlDataAdapter("select sum(tedad) from tblListfrosh where codekala=" & txtCkala.Text, cn)
Dim dt2 As New DataTable
dr.Close()
ad2.Fill(dt2)
sumfroush = dt.Rows(0)(0)
اگه من برای اولین بار بخوام کالایی رو بفروشم چون جدول فروش خالی هس گیر میده
حالا میخوام لطف کنید فقط بگید که من چجوری باید چک کنم که اگر جدول خالی بود
بیاد متغیر جمع فروش رو برابر 0 کنه و اگه نه که مراحل بالا رو انجام بده
با تشکر