CodeProject Latest postings for Visual Basic

HOW TO ANSWER A QUESTION

Chris Maunder — Mon, 13 Jul 2009 08:40:00 GMT

Apologies for the shouting but this is important.

When answering a question please:

Read the question carefully
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar
If a question is poorly phrased then either ask for clarification, ignore it, or mark it down. Insults are not welcome
If the question is inappropriate then click the 'vote to remove message' button

Insults, slap-downs and sarcasm aren't welcome. Let's work to help developers, not make them feel stupid.

cheers,
Chris Maunder

The Code Project Co-founder
Microsoft C++ MVP

How to get an answer to your question

Chris Maunder — Fri, 11 Nov 2005 03:30:00 GMT

For those new to message boards please try to follow a few simple rules when posting your question.

Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
Keep the subject line brief, but descriptive. eg "File Serialization problem"
Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
No advertising or soliciting.
We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.

cheers,
Chris Maunder

The Code Project Co-founder

Microsoft C++ MVP

vb.net mysql javascript

AMRO DAMMAM — Tue, 16 Jul 2024 06:05:00 GMT

Public Sub FetchDataByName(customerName As String)
       ' Show debugging message
       MessageBox.Show("FetchDataByName called with Name: " & customerName)

       ' Replace with your actual MySQL connection details
       Dim connectionString As String = "Server=localhost;Port=3306;Database=MyData;Uid=asmgssl;Pwd=0786;"
       Dim query As String = "SELECT * FROM customer WHERE cname = @cname"

       Try
           Using connection As New MySqlConnection(connectionString)
               connection.Open()
               Using command As New MySqlCommand(query, connection)
                   command.Parameters.AddWithValue("@cname", customerName)
                   Using reader As MySqlDataReader = command.ExecuteReader()
                       ' Process query result
                       If reader.Read() Then
                           ' Example: Retrieve data and show in message box
                           Dim customerId As Integer = reader.GetInt32("id")
                           Dim customerAddress As String = reader.GetString("address")
                           MessageBox.Show($"Customer ID: {customerId}, Address: {customerAddress}")
                       Else
                           MessageBox.Show("No data found for Name: " & customerName)
                       End If
                   End Using
               End Using
           End Using
       Catch ex As Exception
           MessageBox.Show("Error fetching data: " & ex.Message)
       End Try
   End Sub

   Private Sub LoadHtmlContent()
       ' Define the HTML content
       Dim html As String = "<!DOCTYPE html>" &
                        "<html>" &
                        "<head>" &
                        "<title>Test Page</title>" &
                        "<script type='text/javascript'>" &
                        "function FetchDataByName() {" &
                        "    if (window.external && typeof window.external.FetchDataByName === 'function') {" &
                        "        var customerName = document.getElementById('inputName').value;" &
                        "        console.log('Fetching data for customer name: ' + customerName);" &
                        "        window.external.FetchDataByName(customerName);" &
                        "    } else {" &
                        "        console.error('window.external.FetchDataByName is not available.');" &
                        "    }" &
                        "}" &
                        "</script>" &
                        "</head>" &
                        "<body>" &
                        "<h1>Test Page</h1>" &
                        "<input type='text' id='inputName' placeholder='Enter Customer Name'>" & ' Changed id to inputName and placeholder text
                        "<button onclick='FetchDataByName()'>Fetch Data</button>" &
                        "</body>" &
                        "</html>"

       ' Load the HTML content into the WebBrowser control
       WebBrowser1.DocumentText = html
   End Sub

not fetch data

How to install Visual basic 6.0 PRO or Visual studio 6.0 using vbinstaller

Blue Moon 2021 — Fri, 12 Jul 2024 07:58:00 GMT

Hi, When I try to install vb6 PRO or visual studio 6 Enterprise on Windows 10 pro 64 bit the following message appears:

access/path error: "cmdInstallvs6_click of frmmain2.frm" and the installation fails here

What does it mean ? How can I solve it ?

Thanks

simple code ,how i can connect and read record from table in SQL database (VB.NET)

Member 16299035 — Mon, 08 Jul 2024 07:13:00 GMT

