DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

what problem in this.........

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

what problem in this.........

Oct 5th, 2009

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Sub QryReport()
    On Error Resume Next
 
    Dim QryDef As QueryDef
    Dim str As String
 
    Set QryDef = dbase.QueryDefs("balancesheet")
    dbase.QueryDefs.Refresh
 
    If Err.Number = 3265 Then
        Set QryDef = dbase.CreateQueryDef("balancesheet")
        dbase.QueryDefs.Refresh
    End If
 
 
        str = "select *  from [balancesheet]" & _
              " where Date ='" & Dtpicker.Value & "'"
 
    QryDef.SQL = str
    datareport1.Show
    End Sub
Sub QryReport()
    On Error Resume Next
    
    Dim QryDef As QueryDef
    Dim str As String
    
    Set QryDef = dbase.QueryDefs("balancesheet")
    dbase.QueryDefs.Refresh
    
    If Err.Number = 3265 Then
        Set QryDef = dbase.CreateQueryDef("balancesheet")
        dbase.QueryDefs.Refresh
    End If
    

        str = "select *  from [balancesheet]" & _
              " where Date ='" & Dtpicker.Value & "'"

    QryDef.SQL = str
    datareport1.Show
    End Sub

here show the all data. but the sql command not work. I mean when I select a date the report didn't show that date's data. it show all data. what problem ?

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 243

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 34

AndreRet

Offline

Posting Whiz in Training

Oct 6th, 2009

Try the following syntax -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
str = "SELECT *  from [balancesheet] WHERE Date = DateValue(" & "'" & Dtpicker.Value & ")" & "'"
str = "SELECT *  from [balancesheet] WHERE Date = DateValue(" & "'" & Dtpicker.Value & ")" & "'"

You can also choose a specific date as in -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
str = "SELECT *  from [balancesheet] WHERE Date => DateValue(" & "'" & Dtpicker.Value & ")" & "'"
str = "SELECT *  from [balancesheet] WHERE Date => DateValue(" & "'" & Dtpicker.Value & ")" & "'"

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Oct 6th, 2009

not work. it show the all data.

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 243

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 34

AndreRet

Offline

Posting Whiz in Training

Oct 6th, 2009

•

str = "select * from [balancesheet] where Date ='" & Dtpicker.Value & "'"

Make sure that you refer to 'Date' above as a field in your database. If you have named your date field something different, then use that name syntax i.e. your date field name is 'DateOfRecord' your code will look something like -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
str = "SELECT *  from balancesheet WHERE DateOfRecord=DateValue(" & "'" & Dtpicker.Value & ")" & "'"str
str = "SELECT *  from balancesheet WHERE DateOfRecord=DateValue(" & "'" & Dtpicker.Value & ")" & "'"str

Also get rid of the [] tags, it is only used when there is a space in your data table name for instance balance sheet will become [balance sheet].

hope this solves your problem.

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

Oct 7th, 2009

not work. more thing:
1. I use query (balancesheet)
2. in dataenvironment: data object - view , object name - balancesheet. in grouping tab - field used grouping - category. in Aggregates tab - name: total, function: sum, Aggregate on: grouping, Field: Amount.
here I do it, to see the sum of category. it work, I mean it show the total sum by category. but the above code i use to see the sum of category by date. I mean I select a date and the total sum will show by this date.

I like sword. Attack or Defense.