We are reading a specific text file and  outputting it with new data, but noticed that the  output file doesn't get  created  and even less, no data seems to be exported.  We went step by  step and there is no error.

Please advice on what's missing in  the below code so it  can export the variable 'zFullPath'.

Code:

Imports System.IO
Public Class Form1
    Private Sub cmdExportIt_Click(sender As Object, e As EventArgs) Handles cmdExportIt.Click
        Dim inFilePath = "C:\temp\pIN.txt"
        Dim Vars, PrevPathname, zPathname, zFilename, zAllData, zFullPath As String
        PrevPathname = "blank"
        For Each Line In File.ReadLines(inFilePath)
            If Microsoft.VisualBasic.Left(Line, 13) = " Rans)(*&" Then
                zPathname = Replace(Microsoft.VisualBasic.Right(Line, Len(Line) - 14), txtExtractDrive.Text, "")
            Else
                zPathname = PrevPathname
            End If
            PrevPathname = zPathname
            If Mid(Line, 3, 1) = "/" Then
                zFilename = Microsoft.VisualBasic.Right(Line, Len(Line) - 39)
                zAllData = zPathname & "_" & zFilename 
                zFullPath = zPathname & vbTab & zFilename & vbTab & zAllData
                File.WriteAllText("C:\temp\pOUT.txt", zFullPath)
            End If
        Next
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
End Class

Select all Open in new window

I want to use WIA objects in my projects through late binding.

Hi Experts,

My customer needs a report like this(Please see the attached report). How to create something like this. I have all the Data. I am using ASP.Net, VB.Net and RDLC reports. Please help.

Thanks in advance.
BGMenu.png

I am developing a printserver app and on the oldest Print Server is a windows 2003 server. When you query the Print Server for desiredn values instead of a straight IP Address you get for example IP_168.112.75.11 i NEED TO LOSE THE IP_ so I can access the network printer's web interface. I Know there's a replace command but I'm just looking for a quick answer that works I know this is easy for you Experts Please in VB.NET CONTEXT.
2003 SERVER


Thanks EE you guys kick ass.
2003pRINTSERVER.png

The following code has two counters. One runs directly from the form (in the main thread) and another is performed by a BackgroundWorker. Interestingly, the two counts do occur at the same time (which is the intent...win!) but the progressbar doesn't change at all until after the BackgroundWorker has finished. Of course, I'd like the progressbar to update during the counting. Help?

Note: The code below is just a test I'm performing so I can take the structure and expand it to a real-world, time-consuming, stored-proc.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ProgressBar1.Maximum = 10
    End Sub

    Private Sub btnHeavyTask_Click(sender As Object, e As EventArgs) Handles btnHeavyTask.Click
        Debug.Print("Starting to count now")
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.RunWorkerAsync()
        mainThreadTask()
    End Sub

    Private Sub mainThreadTask() 
        Dim i As Integer = 0

        Do Until i = 15
            Me.txtHeavyTask.AppendText(vbCrLf + i.ToString)
            Me.txtHeavyTask.Refresh()
            Threading.Thread.Sleep(500)
            i += 1
        Loop

        Me.txtHeavyTask.Text = "Done"
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim i As Integer = 1

        Do Until i = 10
            

Select all Open in new window

…

Hi,

I have just started trying to learn Visual Basic 2015 and the book I am using has in the code instructed me to use the following code :

"Val" to convert a text string; and
"Me" to reference the current form

Neither of which are recognisied by Visual Basic 2015.

    private void Form1_Load(object sender, EventArgs e)
        {

        }

        private void button1_Click(object sender, EventArgs e)
        {
            Sum.Text = Val(Num1.Text) + (Val(Num2.Text));
        }
    }
}



  public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            Me.Text = InputBox("Enter a Caption...")
        }
    }
}

Hi EE,

in vb.net, I have a TreeView control.

each nodes (lets say I have 5) like this :

Apples
Tomatoes
Oranges
Grapes
Bananas


