
نوشته شده توسط
safari_m4
Private Sub ExsistNumber()
Cmd = New SqlCommand("SELECT Count(NumberFactor) As ExistSale FROM TB_Factor_Sale where ID_Sal=@ID_Sal", Con)
Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
Con.Open()
Dim Dr As SqlDataReader = Cmd.ExecuteReader
If Dr.Read = True Then
NumberFactorSale = Val(Dr("ExistSale").ToString)
End If
Dr.Close()
Con.Close()
If NumberFactorSale = 0 Then
ExistSaleS = False
Else
ExistSaleS = True
End If
End Sub
این دستور جهت مشخص کردن اولین شماره
Private Sub MaxSaleNumber()
Cmd = New SqlCommand("SELECT Top 1 MAX(NumberFactor) As NumberFactor FROM TB_Factor_Sale where ID_Sal=@ID_Sal order by NumberFactor desc", Con)
Cmd.Parameters.AddWithValue("@ID_Sal", Val(ID_SalM))
Con.Open()
Dim Dr As SqlDataReader = Cmd.ExecuteReader
If Dr.Read = True Then
LastSaleNumber = Dr("NumberFactor").ToString()
End If
Con.Close()
End Sub
این کد دیگرش امیدوارم فهمیده باشی ببخشید که من خیلی کم وارد سیستم می شم که اگر مشکلی داشتی جواب بدهم آلان هم چون مشکلی داشتم وارد سیستم شد به هر حال ببخشید