Datagrid Problem- Run time error'6'- overflow

[lucky13]

Dear All,

I m connecting my sql data with the data grid, but not all columns only particular columns. having certain conditions, but it is showing the error as Runtime Error '6- overflow...

please help me....

Regards
Lucky13

[nev]

dataadapter = New MySqlDataAdapter("SELECT column1,column2,column3 FROM tablename", connection)

dataadapter.Fill(datatable)

datagridview.datasource = datatable

or

dataadapter = New MySqlDataAdapter("SELECT * FROM tablename", connection)

dataadapter.Fill(datatable)

datatable.column(column).clomnmapping = columnmapping.hidden

datagridview.datasource = datatable

or

dataadapter = New MySqlDataAdapter("SELECT * FROM tablename", connection)

dataadapter.Fill(datatable)

datagridview.datasource = datatable

if lcase(datagridview.column(column).name.tostring) = "column" then
datagridview.column(column).visible = false
end if

[lucky13]

Hello Nev,

thanks for the immediate reply, but i m sorry , i typed the wrong database as mysql, actually it is sql server 2000.

dataadapter = New MySqlDataAdapter("SELECT column1,column2,column3 FROM tablename", connection)

dataadapter.Fill(datatable)

datagridview.datasource = datatable

or

dataadapter = New MySqlDataAdapter("SELECT * FROM tablename", connection)

dataadapter.Fill(datatable)

datatable.column(column).clomnmapping = columnmapping.hidden

datagridview.datasource = datatable

or

dataadapter = New MySqlDataAdapter("SELECT * FROM tablename", connection)

dataadapter.Fill(datatable)

datagridview.datasource = datatable

if lcase(datagridview.column(column).name.tostring) = "column" then
datagridview.column(column).visible = false
end if

[QVeen72]

Hi,

What SQL Statement you have used for the data adapter..?

Regards
Veena

[lucky13]

Hello,

Sorry, i m wrongly typed the my sql, i m using sql server 2000

[QVeen72]

Hi,

My question was.. Whatever backend database...,
What is the SQL Statement ...?

and VB6 or VB.Net..?

REgards
Veena

[lucky13]

Hello

i m usiing VB6,

here i create column hearder & my sql statement is as follow

sql = "Select Cust_Code, sum(Net_Payment)as Net_Payment from Payment_Paid_Status where Payment_Month>='" & strmonth & "' And Payment_Month= '" & strmonth_1 & "' and Tool_Category='" & cmbcategory.Text & "' group by Cust_code"
rsdetails.Open sql, con, adOpenDynamic, adLockBatchOptimistic


Regards,

Hi,

My question was.. Whatever backend database...,
What is the SQL Statement ...?

and VB6 or VB.Net..?

REgards
Veena

[QVeen72]

Hello

i m usiing VB6,

here i create column hearder & my sql statement is as follow

sql = "Select Cust_Code, sum(Net_Payment)as Net_Payment from Payment_Paid_Status where Payment_Month>='" & strmonth & "' And Payment_Month= '" & strmonth_1 & "' and Tool_Category='" & cmbcategory.Text & "' group by Cust_code"
rsdetails.Open sql, con, adOpenDynamic, adLockBatchOptimistic


Regards,

Hi,
Check these:
does net_payment have Null..?

"Payment_Month>='" & strmonth
above means you are checking for Greater, but strmonth is text...
same for strMonth1 (are you sure data types match..?)


Regards
Veena

[lucky13]

Hello Veena,
Net_payment is not null, & in another form i used the same strmonth & it works..

First time i am trying to connect grid to sql data...

i think i m doung something worng while connecting to grid... see the whole code for connecting to grid...

Private Sub Connectgrid()
 
Dim rsdetails As New ADODB.Recordset
Dim i As Integer
 
con.Open
 
Call Month_Conv
 