each of them has an "ID" or a "Code" in the background.  lets say its :

Apples     [0020]
Tomatoes   [0025]
Oranges     [0060]
Grapes     [0061]
Bananas    [0110]


My 2 questions are :

1) If I have a button "Add item" is it possible to add a node at the end of the tree, the user writes the name of the fruit, then he could drag the new node somewhere in between 2 fruits to place it where he wants it ?

2) since there are codes to each fruit, if user drags it in between [0025] and [0060] I would like the code to be automatically created at 0026 to be placed in between !

But it goes to another question, what If after the user creates another one and wants to place it in between of 0025 and 0026 ? now there is not space anymore between the codes ! we would have to increment of + 1 all the codes then place it in between.

so thats my issues... I realyl need help on this...
thank you.

(I am using fruits as an example but this is for work in our Logistic menu in our system. right now its not efficient, I have created the TreeView and reading values from SQL, but im stuck there for the rest)

Dear Experts,

Can anybody help me to sort out the issue?

Issue Description : I need to get the textbox entered value in gridview at the time of linkbutton click event.

Design Page :

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="prefLine"
                                                    AllowPaging="True" AllowSorting="True"
                                                    OnPageIndexChanging="GridView1_PageIndexChanging" Width="100%" BackColor="White" BorderColor="#999999" EnableModelValidation="True" GridLines="Vertical">
                                                    <Columns>
                                                        <asp:TemplateField HeaderText="Edit" >
                                                            <ItemTemplate>
                                                                <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl='<%#String.Format("frmSls.aspx?id={0}&det={1}", HttpUtility.UrlEncode(Eval("nSlsID").ToString()), HttpUtility.UrlEncode(Eval("nSlsDetID").ToString())) %>'
                                                                    Text="Edit" CommandName="select">
                                                                </asp:HyperLink>
                                                            </ItemTemplate>
                                                        </asp:TemplateField>
                                                        

Select all Open in new window

…

so its a basicaly a complaint form ,if the complaint is solved it should remove the row automatically from datagridview

Hi,
 I want to upload my excel data file to access using button event. Below is my code.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim Conn As OleDbConnection

        Dim Cmd As OleDbCommand

        Dim Filename As String = "D:\Ayyappan\claimDump.xlsx"

 

        'Try

        Dim StrFileName As String = String.Empty

        Dim XLA As New OleDbDataAdapter

        Dim XLTable As New DataTable

        Dim StrSelect = "SELECT * FROM [{0}]"

 

        OpenFileDialog1.FileName = ""

        OpenFileDialog1.Filter = "Excel |*.xlsx|All files (*.*)|*.*"

        If OpenFileDialog1.ShowDialog() <> Windows.Forms.DialogResult.OK Then

            Exit Sub

        End If

        StrFileName = OpenFileDialog1.FileName

        Conn = DBConn()

 

        Cmd = New OleDbCommand("INSERT INTO claimDump([a],[b],[c],[d],[e],[f])  SELECT * INTO [Excel 12.0 xml;DATABASE=" & StrFileName & ";Extended Properties=Excel 8.0;]", Conn)

        Cmd.ExecuteNonQuery()

        ' Catch ex As Exception

        ' MsgBox("Some error")

 

        'End Try

 

    End Sub

While running the code I got "IErrorInfo.GetDescription failed with E_FAIL(0x80004005" this error.

 
Am checking my excel sheet the header name is same as per the insert statement like a,b ,c etc..

Can anyone help me on that.

I have a subdomain subdomain1 in a primary domain maindomain1.com
I created a folder myfolder under the subdomain root, and granted public read/write access on

When I write the following code In my windows application,
           
            Dim upload As New System.Net.WebClient()
            upload.UploadFile("http://www.subdomain1.maindomain1.com/myfolder" , mylocalfilefullpath)

I am getting error 404 (non existing folder or file. What Am I doing wrong. Thanks for the help