hello, i have the made the following project:
I have made a V-Card, I can import this into my database but,
I can not show all the information I want..
Here is some parts of my code:
Private Sub Importeren() _
Handles itemImporteerVCard.Click, mnuImportVCard.Click, _
btnImportVCard.Click
Dim strBestand As String = String.Empty
Dim strRegel As String = String.Empty
Dim strWaarde() As String = Nothing
Dim objReader As System.IO.StreamReader = Nothing, _
sbBuilder As System.Text.StringBuilder = Nothing
Dim intNummer As Integer = "111114"
Dim strSoort As String = "D"
Dim strNaam As String = " "
Dim strVoornaam As String = " "
Dim strTelefoon As String = " "
Dim strTelWerk As String = " "
Dim strTelThuis As String = " "
Dim strMobiel As String = " "
Dim strOverig As String = " "
Dim strFax As String = " "
Dim strFaxWerk As String = " "
Dim strFaxThuis As String = " "
Dim strAdres As String = " "
Dim strPostcode As String = " "
Dim strPlaats As String = " "
Dim strAdresgegevens As String = (strAdres) & (strPostcode) & (strPlaats)
Dim strWebsite As String = " "
Dim strUrlThuis As String = " "
Dim strUrlWerk As String = " "
Dim strMail As String = " "
Dim strZoek As String = "testtest"
That are my strings and here I have import thes strings into cases:
'Onderstaande Boolean zorgt ervoor dat dubbele info weg gehaald worden.
'
Dim blnDubbel As Boolean
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.
strAdresgegevens = 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 'Het proces wordt herhaald.
objReader.Close()
frmVCard.txtVCard.Text = sbBuilder.ToString
The Next step is to INSERT INTO Database:
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) " _
& " VALUES (" & intNummer & ", '" & strSoort & "', '" & strNaam & "', '" & strVoornaam _
& "', '" & strAdres & "', '" & strPostcode & "', '" & strPlaats & "', '" & strTelefoon _
& "', '" & strMobiel & "', '" & strFax & "', '" & strMail & "', '" & strWebsite & "', '" & strZoek & "' )"
Dim ds_B22 As New OdbcCommand
ds_B22.CommandType = Data.CommandType.Text
ds_B22.CommandText = strInsert
ds_B22.Connection = cnn
ds_B22.ExecuteNonQuery()
This is the info I can not show when I run the app:
strAdres, strPostcode, strPlaats -> must be one string
strTelThuis & strTelWerk -> must be one string
strFaxThuis & strFaxWerk -> must be one string
strEmail & strWebsite -> must be one string.
do you know how i can do this?
thanks.