Visual Basic Discussion Boards

Re: Need help with date to date calculation of a total of different rows

Maciej Los9-Jan-18 4:47

Maciej Los

9-Jan-18 4:47

Thanks!

I wouldn't be able to say it better.

Beer | [beer]

Re: Need help with date to date calculation of a total of different rows

Maciej Los9-Jan-18 5:07

Maciej Los

9-Jan-18 5:07

Well...

I've updated my answer. Thanks for your valuable comment. As to my statement "your code is SqlInjection vulnerable" i believe that Dave's comment reflects on my point of view.

Re: Need help with date to date calculation of a total of different rows

A_Griffin9-Jan-18 5:42

A_Griffin

9-Jan-18 5:42

OK - I'm sorry if I came over a bit arsey... of course parametrised queries are the right approach. Nevertheless there are occasions when they are not necessary and it's just as easy to write the SQL directly, and personally I see little harm in that.

Re: Need help with date to date calculation of a total of different rows

Maciej Los9-Jan-18 6:47

Maciej Los

9-Jan-18 6:47

OK.

Cheers
Maciej

Re: Need help with date to date calculation of a total of different rows

A_Griffin8-Jan-18 23:28

A_Griffin

8-Jan-18 23:28

There's not really enough information here to help - but in general you can get a total either by using the SUM function in a SQL query

SQL

SELECT SUM(number_or_currency_field) FROM table_name WHERE etc

or you can get the sum from your datagrid or grtidview either by adding the values in the appropriate cells after databinding, or adding them as you go in the rowdatabound event.

By Excel VBA how we can act on web page components (eg. buttons) of new FireFox releases (48+)?

Member 136092555-Jan-18 16:32

Member 13609255

5-Jan-18 16:32

Dear all

By Excel VBA, how is it possible a button clicking into a Web page rendered by the new versions of FireFox (48+)?

Is there any javascript to be executed through an Excel VBA code?

Thanks in advance for any helps or suggestions on this issue.

Regards
E.C.

Re: By Excel VBA how we can act on web page components (eg. buttons) of new FireFox releases (48+)?

Maciej Los8-Jan-18 7:10

Maciej Los

8-Jan-18 7:10

It depends on many factors...

listview groupstate

JR2124-Jan-18 3:05

JR212

4-Jan-18 3:05

Hi,

How can I find the current state of a listviewgroup?
What I found

Public Function GetgroupColapseState(groep As Integer) As Boolean
      If Environment.OSVersion.Version.Major < 6 Then Return False
      Dim GrpId As System.Nullable(Of Integer) = GetGroupID(Me.Groups(groep))
      Dim statemask As Integer

<pre>
  Dim nreturn As Integer = SendMessage(Handle, LVM_GETGROUPSTATE, groep, statemask) 
End Function</pre>

is not working

LVM_FIRST = &H1000
LVM_GETGROUPSTATE = (LVM_FIRST + 92)

I want to not print the collapsed groups

Jan

Re: listview groupstate

JR2128-Jan-18 2:55

JR212

8-Jan-18 2:55

Hi,

Is there nobody who can help.
Are all programmergeniusses on holyday?

Jan

Re: listview groupstate

phil.o8-Jan-18 11:24

phil.o

8-Jan-18 11:24

SendMessage(IntPtr hWnd, int msg, int wParam, int lParam), when msg = LVM_GETGROUPSTATE wil return a bit flag value expressing the group state of the group whose id = wParam. lParam contains a bit flag value expressing which group states are allowed.
So, first is to get something useful for these bit flag values. This enum can help:

<Flags()> _
Public Enum GroupState

   ''' <summary>
   ''' The group is in normal state.
   ''' </summary>
   LVGS_NORMAL = 0

   ''' <summary>
   ''' The group is collapsed.
   ''' </summary>
   LVGS_COLLAPSED = 1

   ''' <summary>
   ''' The group is hidden.
   ''' </summary>
   LVGS_HIDDEN = 2

   ''' <summary>
   ''' The group has no header.
   ''' </summary>
   LVGS_NOHEADER = 4

   ''' <summary>
   ''' The group can be collapsed.
   ''' </summary>
   LVGS_COLLAPSIBLE = 8

   ''' <summary>
   ''' The group has focus.
   ''' </summary>
   LVGS_FOCUSED = 16

   ''' <summary>
   ''' The group is selected.
   ''' </summary>
   LVGS_SELECTED = 32
   ''' <summary>
   ''' The group is subsetted.
   ''' </summary>
   LVGS_SUBSETED = 64

   ''' <summary>
   ''' The subset link has focus.
   ''' </summary>
   LVGS_SUBSETLINKFOCUSED = 128

   ''' <summary>
   ''' All states.
   ''' </summary>
   LVGS_ALL = 65535

End Enum

(source: ObjectListView[^])
So, here are the points you could try:
- use GrpId.Value. This makes a big difference. If GetGroupId returns null, there is no point calling SendMessage.
- make stateMask a GroupState value, not a simple integer value, and give it a meaningful masking value (GroupState.LVGS_ALL for example).
- interpret the return value of SendMessage as a GroupState value.
In short:

Dim stateMask As GroupState = GroupState.LVGS_ALL
Dim GrpId As System.Nullable(Of Integer) = GetGroupID(Me.Groups(groep)
Dim result As GroupState
If (GrpId.HasValue)
   result = (GroupState)SendMessage(Handle, LVM_GETGROUPSTATE, GrpId.Value, (int)stateMask)
End If

"I'm neither for nor against, on the contrary." John Middle

Re: listview groupstate

JR2128-Jan-18 21:27

JR212

8-Jan-18 21:27

Thanks

this is the working result

Public Function GetgroupColapseState(ByVal lstvwgrp As ListViewGroup) As Boolean
  If Environment.OSVersion.Version.Major < 6 Then Return False
  Dim GrpId As System.Nullable(Of Integer) = GetGroupID(lstvwgrp)
  Dim stateMask As ListViewGroupState = ListViewGroupState.all
  If (GrpId.HasValue) Then
    Dim result As ListViewGroupState = SendMessage(Handle, LVM_GETGROUPSTATE, GrpId.Value, stateMask)
    Return (result And ListViewGroupState.Collapsed) = ListViewGroupState.Collapsed
  End If
End Function

I wasn't giving as statemask

happy again
Jan

Re: listview groupstate

phil.o9-Jan-18 3:09

phil.o

9-Jan-18 3:09

You are welcome.

"I'm neither for nor against, on the contrary." John Middle

Organization Chart in vb 6

Ayat Setiawan26-Dec-17 21:45

Ayat Setiawan

26-Dec-17 21:45

if anyone can help create an organization chart in visual basic 6.0, I have 1 table and for relation there is parent

Re: Organization Chart in vb 6

Richard MacCutchan26-Dec-17 22:38

Richard MacCutchan

26-Dec-17 22:38

Switch to VB.NET and you will most likely find lots of helper classes.

Re: Organization Chart in vb 6

Dave Kreskowiak27-Dec-17 4:43

Dave Kreskowiak

27-Dec-17 4:43

Why on this earth are you starting new development work in VB6? It's been dead for quite a long time now.

Switch to VB.NET and you'll find the tool and support communities considerably larger than for VB6.

System.ItDidntWorkException: Something didn't work as expected.

C# - How to debug code[^].
Seriously, go read these articles.

Dave Kreskowiak

Organization Chart in vb 6

Ayat Setiawan26-Dec-17 21:45

Ayat Setiawan

26-Dec-17 21:45

if anyone can help create an organization chart in visual basic 6.0, I have 1 table and for relation there is parent

connection string

Member 1359500326-Dec-17 11:10

Member 13595003

26-Dec-17 11:10

connectionstring is not a member of sqliteconnection

Re: connection string

Dave Kreskowiak26-Dec-17 18:24

Dave Kreskowiak

26-Dec-17 18:24

Great. Thanks for the "heads up".

Now, did you have an actual question or a problem description, with a relevant code snippet or what?

System.ItDidntWorkException: Something didn't work as expected.

C# - How to debug code[^].
Seriously, go read these articles.

Dave Kreskowiak

Re: connection string

Eddy Vluggen26-Dec-17 21:30

Eddy Vluggen

26-Dec-17 21:30

It should be; ConnectionString is part of the IDbConnection which the SQLiteConnection implements. Perhaps it would be easier to see what went wrong if you show us some code.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

how to rectify class not support error in vb6 at win 7

Afarook Abdul Majeed22-Dec-17 17:32

Afarook Abdul Majeed

22-Dec-17 17:32

how to rectify class not support error in vb6 at win 7

Re: how to rectify class not support error in vb6 at win 7

Peter_in_278022-Dec-17 19:06

Peter_in_2780

22-Dec-17 19:06

Start with something from this century, this millenium.

Quote:
Mainstream Support for Microsoft Visual Basic 6.0 ended on March 31, 2005. Extended support ended in March 2008.

Re: how to rectify class not support error in vb6 at win 7

Richard Deeming8-Jan-18 6:08

Richard Deeming

8-Jan-18 6:08

Start by providing a clear and complete description of the problem. Include the complete error message, and the relevant parts of your code. Remember to indicate which line of code the error relates to.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Load Report Failed Error show while direct printing crystal report vb.net(Not Every Time)

rttech3121-Dec-17 9:36

rttech31

21-Dec-17 9:36

i m using this code to print crystal report with out priview ,Some Time Load Report Faild Error Show ,when i close and reopen application again report will printed,how can i resolve this error please guide me,my code is

<pre> Dim crtableLogoninfo As New TableLogOnInfo
                Dim crConnectionInfo As New ConnectionInfo
                Dim CrTables As Tables
                '  Dim CrTable As Table
                Dim TableCounter
                Dim crReportDocument As New ReportDocument
                Dim crParameterDiscreteValue As ParameterDiscreteValue
                Dim crParameterFieldDefinitions As ParameterFieldDefinitions
                Dim crParameterFieldLocation As ParameterFieldDefinition
                Dim crParameterValues As ParameterValues
                Dim billno As New InfoGeneration
                Dim sname As ConfigurationSettings
                crReportDocument.Load(Application.StartupPath & "\Reports\rptsinv.rpt")
                With crConnectionInfo
                    .ServerName = sname.AppSettings("servername")
                    .DatabaseName = sname.AppSettings("dbname")
                    .UserID = sname.AppSettings("username")
                    .Password = sname.AppSettings("password")
                End With
                CrTables = crReportDocument.Database.Tables
                For Each CrTable In CrTables
                    crtableLogoninfo = CrTable.LogOnInfo
                    crtableLogoninfo.ConnectionInfo = crConnectionInfo
                    CrTable.ApplyLogOnInfo(crtableLogoninfo)
                Next
               
                crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
                crParameterFieldLocation = crParameterFieldDefinitions.Item("s_id")
                crParameterValues = crParameterFieldLocation.CurrentValues
                crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
                crParameterDiscreteValue.Value = txts_id.Text
                crParameterValues.Add(crParameterDiscreteValue)
                crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
                crReportDocument.PrintToPrinter(txtcopies.Text, False, 0, 0)

VB Searching for data displayed in datagrid/textbox using customer second name

faiqaa20-Dec-17 0:31

faiqaa

20-Dec-17 0:31

I need to be able to search through the data I have displayed in a datagrid view/textbox using the surname of a customer ( I have used Textfiles NOT SQL)

Re: VB Searching for data displayed in datagrid/textbox using customer second name

Richard MacCutchan20-Dec-17 1:25

Richard MacCutchan

20-Dec-17 1:25

Searching through a DataGridView is a simple matter of iterating the rows and checking the relevant columns for data matches. Searching a TextBox is just a string operation.

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.