Visual Basic

ZurdoDev14-Sep-16 5:44

ZurdoDev

14-Sep-16 5:44

I believe OP is simply asking if it can be done using VB6.

There are only 10 types of people in the world, those who understand binary and those who don't.

NotPolitcallyCorrect14-Sep-16 7:14

NotPolitcallyCorrect

14-Sep-16 7:14

RyanDev wrote:
I believe OP is simply asking

He asked if it were possible for him to do. We have no idea if he can do it or not.

ZurdoDev14-Sep-16 7:18

ZurdoDev

14-Sep-16 7:18

Yes, you're taking it way too literal. D'Oh! | :doh:

There are only 10 types of people in the world, those who understand binary and those who don't.

Eddy Vluggen2-Sep-16 4:26

Eddy Vluggen

2-Sep-16 4:26

Dunno what the revolutions pack is supposed to be, but yes, you could write your own Windows Explorer-like application.

DutchComputerKid wrote:
Or will VB6 make this impossible?

VB6 is dead and buried. Download VB.NET, it is free.

Bastard Programmer from Hell Suspicious | :suss:

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

DutchComputerKid4-Sep-16 21:32

4-Sep-16 21:32

But will that run on Windows XP x64? I have chosen VB6 to make my software compatible with Windows 98 and 95 but I'll need to leave that behind huh?

VB.NET runs on the .NET framework I assume :P
That requires Windows 2000 right?

Chris Quinn4-Sep-16 21:40

Chris Quinn

4-Sep-16 21:40

You mean it doesn't run on CP/M? I'm heartbroken and disappointed!

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

DutchComputerKid4-Sep-16 23:05

4-Sep-16 23:05

I did make a LOT of MS-DOS software, ask if you're interested.

Mycroft Holmes4-Sep-16 22:52

Mycroft Holmes

4-Sep-16 22:52

At some point you are going to have to dig yourself and your clients out of the 20th century. You are going to be hard pressed to get any support for VB6 and it not supported on current equipment.

Never underestimate the power of human stupidity
RAH

DutchComputerKid4-Sep-16 23:08

4-Sep-16 23:08

I guess you're right. :/

But Visual _____ is MSDN and that is expensive as hell as far as I remember, + can I use it on Windows XP? All my PC's run it cause of SafeDisc bullsh*t that MS removed from All current versions. I'd really like to try VB.NET out seen that I have experience in QuickBASIC (all versions) and VB6, so piece of cake.

Richard MacCutchan5-Sep-16 0:18

Richard MacCutchan

5-Sep-16 0:18

DutchComputerKid wrote:
and that is expensive as hell

