Hello,

Changing Target CPU from X86 to x64 makes the designer have lot of errors. I am using visual studio 2017.
any suggestions?

Is the latest version of Visual Basic part of Visual Studio 2017?  I really only need the latest version of Visual Basic for Winows 10.  That's all I really need.

I am filling labels on a form from two Access Database tables using VB.Net. My first SQL statement works perfectly and populates the datatable correctly. The second database connection is not working correctly but the SQL statement appears to be written correctly. In the second SQL statement I want to pull the QTY value from two different rows. The error I get during build is because the second data table is empty. Here is my code and thanks in advance Experts.

Dim cmd As New OleDbDataAdapter
        Dim cmd2 As New OleDbDataAdapter
        Dim iCalc1 As String
        Dim lCalc2 As Long
        ' Dim ds As DataSet
        Dim dt As DataTable = New DataTable()
        Dim dt2 As DataTable = New DataTable()
        ' ds.Tables.Add(dt)

        iCalc1 = TxtPartN.Text
        lCalc2 = TxtQty.Text
        Using conn As OleDb.OleDbConnection = CreateConnection()

            conn.Open()
            cmd = New OleDbDataAdapter("Select Customer, [Matl Code], [Box Code], [Part Wt Grams], [Piece Box] from [Parts Data] where [Part Number] = '" & iCalc1 & "'", conn)
            conn.Close()
            cmd.Fill(dt)

            LblMCode.Text = dt.Rows(0).Item(1)
            LblBCode.Text = dt.Rows(0).Item(2)
            LblMatNeed.Text = dt.Rows(0).Item(3) * lCalc2 / 453.59237 & " Lbs"
            LblPCount.Text = dt.Rows(0).Item(4)
            LblBoxNeed.Text = lCalc2 / LblPCount.Text

        End Using
        Using conn As OleDb.OleDbConnection = …

how do you restart a timer in vb.net?
i have tried timer1.stop then timer1.start  i have tried timer1.enabled = false then timer1.enabled = true  nothing seems to work

I have two forms for a vb.net program that access and access db. One form uses a dataset, bindingsource, and tableadapter and works fine. The other I used a function for thel connection and I get the error: Provider=Microsoft.ACE.OLEDB.16.0' provider is not registered on the local machine. My code is below.

Private Function CreateConnection() As OleDb.OleDbConnection
        Return New OleDb.OleDbConnection("Provider=Provider=Microsoft.ACE.OLEDB.16.0;Data Source;Data Source=|DataDirectory|\database.accdb;Persist Security Info=False")
End Function

I have a 32 bit version of office installed on my system and I have 1386 cpu selected.

Thanks experts for your help

Hi All,

I have a windows form with a listview control.
The listview has checkbox.

Everytime user check/uncheck the checkbox, I want to looping it and get checked checkbox.

At what event should I trap it ?

Thank you.

How do u bundle files in visual basic.net. What I mean is I have three files that need to goto programdata\reprint    how do I force the program to put those files  in dir path? Do I have to use file.write in the form load or is there a better way to package it. Maybe a package maker of some sort?

How can I show a custom error page for a 404 error. For example, if a 404 error occurs, the user is redirected to error404.aspx.

Code is vb.net

Hi All,

I want to set version of a application.

1. Where to put it ?
2. How to set version of application?

Thank you.

When someone changes the value in a ComboBox in a VB.net program, I'd like it to check If the value is the word "Other".  How can I have that done right after they make their selection on that ComboBox?

can't seem to figure out how to get the oldest directory that isn't empty. i have tried the following code but end up getting the wrong directory

Private Function checkdiff()
        Try
            Dim folder As New DirectoryInfo("c:\program files")


            Dim oldest As DirectoryInfo = Nothing

            For Each dir As DirectoryInfo In folder.GetDirectories()
                If oldest Is Nothing Then
                    oldest = dir

                ElseIf dir.CreationTime < oldest.CreationTime Then

                    If dir.GetFiles.Length > 1 Then
                        oldest = dir
                    End If
                End If

            Next
            Dim difference As Long
            If oldest IsNot Nothing Then
                difference = DateDiff(DateInterval.Day, Date.Now, oldest.LastWriteTime)

                MsgBox("The difference in the date is: " & difference.ToString() & " Directory is : " & oldest.FullName)
            Else
                MsgBox("The directory does not exist")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try

    End Function

Select all Open in new window

I have received a program ( code included (x64)) to help kick open my posiflex cash drawer. I decided to create a test program (TestCD) to fist see if i could replicate the code. I can get the object to open and get the drawer to kick open but I cant close the object. Leaving it open causes the cash drawer to lose power. If someone can have a look at the two programs and maybe tell me what I am missing. I had a look at references and the forms but feel free to double check. I am not sure how much help the source code would be since you would need a cash drawer to test but please find below a link the the two programs. Ask if you need anything else and I will supply it asap.

https://www.dropbox.com/sh/sbdrhvwdbbyte2y/AAAEapPv36queudGr2hfKKfpa?dl=0

Regards,
Markus

How do you create a LINQ statement in Visual Basic to query an AccessDataSource?   I want the results to target a datasource that will be bound to a control.

Thanks