i am begginer

i have a Sql database include in 2 tables

i want someone help me to :

- how i connect to database by code
- how i can select tables
- how i read recordes
- what imports needed

thnx

How to use web services in vb.net

yvesauff — Mon, 15 Apr 2024 15:15:00 GMT

I have to make an application with web service but i never make that.
The web service is Kelio of Bodet.
Somes examples could help me.

Thanks

Selected row always visible in datagridview research

medi dimie — Sat, 02 Mar 2024 12:53:00 GMT

I want to perform a search in a DataGridView. The search command is working, but I have a problem: a row always remains visible in the DataGridView even if it does not correspond to the search criteria. This row is always the last selected one. I have tried using 'ClearSelection,' and no rows are selected/highlighted, but the problem persists—the same row is still visible. this is my code :

Private Sub TxtboxReserch_TextChanged(sender As Object, e As EventArgs) Handles TxtboxReserch.TextChanged
       If TxtboxReserch.Text = "" Then
           For i = 0 To DataGridView1.RowCount - 1
               DataGridView1.Rows(i).Visible = True
           Next
       Else
           DataGridView1.ClearSelection()
           For i = 0 To DataGridView1.RowCount - 1
               Try
                   DataGridView1.Rows(i).Visible = (DataGridView1.Rows(i).Cells(1).Value Like "*" + TxtboxReserch.Text + "*")

               Catch ex As Exception

               End Try
           Next
       End If
   End Sub

Research in datagridview

medi dimie — Sat, 02 Mar 2024 11:52:00 GMT

I want to perform a search in a DataGridView. The search command is working, but I have a problem: a row always remains visible in the DataGridView even if it does not correspond to the search criteria. This row is always the last selected one. I have tried using 'ClearSelection,' and no rows are selected/highlighted, but the problem persists—the same row is still visible. this is my code :

Private Sub TxtboxReserch_TextChanged(sender As Object, e As EventArgs) Handles TxtboxReserch.TextChanged
       If TxtboxReserch.Text = "" Then
           For i = 0 To DataGridView1.RowCount - 1
               DataGridView1.Rows(i).Visible = True
           Next
       Else
           DataGridView1.ClearSelection()
           For i = 0 To DataGridView1.RowCount - 1
               Try
                   DataGridView1.Rows(i).Visible = (DataGridView1.Rows(i).Cells(1).Value Like "*" + TxtboxReserch.Text + "*")

               Catch ex As Exception

               End Try
           Next
       End If
   End Sub

My problem is with the Next button. At the last rows, this message appears : System.ArgumentOutOfRangeException: 'Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index'

anis78 — Wed, 31 Jan 2024 12:46:00 GMT

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
      Dim i As Integer = DataGridView1.CurrentRow.Index + 1
      If i < 0 Then i = 0
      DataGridView1.CurrentCell = Me.DataGridView1.Rows(i).Cells(0)
      DataGridView1.Rows(i).Selected = True







  End Sub

VB6 printing bitmap or image on a POS Printer

Member 14914301 — Tue, 30 Jan 2024 10:37:00 GMT

I want to output a bitmap file to a POS printer using VB6. The ESC/POS mode should be used.
Does the file need to be converted? If yes how? Is there documentation or an example?
Printing and formatting text is no problem. I just can't find any way to solve the problem.

Thank you.

Unhandled exception at 0x77702d63 (shell32.dll) in blahblah.exe What does this really mean?

Member 15109325 — Sat, 27 Jan 2024 10:32:00 GMT

I'm completely confused with this error from VS2012 and VS2019 on an VB.Net app that has been running fine for years. This pops up while running a simple sub at the codeline:

OpenFileDialog1.ShowDialog()

What makes it really strange is that there multiple subs of this exact same OpenFileDialog on several other forms in this project that work perfectly fine.
I have removed the Dialog object from the form, replaced it, put a second Dialog object 'OpenFileDialog2'and still get the same results. This one Form out of 7 others just refuses to work with me on this
Anybody got a clue on what I should be looking for, please hit me with it, this is actually the most important OpenFileDialog in the whole project.
And Thank You in advance,