Not any more, [plenty of free editions at Visual Studio - Microsoft Developer Tools[^].

DutchComputerKid5-Sep-16 2:28

5-Sep-16 2:28

Well yeah, but Vs2015 does not work on XP. Only the runtime for 2015 does. And 2010 is removed from Microsoft's site. Soooo what now? I'm kinda lost here unless I buy an old copy or something I think, right?

See How to get download link to VS2010 Express - for use in a Download Manager - Stack Overflow[^].

Richard MacCutchan5-Sep-16 4:26

Richard MacCutchan

5-Sep-16 4:26

Dave Kreskowiak5-Sep-16 5:31

Dave Kreskowiak

5-Sep-16 5:31

SafeDisk? That wasn't a Microsoft product at all. That was bullshit copy protection by Macrovision, IIRC.

XP isn't even supported any more. What are you hanging onto and why?

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

DutchComputerKid5-Sep-16 21:58

5-Sep-16 21:58

I'm a retro person, so SafeDisc is required for all of my games to run. That's why. + my recent software that I made in VB6 runs only on NT4,Win2k and XP. Soooo yeah.
Most of my programs that I use on a day-to-day basis are also extremely buggy on Vista and above.

Eddy Vluggen6-Sep-16 0:32

Eddy Vluggen

6-Sep-16 0:32

DutchComputerKid wrote:
I'm a retro person

An unsupported 32 bit person in a 64 bit environment.

Bastard Programmer from Hell Suspicious | :suss:

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

Chris Quinn6-Sep-16 2:27

Chris Quinn

6-Sep-16 2:27

He writes MSDOS stuff too, so he's a 16 bit person!

=========================================================
I'm an optoholic - my glass is always half full of vodka.
=========================================================

Dave Kreskowiak6-Sep-16 2:33

Dave Kreskowiak

6-Sep-16 2:33

You're going to find that your very unsupported world is shrinking as there are less and less people in your community still supporting it. The most active people here actively discourage using VB6. Though there are still a few other people who still use it they don't show up very often at all.

A guide to posting questions on CodeProject

Click this: Asking questions is a skill.
Seriously, do it.

Dave Kreskowiak

DutchComputerKid4-Sep-16 23:32

DataTable Select Expressions

4-Sep-16 23:32

Oh nevermind, it requires Win2K for VB.NEt 2003, but what version are you all talking about, 2010 I assume?

jkirkerx31-Aug-16 10:51

31-Aug-16 10:51

I'm in uncharted waters here. Never worked or understood DataTables, but getting better at it.

I have this DataTable named table_Active with Active Customers and the Sales Total
I want to make another DataTable with the Top 10 Customers by Sales Total for a given year, in which I have that in the table_Active Table.

I just need to order by Y1_ATD and take the top 10 and Sum
Then I need to get the Bottom 90 or the rest, I should be able to figure that out after the first one
I have this so far, but I have no clue how to write a DataTable Expression

//Create the Top10 Customer % Report Data
Dim top10Exp As String = ""
If (table_Active.Rows.Count > 0) Then
    table_Top10Percent = table_Active.Select(top10Exp).CopyToDataTable()
End If

//Create the Top10 Report DataTable
Dim row_T10 As DataRow
row_T10 = table_Top10Percent.NewRow()
row_T10("T10") = 80000
row_T10("B90") = 50000
row_T10("YTD") = 130000
table_Top10Percent.Rows.Add(row_T10)

I just need a point in the right direction here.

jkirkerx1-Sep-16 8:18

1-Sep-16 8:18

I found some snippets and tweaked them for my use. Sort of Linq, hard part was forming the expression without a reference.

I ended up dumping the first idea and went back to a DataView to grab my rows as a table, and them summed them up.

Calculate Sum (Total) of DataTable Columns using C# and VB.Net[^]

Dim dv_top10 As New DataView(table_Active)
dv_top10.Sort = "Y1_ATD Desc"
Dim dt_top10 = dv_top10.ToTable().Rows.Cast(Of DataRow)().Take(10)
Dim T10 As Decimal = dt_top10.AsEnumerable().Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))

Richard Deeming1-Sep-16 9:37

Richard Deeming

1-Sep-16 9:37

jkirkerx wrote:
without a reference

DataView.Sort Property (System.Data)[^]:

A string that contains the column name followed by "ASC" (ascending) or "DESC" (descending).
Columns are sorted ascending by default.
Multiple columns can be separated by commas.

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

jkirkerx1-Sep-16 9:48

1-Sep-16 9:48

Reference to a class

.Sum(function(m) m.Y1_ATD) vs .Sum(Function(row) row.Field(Of Decimal)("Y1_ATD"))

Sort of writing a manual type, in which I didn't know you can do.

jkirkerx1-Sep-16 9:52

1-Sep-16 9:52

I'm gonna revisit my packaging algorithm soon. I haven't been able to work on that project for over 3 weeks now. Maybe I'll try Just Answers and pay someone for help on that.

Sorting a DataSet

jkirkerx30-Aug-16 12:00

Re: Sorting a DataSet [solved]

30-Aug-16 12:00

I'm trying to sort a dataset, because I can't do it in SQL, the Order By would have to be a join and sum of invoices from a data range.

I have this code that I wrote, but it doesn't sort. Am I on the right track here?
I tried sorting on the DataTable before adding it to the dataset but was not successful.
Maybe I'm suppose to get the DataView back to the set.
This is my time doing this and I have no clue.

Dim table_Active As DataTable = New DataTable()
table_Active.TableName = "dt_customerActive"
table_Active.Columns.Add(New DataColumn("ID", System.Type.GetType("System.String")))

//Assign the dataSet to the Tablix in the report canvas body
 Dim ds_Active As DataSet = New DataSet()
 ds_Active.DataSetName = "ds_customerActive"
 ds_Active.Tables.Clear()
 ds_Active.Tables.Add(table_Active)
 ds_Active.Tables(0).TableName = "tablix_salesActive"

//Sort the Active Table according to TATD
 Dim dV As DataView = New DataView(ds_Active.Tables("tablix_salesActive"))
 Select Case p_sortOrder
      Case salesHistory5Year_Sort.Name
        dV.Sort = "Name"

      Case salesHistory5Year_Sort.Spent
        dV.Sort = "TATD DESC"

     Case salesHistory5Year_Sort.Territory
        dV.Sort = "Territory"

End Select

jkirkerx30-Aug-16 12:27