Private Sub monyviewbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles monyviewbtn.Click
Dim con As OleDb.OleDbConnection = connection()
Dim a, b, c, d
a = pitntb.Text
b = nitntb.Text
c = petntb.Text
d = netntb.Text
comm = "SELECT sum(Irs) from Income WHERE Itranno '" & a & "' BETWEEN '" & b & "'"
comm1 = "SELECT sum(Ers) from Expense WHERE Etranno '" & c & "' BETWEEN '" & d & "'"
com = New OleDbCommand(comm, con)
com1 = New OleDbCommand(comm1, con)
con.Open()
titb.Text = com.ExecuteNonQuery()
tetb.Text = com1.ExecuteNonQuery()
ptb.Text = titb.Text - tetb.Text
End Sub
End Class
i did this but i have no output because we put more and more solution but i have no get correct answer please send the solution to my e-mail :[email protected]
- Add new comment
- 7 views