Access Outlook via VB.Net

Marvin Wapnitsky — Fri, 26 Jan 2024 22:02:00 GMT

Years ago, I wrote a VB6 App to add creation date to certain Outlook items. Now, I don't even know how to access Outlook folders via VB.NET. A complete code sample to run through the Outlook folders would be much appreciated.
Thanks.
Marvin

Which Visual Studio is right for ME?

Member 15109325 — Mon, 22 Jan 2024 06:15:00 GMT

Simple question for experienced and sympathetic VB.Net developers.
I'm a senior citizen and I haven't really done much Dev for a long time (15yrs) but have occasionally worked on VS12 with VB.Net. I am NOT a trained/schooled developer...mostly self taught to do enough to get by in my own work. My dev is for me only, I don't build with pro teams or any product for sale. It's just to handle MY databases and other app needs.
Looking at the various VS platforms from VS17 thru VS22 I am torn on which way to go as I don't need to be overwhelmed by a steep learning curve just to connect to Access-Office 365 and import/export, manage/report data.
I would appreciate general recommendation before I d/l & install something that intimidates or scares the hell out of me. I'm leaning towards VS17 but could be persuaded otherwise. Please be gentle
I appreciate your responses, thank you.

mysql to tally

CHANDRA SEKAR Nov2022 — Fri, 01 Dec 2023 07:52:00 GMT

Hi,

I am looking for a solution to transfer my mysql data into
tally using vb6.

please help me.

How do i populate say combobox2 depending on a selected ms access database table in combobox1 without writing If statements for each and every table in the database in vb.net windows forms

Kudzanai Victor — Thu, 09 Nov 2023 05:41:00 GMT

I would want to prompt user to select a tool name from combobox1, then out automatically, combobox2 gets filled with tool description and size, which is a column in the selected table. Currently i have been using the following code, however the problem comes when i would like to update the database and add another table. This would mean adding the code in the application as well. I would like the application to be able to detect that a new tool table has been added and show that automatically without having to code again

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

' ADDING TABLE NAMES TO COMBOBOX 1 (TOOL NAME)

    con.Open()

    Dim schemaTable As DataTable = con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

   For Each dr As DataRow In schemaTable.Rows

            Combobox1.Items.Add(dr.Item("TABLE_NAME"))

   Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Combobox1.SelectedIndexChanged          

'FILLING COMBOBOX 2 (TOOL DESCRIPTION AND SIZE) DEPENDING ON SELECTION IN COMBOBOX 1 (TOOL NAME)

 If Combobox1.SelectedIndex = 1 Then             

Combobox2.Text = ""                         

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand 

cmd.CommandText = "Select * from 14_POUND_HAMMER"            

cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(1))              

End While             

dr.Close()             

con.Close()



 ElseIf Combobox1.SelectedIndex = 2 Then             

Combobox2.Text = ""                       

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand             

cmd.CommandText = "Select * from 3_QUARTER_IMPACT_WRENCH"             
cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(0))             

End While             

dr.Close()             

con.Close()



ElseIf Combobox1.SelectedIndex = 3 Then             

Combobox2.Text = ""                         

con.Open()             

Combobox2.Items.Clear()             

Dim dr As OleDbDataReader             

Dim cmd As New OleDbCommand             

cmd.CommandText = "Select * from ABRASIVE_CUT_OFF_SAW "        
cmd.Connection = con             

dr = cmd.ExecuteReader             

While dr.Read                 

Combobox2.Items.Add(dr.GetString(0))             

End While             

dr.Close()             

con.Close()

Change Field Data Type in SQLite DB and Use with changes

Choroid — Sat, 28 Oct 2023 01:47:00 GMT

I have a SQLite DB attached to a VB.Net app. I have about two years of data I would like to not loose.
So with DB Browser I can change the two fields from TEXT to INTEGER.
Then make necessary changes in the code to reflect the changes in the DB.
Below are the variables that are declared in a Data Module used for searching

Public gvYear As String
Public gvFromMonth As Integer
Public gvToMonth As Integer

Only change here gvYear will become an Integer

Here is the code that created the original DB

