Show Error :
Invalid character in a Base-64 string.
How Can I get pass,ds,db,uid the value when writeline Textfile.Please help me
this my code
Invalid character in a Base-64 string.
How Can I get pass,ds,db,uid the value when writeline Textfile.Please help me
this my code
Code:
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.Win32
Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic
Public Class employee
Private cons As String = ""
Public Function writeconnectionstring() As String
Try
Dim ds As String = ""
Dim db As String = ""
Dim uid As String = ""
Dim pass As String = ""
Dim path As String = "C:\connection\tcon.txt"
Dim sw As StreamWriter = New StreamWriter(path)
sw.WriteLine(ds)
sw.WriteLine(db)
sw.WriteLine(uid)
EncDecCls.EncryptClass.EncryptTripleDES(pass)
sw.WriteLine(pass)
cons = "Data Source = " & ds & "; DataBase =" & db & "; User Id =" & uid & "; Password =" & pass & ";"
Catch ex As FileNotFoundException
MsgBox(ex.Message)
End Try
Return cons
End Function
Public Function Readconnectionstring() As String
Try
Dim pass As String
Dim path As String = "C:\connection\tcon.txt"
Dim sr As StreamReader = New StreamReader(path)
Dim line As String = sr.ReadLine()
Dim ds As String = sr.ReadLine()
Dim db As String = sr.ReadLine()
Dim uid As String = sr.ReadLine()
pass = EncDecCls.EncryptClass.DecryptTripleDES(sr.ReadLine())-> [B][U]Error is here[/U][/B]
cons = "Data Source = " & ds & "; DataBase =" & db & "; User Id =" & uid & "; Password =" & pass & ";"
Catch ex As FileNotFoundException
MsgBox(ex.Message)
End Try
Return cons
End Function
Comment