Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\appln\appln\Acc.accdb"
Dim insertcmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
con.ConnectionString = constring
insertcmd.CommandType = CommandType.Text
insertcmd.CommandText = String.Format("select sum(total) from account where ID between {0} and {1}", TextBox1.Text, TextBox2.Text)
insertcmd.Connection = con
con.Open()
Try
insertcmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
con.Close()
this is code i am using but i dnt know how to get total from database ...
Loading
Iftikar HussainPosted Jul 27, 2013, 4:44 AM
Regards,
Iftikar
Nandhini JayachandranPosted Jul 27, 2013, 4:39 AM
Dim insertcmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
con.ConnectionString = constring
insertcmd.CommandType = CommandType.Text
insertcmd.CommandText = String.Format("select sum(total) from account where ID between {0} and {1}", TextBox1.Text, TextBox2.Text)
insertcmd.Connection = con
con.Open()
Try
Dim data As Object
data = insertcmd.ExecuteScalar()
If data Is Not NULL Then
Dim result As Int32
result = Convert.ToInt32(data)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
con.Close()
Iftikar HussainPosted Jul 27, 2013, 4:36 AM
Regards,
Iftikar
Nandhini JayachandranPosted Jul 27, 2013, 4:31 AM
Iftikar HussainPosted Jul 27, 2013, 4:08 AM
Dim constring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\appln\appln\Acc.accdb"
Dim insertcmd As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand
Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
con.ConnectionString = constring
insertcmd.CommandType = CommandType.Text
insertcmd.CommandText = String.Format("select sum(total) from account where ID between {0} and {1}", TextBox1.Text, TextBox2.Text)
insertcmd.Connection = con
con.Open()
Try
Dim data as Object
data=insertcmd.ExecuteScalar()
If data IS NOT NULL
Dim result AS Int32
result=Convert.ToInt32(data)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
con.Close()
Regards,
Iftikar
Nandhini JayachandranPosted Jul 27, 2013, 3:55 AM
Sunny SharmaPosted Jul 27, 2013, 3:26 AM
Iftikar HussainPosted Jul 27, 2013, 3:25 AM
select total from account where ID between {0} and {1}", TextBox1.Text, TextBox2.Text
Regards,
Iftikar
Iftikar HussainPosted Jul 27, 2013, 3:23 AM
"select sum(total) from account where ID between {0} and {1}", TextBox1.Text, TextBox2.Text
Regards,
Iftikar
Nandhini JayachandranPosted Jul 27, 2013, 3:23 AM
Nandhini JayachandranPosted Jul 27, 2013, 3:21 AM
Sunny SharmaPosted Jul 27, 2013, 3:15 AM
use ExecuteScalar() to get the value as object, unbox it to int/decimal type variable and check it.
do it like this:
-----------------------------------
cmd.CommandText=sql;
object retVal = cmd.ExecuteScalar();
int sum = (int)retVal;
if(sum<0)
{
//sum is negative
}
else
{
//sum is positive
}
-----------------------------------------
Hope it helps.
Cheers!
Iftikar HussainPosted Jul 27, 2013, 3:12 AM
You can just check the value weather it is less than 0 or not. If it is less than 0 then it is negative.
Regards,
Iftikar