Public Sub makeTxData()

       'create table TxDataTable String for cmd
       Dim create_table As String = String.Empty
       create_table = "CREATE TABLE IF NOT EXISTS TxData(
                       TID INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,
                       txSortDate TEXT,
                       txYear TEXT,
                       txType TEXT,
                       txAmount TEXT,
                       txCKNum TEXT,
                       txDesc TEXT,
                       txBalance TEXT,
                       txSearchMonth TEXT)"

       Dim dbTable As String = "TxDataTable"

Changes here txYear and txSearchMonth will be INTEGERS txSearchMonth int that reflects month of year

Steps for Process
Copy DB and Paste DB in another folder
Make Changes to Code that creates the DB
Make Changes in the DB manually with DB Browser
Uninstall the app and make new exe file with Inno Setup with new GUID
Create the new DB and delete the DB that is created then Paste the OLD DB in the new app version

I am sure I am overlooking something here so I guess the question is
Will this work ?
Is there a better way to accomplish this ?
Because this is a Check Book app I hate to loose the data.
What are the risks of this happening ?

VB.Net SQLite Search Between two Integers

Choroid — Wed, 25 Oct 2023 02:03:00 GMT

I have a SQLite DB for a Check Book app that has a DB with the field txSearchMonth
which contains a Integer corresponding to the Month of the Year.
I have written a search that lets the user select a month from two combo boxes and enter the year in a text box.
The issue I am experiencing if I select Jan and Feb and enter the year my results includes the current month
NOT just January and February
I have tried various search statements to no avail.
I have used a DataModule to define these variables.

Public gvYear As String
Public gvFromMonth As Integer
Public gvToMonth As Integer

Data is displayed in a DataGridView that is NOT bound to the database.
I will post the complete code but the routine that is failing is gvSearchType = "MoRangeYr" Then

Private Sub ViewSearches()

    Dim intID As Integer
    Dim strDate As String
    Dim strTxType As String
    Dim strAmt As Decimal
    Dim strCKNum As String
    Dim strDesc As String
    Dim strBal As Decimal
    Dim rowCount As Integer
    Dim maxRowCount As Integer
    Dim emptyStr As String = "  "


    Using conn As New SQLiteConnection($"Data Source = '{gv_dbName}';Version=3;")
        conn.Open()

        Using cmd As New SQLiteCommand("", conn)
            ''Using cmd As SQLiteCommand = New SQLiteCommand($"SELECT * FROM TxData", conn)
            If gvSearchType = "All" Then
                cmd.CommandText = "SELECT * FROM TxData"
            ElseIf gvSearchType = "MoYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth = $gvFromMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "TxMoYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txType = $gvTxType AND txSearchMonth = $gvFromMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvTxType", gvTxType)
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "MoRangeYr" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txSearchMonth >= $gvFromMonth AND txSearchMonth <= $gvToMonth AND txYear = $gvYear "
                cmd.Parameters.AddWithValue("$gvFromMonth", gvFromMonth)
                cmd.Parameters.AddWithValue("$gvToMonth", gvToMonth)
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            ElseIf gvSearchType = "Year" Then
                cmd.CommandText = "SELECT * FROM TxData WHERE txYear = $gvYear"
                cmd.Parameters.AddWithValue("$gvYear", gvYear)
            End If


            Using rdr As SQLite.SQLiteDataReader = cmd.ExecuteReader
                'dgvTX.DataSource = rdr
                'Statement Above is when DB is bound to dgvTX
                '============================================

                While rdr.Read()
                    intID = CInt((rdr("TID")))
                    strDate = rdr("txSortDate").ToString
                    strTxType = rdr("txType").ToString
                    strAmt = CDec(rdr("txAmount"))
                    strCKNum = rdr("txCKNum").ToString
                    strDesc = rdr("txDesc").ToString
                    strBal = CDec(rdr("txBalance"))
                    dgvTX.Columns(3).DefaultCellStyle.Format = "N"
                    dgvTX.Columns(6).DefaultCellStyle.Format = "N"
                    'dgvTX.Columns(6).DefaultCellStyle.Format = "C"'Adds the $ sign and commas
                    dgvTX.Rows.Add(intID, strDate, strTxType, strAmt, strCKNum, strDesc, strBal, emptyStr)

                    rowCount = rowCount + 1

                End While

                dgvTX.Columns(3).DefaultCellStyle.Format = "N"
                dgvTX.Columns(6).DefaultCellStyle.Format = "N"
                dgvTX.Sort(dgvTX.Columns(0), ListSortDirection.Descending)
            End Using

