toopak
پنج شنبه 28 شهریور 1387, 15:17 عصر
سلام:ناراحت:
آقا این ارور منو دیوونه کرده:اشتباه:
تو کد زیر
Label1.Text = ComboBox1.Text.ToString
Dim ds1 As New DataSet
Dim inssql1 As String
Dim cmdsql1 As New OleDbCommand
inssql1 = "SELECT count(sid) as noo,sum(fee) as allfee,sum(fee*(comi/100)) as ajans,sum(fee-(fee*(comi/100))) as driver FROM tbservices where (drname = '" & Label1.Text & "') AND ([date] BETWEEN '" & MaskedTextBox1.Text & "' AND '" & MaskedTextBox2.Text & "') "
cmdsql1.Connection = con
cmdsql1.CommandText = inssql1
Dim DR1 As OleDbDataReader
DR1 = cmdsql1.ExecuteReader
DR1.Read()
If DR1.HasRows Then
Label4.Text = DR1("allfee")
Label3.Text = DR1("driver")
Label2.Text = DR1("ajans")
Label5.Text = DR1("noo")
Label14.Text = "yes"
Else
Label14.Text = "noooo"
Label4.Text = ""
Label3.Text = ""
Label2.Text = ""
Label5.Text = ""
End If
تو قسمت قرمز ارور رو میده
یعنی وقتی نتیجه پیا نمیکنه این اروررو میده
اما من گذاشتم
Else
Label14.Text = "noooo"
Label4.Text = ""
Label3.Text = ""
Label2.Text = ""
Label5.Text = ""
پس چرا عمل نمیکنه؟:ناراحت:
چطوری کنترلش کنم که وقتی چیزی پیدا نکرد از db ارور نده؟
تو رو خدا کمک کنید:گریه:
ممنون
آقا این ارور منو دیوونه کرده:اشتباه:
تو کد زیر
Label1.Text = ComboBox1.Text.ToString
Dim ds1 As New DataSet
Dim inssql1 As String
Dim cmdsql1 As New OleDbCommand
inssql1 = "SELECT count(sid) as noo,sum(fee) as allfee,sum(fee*(comi/100)) as ajans,sum(fee-(fee*(comi/100))) as driver FROM tbservices where (drname = '" & Label1.Text & "') AND ([date] BETWEEN '" & MaskedTextBox1.Text & "' AND '" & MaskedTextBox2.Text & "') "
cmdsql1.Connection = con
cmdsql1.CommandText = inssql1
Dim DR1 As OleDbDataReader
DR1 = cmdsql1.ExecuteReader
DR1.Read()
If DR1.HasRows Then
Label4.Text = DR1("allfee")
Label3.Text = DR1("driver")
Label2.Text = DR1("ajans")
Label5.Text = DR1("noo")
Label14.Text = "yes"
Else
Label14.Text = "noooo"
Label4.Text = ""
Label3.Text = ""
Label2.Text = ""
Label5.Text = ""
End If
تو قسمت قرمز ارور رو میده
یعنی وقتی نتیجه پیا نمیکنه این اروررو میده
اما من گذاشتم
Else
Label14.Text = "noooo"
Label4.Text = ""
Label3.Text = ""
Label2.Text = ""
Label5.Text = ""
پس چرا عمل نمیکنه؟:ناراحت:
چطوری کنترلش کنم که وقتی چیزی پیدا نکرد از db ارور نده؟
تو رو خدا کمک کنید:گریه:
ممنون