sql = "Select Cust_Code, sum(Net_Payment)as Net_Payment from Payment_Paid_Status where Payment_Month>='" & strmonth & "' And Payment_Month= '" & strmonth_1 & "' and Tool_Category='" & cmbcategory.Text & "' group by Cust_code"
 
rsdetails.Open sql, con, adOpenDynamic, adLockBatchOptimistic
 
If rsdetails.RecordCount > 0 Then
    rsdetails.MoveNext
End If
 
If Not (rsdetails.EOF And rsdetails.BOF) Then
 
    With rsdetails
 
        dgpaydetails.Row = !Cust_Code // here i am facing the problem.....
        dgpaydetails.Row = !Net_Breaks
 
    End With
 
End If
 
 
End Sub
 
 

Regards

[QVeen72]

Hello Veena,
Net_payment is not null, & in another form i used the same strmonth & it works..

First time i am trying to connect grid to sql data...

i think i m doung something worng while connecting to grid... see the whole code for connecting to grid...

Private Sub Connectgrid()
 
Dim rsdetails As New ADODB.Recordset
Dim i As Integer
 
con.Open
 
Call Month_Conv
 
sql = "Select Cust_Code, sum(Net_Payment)as Net_Payment from Payment_Paid_Status where Payment_Month>='" & strmonth & "' And Payment_Month= '" & strmonth_1 & "' and Tool_Category='" & cmbcategory.Text & "' group by Cust_code"
 
rsdetails.Open sql, con, adOpenDynamic, adLockBatchOptimistic
 
If rsdetails.RecordCount > 0 Then
    rsdetails.MoveNext
End If
 
If Not (rsdetails.EOF And rsdetails.BOF) Then
 
    With rsdetails
 
        dgpaydetails.Row = !Cust_Code // here i am facing the problem.....
        dgpaydetails.Row = !Net_Breaks
 
    End With
 
End If
 
 
End Sub
 
 

Regards

Hello,

To display Recordset Results to DataGrid, all you have to do is :

rsdetails.CursorLocation = adUseClient
rsdetails.Open sql, con, adOpenStatic, adLockReadOnly
    With dgpaydetails
        .DataMember = ""
        Set .DataSource = rsdetails
        .Refresh
    End With
 

Regards
Veena

[lucky13]

Hello,

thanks veena, it is working but if u see my query in that i have mention sum function with group by clause. but as per u r solution recordset is showing individual net amount, & that to for the last record for that particular customer.

means for particular customer there are three records & i want net-amount of that three records, but by this i am getting only the amount to third record.
sorry for troubling so much...

Regards

Hello,

To display Recordset Results to DataGrid, all you have to do is :

rsdetails.CursorLocation = adUseClient
rsdetails.Open sql, con, adOpenStatic, adLockReadOnly
    With dgpaydetails
        .DataMember = ""
        Set .DataSource = rsdetails
        .Refresh
    End With
 

Regards
Veena

[QVeen72]

Hi,

I have not changed the SQL Query..
Did you Run the Query at Back end and checked..?


Regards
Veena

[lucky13]

Hi,

thanks veena, when i checked in the backend there , but there is also same result, only showing last record. then i checked i query , there is one mistake that in near strmonth_1 i have not mentioned the less than sign........

thanks a lot.

can u do one more favour for me.... if i want to add user data through data grid... in adding one more column ,, so which property i have to use...ADDNEWMODE or ALLOW ADD NEW.....

thanks a lot once again...........

Regards
Lucky13

Hi,

I have not changed the SQL Query..
Did you Run the Query at Back end and checked..?


Regards
Veena

[ninjamynci]

Hello,

To display Recordset Results to DataGrid, all you have to do is :

rsdetails.CursorLocation = adUseClient
rsdetails.Open sql, con, adOpenStatic, adLockReadOnly
    With dgpaydetails
        .DataMember = ""
        Set .DataSource = rsdetails
        .Refresh
    End With
 

Regards
Veena

Thanks Veena,
You've solved my problem too without me even having to ask!

Cheers
Ninj