I decided to use just the corresponding integer for the month to simplify the search.
Perhaps too simplified ! Suggestions appreciated Code Welcomed I have tried various search statements.

Issue with "Windows Form App" Disappearing in VB.NET 2022

ionline4u — Sun, 27 Aug 2023 08:53:00 GMT

I'm facing a problem with VB.NET 2022 that I recently installed on my PC. I'm new to programming, so I'd appreciate some guidance on this issue.
The problem I'm encountering is related to the "Windows Form App" template in VB.NET 2022. Here's what's happening:

Initial Launch: When I launch VB.NET 2022 for the first time and create a new project using the "Windows Form App" template, everything works as expected. The form is displayed correctly.

Subsequent Launches: However, if I close VB.NET and reopen it, the "Windows Form App" template seems to be missing. It's not available in the list of project templates. This happens every time I close and reopen VB.NET.

Opening Previous Projects: Additionally, if I try to open a project that I created using the "Windows Form App" template, I encounter an error message.

I'm really eager to learn and get started with programming, so this issue is quite frustrating for me. As a beginner, I would greatly appreciate any assistance or guidance you can provide to help me resolve this problem.

Thank you so much for your time and help!

PrinterSettings.CanDuplex appears to not be working

lewist57 — Mon, 21 Aug 2023 15:27:00 GMT

Generating a small printing program. I have Brother color laser printer that can duplex print. However, when I get the CanDuplex value, it returns False:

pd.PrinterSettings.CanDuplex

The interesting thing is that checking for color capability works just fine:

pd.PrinterSettings.SupportsColor

Accessing the printer via conventional MS Office applications (as well as other applications like Acrobat) has no problem identifying that the printer can print in duplex.

Thoughts?

Pound to fit, paint to match

Convert/Read SQL Image field into pdf

Benniit — Wed, 19 Jul 2023 19:07:00 GMT

Please I am using VB.net 2019 and Sql 2016 and I have the below codes which inserts the pdf into the database successfully. But retrieving it becomes a problem for me and that is not the case for an image. I want to convert and retrieve this line of code into pdf "Me.Pdf1.Image=Image.fromStream(ms)" which gives an exception because it is not an image but pdf in the database. Please help me. Thank

OpenFileDialog1.ShowDialog()         

txtPdfPath.Text = OpenFileDialog1.FileName'PDf file uploaded here

'Code to insert Pdf file and after connection has been established

Dim ms1 As New MemoryStream

frmBPA1.Pic1.Image.Save(ms1, frmBPA1.Pic1.Image.RawFormat)     

SqlQuery = "Insert into BPA1 (Pdf1)Values(@Pdf1)"

com.Parameters.AddWithValue("@Pdf1", ms1.ToArray)

com.CommandText = SqlQuery             

com.CommandType = CommandType.Text

SQLCon.Open()

com.ExecuteNonQuery()                     

SQLCon.Close()

'Code to retrieve the pdf file

Dim strQuery As String = "Select df1 from BPA1" 

SQLCon1.Open()                     

comFile = New SqlCommand(strQuery, SQLCon1)                     
comFile.Parameters.AddWithValue("@ReceiptNo", Me.txtReceiptNo.Text.Trim) 
daFile = New SqlDataAdapter(comFile) 
daFile.Fill(taFile)                     
If taFile.Rows(0).Item("Pic1") IsNot DBNull.Value Then                      
Dim img() As Byte   
img = taFile.Rows(0).Item("Pdf1")                         
Dim ms As New MemoryStream(img)                         
If img.Length <> "0" Then                         
Me.Pic1.Image = Image.FromStream(ms)                         
' Me.txtPdfPath.Text = File.FromStream(ms)                                      
End If