SQL Query "INSERT INTO".. within VB.Net code..

Question

0.00/5 (No votes)

See more:

VB

Dim strInsert = "INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam) _"

                    ('" & Nummer & "', '" & Relatiesoort & "', '" & Naam & "', '" & Voornaam & "', '" & Adres & "', '" & Postcode & "', '" & Woonplaats & "', '" & Telefoon & "', '" & Mobiel & "', '" & Fax & "', '" & E-mail & "', '" & Website & "')"

                    Select Case UCase(strWaarde(0))                         '(0) = het gedeelte voor ":" en (1) komt daarna
                        Case "BEGIN", "VERSION", "END"                      'De waarden die niet worden getoond.

                        Case "N"
                            strNaam = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbTab)

                        Case "FN"                                           'Voornaam
                            strVoornaam = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "TEL;WORK;VOICE"                               'Telefoon op het werk
                            If blnDubbel = False Then
                                strTelWerk = strWaarde(1)
                                sbBuilder.Append(strWaarde(1) & vbTab)
                                blnDubbel = True
                            End If


                        Case "TEL;HOME;VOICE"                               'Telefoon thuis
                            strTelThuis = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "TEL;CELL;VOICE"                               'Mobiele telefoon
                            strMobiel = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbTab)

                        Case "TEL;VOICE"                                    'Overige nummers
                            strOverig = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "TEL;WORK;FAX"                                 'Fax op het werk
                            strFaxWerk = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbTab)

                        Case "TEL;FAX"                                      'Fax thuis
                            strFaxThuis = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "ADR;WORK;PREF:"                               'Adres
                            strAdres = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "URL;HOME:"                                    'Website Thuis
                            strUrlThuis = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbTab)

                        Case "URL;WORK:"                                    'Website Werk
                            strUrlWerk = strWaarde(1)
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                        Case "EMAIL;PREF;INTERNET:"                         'Email adres
                            strMail = strWaarde(1)
                            sbBuilder.Append(strWaarde(1))

                        Case Else
                            sbBuilder.Append(strWaarde(1) & vbCrLf)

                    End Select
                Loop
                objReader.Close()
                frmVCard.txtVCard.Text = sbBuilder.ToString

            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fout...")

            Finally
                objReader.Dispose()
                sbBuilder = Nothing
            End Try
        End If
    End Sub

My Tablename = Relaties
Fields or:
everything with B22_...etc
What i want to fill is: the database, connected with my app.
everything i have insert, must be a new record on the database..

i hope it's clear now.. thanks, and i wil try by myself.

Posted 5-Jun-12 3:25am

OdeJong

Updated 6-Jun-12 23:43pm

Maciej Los

v4

Add a Solution

Comments

Sandeep Mewara 5-Jun-12 10:01am

Did you try by yourself?

OdeJong 5-Jun-12 10:18am

yes, a little... and i'm still trying to figure it out.
maby you can send me in the good direction?
but enough for now, im going work on it thursday again.

Maciej Los 5-Jun-12 15:48pm

Not clear! Where do you want to insert this command? What's the structure of your table?

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

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 edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2012-06-05T09:55:00

Basic knowledge: INSERT[^] and Create Stored Procedures[^]

Upgrade your question and i'll update my answer ;)

[EDIT]
First of all, read this:
Commands and parameters[^]
SqlParameterCollection.AddWithValue Method [^]

Then, replace your query with:

SQL

INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam)
VALUES(@relnr, @rel_soort, @naam, @voornaam_etc, @adres, @postcode, @plaats, @telefoon1, @mobielnr, @faxnummer, @email, @www_adres, @zoeknaam)

After SELECT... CASE... END SELECT build your command as is shown in the second links.
[/EDIT]

OdeJong · Answer 2 · 2012-06-11T21:42:00

SQL

'INSERT & VALUES lijst:
                strInsert = "INSERT INTO Relaties (B22_relnr, B22_rel_soort, B22_naam, B22_voornaam_etc, " _
                                & "B22_adres, B22_postcode, B22_plaats, B22_telefoon1, B22_telefoon2, " _
                                & "B22_mobielnr, B22_faxnummer, B22_email, B22_www_adres, B22_zoeknaam) " _
                                & " VALUES (" & intNummer & ", '" & strSoort & "', '" & strNaam _
                                & "', '" & strVoornaam & "', '" & strAdres & strPostcode & strPlaats _
                                & "', '" & strPostcode & "', '" & strPlaats & "', '" & strTelWerk _
                                & "', '" & strTelThuis & "', '" & strMobiel & "', '" & strFaxWerk _
                                & "', '" & strMail & "', '" & strUrlWerk & "', '" & strZoek & "' )"

SQL Query "INSERT INTO".. within VB.Net code..

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0