Get CSV Values in SQL

Query:

DECLARE @CSVValue NVARCHAR(50)='100,101,102'                  
DECLARE @eachValue NUMERIC(9,0)
 
while len(@CSVValue) > 0
BEGIN
SET @eachValue=left(@CSVValue, charindex(N',', @CSVValue+N',')-1)
  PRINT CONVERT(VARCHAR(20),@eachValue)            
SET @CSVValue = stuff(@CSVValue, 1, charindex(N',', @CSVValue+N','), N'')
END


Output:

100
101
102

Upload images to Imgur API version 3 using c#.

Find imgur API documentation at : http://api.imgur.com/

Step 1:

First register the application on the website(www.imgur.com) and collect Client-ID and Secret key.

Step 2:

Code to access the imgur api 

PostToImgur(@"E:\IMG.png","put client-id","put secret key");

            

imagFilepath : the path of the file on hard disk
apiKey : the client id received after registering the application
apiSecret : the secret key received
 public void PostToImgur(string imagFilePath, string apiKey, string apiSecret)
 {
            byte[] imageData;
            FileStream fileStream = File.OpenRead(imagFilePath);
            imageData = new byte[fileStream.Length];
            fileStream.Read(imageData, 0, imageData.Length);
            fileStream.Close();

            const int MAX_URI_LENGTH = 32766;
            string base64img = System.Convert.ToBase64String(imageData);
            StringBuilder sb = new StringBuilder();
            for (int i = 0; i < base64img.Length; i += MAX_URI_LENGTH)
                {
                    sb.Append(Uri.EscapeDataString(base64img.Substring(i, Math.Min(MAX_URI_LENGTH,                         base64img.Length - i))));
                }

            string uploadRequestString = "client_id" + apiKey + "client_secret" + apiSecret + "&title=" + "imageTitle" + "&caption=" + "img" + "&image=" + sb.ToString();
   
            HttpWebRequest webRequest =                                                                                                    (HttpWebRequest)WebRequest.Create("https://api.imgur.com/3/upload.xml");                         
            //below : replace xxxxxxxxx with client id
            webRequest.Headers.Add("Authorization", "Client-ID xxxxxxxxx");                       
            webRequest.Method = "POST";
            webRequest.ContentType = "application/x-www-form-urlencoded";
            webRequest.ServicePoint.Expect100Continue = false;

            StreamWriter streamWriter = new  StreamWriter(webRequest.GetRequestStream());       

            streamWriter.Write(uploadRequestString);
            streamWriter.Close();

            WebResponse response = webRequest.GetResponse(); 
            Stream responseStream = response.GetResponseStream();
            StreamReader responseReader = new StreamReader(responseStream);
            string responseString = responseReader.ReadToEnd();

            //received response is a xml file. the link to the uploaded file is in between
               the tag<link></link>
           //using regular expression to retrive the link to the image.

            Regex regex = new Regex("<link>(.*)</link>");
            txtLink.Text = regex.Match(responseString).Groups[1].ToString(); 
           
        }

FolderBrowserDialog in WinForm and display all the files in the folder

                                                                  Fig 1.1

Code :

  private void btnImport_Click_1(object sender, EventArgs e)
        {
            FolderBrowserDialog fbd = new FolderBrowserDialog();
            DialogResult dr = fbd.ShowDialog();
            if (dr == DialogResult.OK)
            {
                string[] files = Directory.GetFiles(fbd.SelectedPath);
                for (int i = 0; i < files.Count(); i++)
                {
                    lstFiles.Items.Add(files[i].ToString());
                }
                lblNo.Text = files.Count().ToString();
            }
        }

        private void btnClearImport_Click_1(object sender, EventArgs e)
        {
            lstFiles.Items.Clear();
            lblNo.Text = "";

        }

Create text file in SDCard in Android Studio using Java

Code :
try
{
            FileWriter _fs=new FileWriter("/sdcard/Employee_Info.txt");
            BufferedWriter out=new BufferedWriter(_fs);
            out.write(_data);
            out.close();
            Toast.makeText(this,"Information Saved",Toast.LENGTH_SHORT).show();
 }
 catch (Exception e)
 {
            
 }

where _data=data you want to save to the file

Before Executing this code ,make these settings
1.
Go to Application Explorer :
Application -> app->src->res->AndroidManifest.xml

<manifest>
<application>
</application>
  <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE"/>

</manifest>

uses-permission must be outside the <application></application>

2.
Go to Application Explorer :
Application -> app->src->build.gradle

Add this piece of code inside android {}:
android
{
lintOptions{
        abortOnError false
    }
}

what is lint ?

The Android lint tool is a static code analysis tool that checks your Android project source files for potential bugs and optimization improvements for correctness, security, performance, usability, accessibility, and internationalization.

3.

Provide the size for the SD card in AVD(Android Virtual Device) Emulater

eNjOy tHe cOdInG 

Access the multiple attributes of XML File with LINQ in C#

Xml File 

StudentInfo.xml

Xml file contains attribute named as Name, USN, Address

LINQ QUERY to fetch particular Student Information:

private List<string> GetStudentDetails(string _usn)

{

  List<string> _lstStudentInfo=new List<string>();

  XmlDocument xdcDocument = new XmlDocument();

  XElement root =XDocument.Load(@"H:\CollegeSeminar\StudentInfo.xml").Root;

  

  var result = root.Elements("Student").

         Where(x => x.Attribute("USN").Value == _studentId).                                
         Select(i => new { Name = i.Attribute("Name").Value,
         StudentAddress = i.Attribute("Address").Value,StudentUSN= i.Attribute("USN").Value }).ToList();

  //To get the values

 _lstStudentInfo.Add(result[0].Name);
_lstStudentInfo.Add(result[0].StudentAddress);
_lstStudentInfo.Add(result[0].StudentUSN);
 return _lstStudentInfo; 

 }

VB.NET Form Design with code

MODULE CODE

Imports System.Data.OleDb

Module Module1

    Public Cn As New OleDbConnection("Provider=MSDAORA.1;user id=scott;password=tiger")

    Public Fdt As String, Tdt As String, Opt As String, Cont As Int16, Agn As Int16

    Public Sub ConnectDB()

        If Cn.State = ConnectionState.Closed Then Cn.Open()

    End Sub

    Public Function Gen_PK(ByVal Fld As String, ByVal Tbl As String) As Integer

        ConnectDB()

        Dim Cmd As New OleDbCommand("Select Max(" & Fld & ") from " & Tbl)

        Cmd.Connection = Cn

        If Not IsDBNull(Cmd.ExecuteScalar) Then

            Return Cmd.ExecuteScalar + 1

        Else

            Return 1

        End If

        Cmd.Dispose()

    End Function

End Module

STAFF FORM CODE

Imports System.Data.OleDb

Public Class Staff

Private Sub Staff_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'DataSet1.KSTAFF' table. You can move, or remove it, as needed.

        Me.KSTAFFTableAdapter.Fill(Me.DataSet1.KSTAFF)

        Btnenb()

        LckCnt()

    End Sub

    Private Sub Btnenb()

        BtnA.Enabled = True

        BtnS.Enabled = False

        BtnE.Enabled = True

        BtnC.Enabled = False

        BtnEX.Enabled = True

    End Sub

    Private Sub Btndenb()

        BtnA.Enabled = False

        BtnS.Enabled = True

        BtnE.Enabled = False

        BtnC.Enabled = True

        BtnEX.Enabled = False

    End Sub

    Private Sub LckCnt()

        Dim obj As Control

        For Each obj In GroupBox1.Controls

            If TypeOf obj Is TextBox Then

                obj.Enabled = False

                obj.Text = ""

            End If

        Next

    End Sub

    Private Sub UnLckCnt()

        Dim obj As Control

        For Each obj In GroupBox1.Controls

            If TypeOf obj Is TextBox Then

                obj.Enabled = True

            End If

        Next

    End Sub

Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DTP2.ValueChanged

    End Sub

Private Sub BtnA_Click(ByVal sender As System.Object, ByVal e As    System.EventArgs) Handles BtnA.Click

        Btndenb()

        UnLckCnt()

        TxtSlno.Text = Module1.Gen_PK("SNO", "kstaff")

        TxtFname.Focus()

End Sub

Private Sub BtnS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnS.Click

Dim cmd As New OleDbCommand

ConnectDB()

cmd.Connection = Cn

If BtnS.Text = "Save" Then

cmd.CommandText = "insert into KSTAFF values(" & TxtSlno.Text & " ,'" & TxtFname.Text & "','" & TxtMname.Text & "','" & TxtLname.Text & "','" & TxtAddr.Text & "','" & DTP1.Text & "','" & TxtCity.Text & "'," & TxtPcode.Text & " ," & TxtMob.Text & ",'" & DTP2.Text & "','" & CmbDes.Text & "','" & CmbDept.Text & "')"

cmd.ExecuteNonQuery()

MsgBox("Record Saved")

ElseIf BtnS.Text = "Update" Then

cmd.CommandText = " update kstaff set FNAME ='" & TxtFname.Text & "',MNAME ='" & TxtMname.Text & "', LNAME ='" & TxtLname.Text & "',ADDR ='" & TxtAddr.Text & "', DOB ='" & DTP1.Text & "',CITY ='" & TxtCity.Text & "',PCODE =" & TxtPcode.Text & " , MOB =" & TxtMob.Text & " , DOJ ='" & DTP2.Text & "', DES ='" & CmbDes.Text & "', DEPT ='" & CmbDept.Text & "' where SNO = " & TxtSlno.Text

cmd.ExecuteNonQuery()

MsgBox("Record Modified", MsgBoxStyle.Information, "Setup")

End If

DataSet1.Clear()

Me.KSTAFFTableAdapter.Fill(Me.DataSet1.KSTAFF)

Btnenb()

LckCnt()

BtnS.Text = "Save"

End Sub

Private Sub BtnE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnE.Click

If TxtSlno.Text = "" Then

MsgBox("Select Record to Modify", MsgBoxStyle.Critical, "Setup")

Exit Sub

End If

Btndenb()

UnLckCnt()

BtnS.Text = "Update"

End Sub

Private Sub BtnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnC.Click

Dim r As String

r = MsgBox("Do you want to cancel", MsgBoxStyle.YesNo, "Warning")

If r = vbYes Then

Me.Close()

Else

TxtFname.Focus()

End If

End Sub

Private Sub BtnEX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEX.Click

Me.Close()

End Sub

   

  

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click

        TxtSlno.Text = DataGridView1.SelectedCells(0).Value

        TxtFname.Text = DataGridView1.SelectedCells(1).Value

        TxtMname.Text = DataGridView1.SelectedCells(2).Value

        TxtLname.Text = DataGridView1.SelectedCells(3).Value

        TxtAddr.Text = DataGridView1.SelectedCells(4).Value

        DTP1.Text = DataGridView1.SelectedCells(5).Value

        TxtCity.Text = DataGridView1.SelectedCells(6).Value

        TxtPcode.Text = DataGridView1.SelectedCells(7).Value

        TxtMob.Text = DataGridView1.SelectedCells(8).Value

        DTP2.Text = DataGridView1.SelectedCells(9).Value

        CmbDes.Text = DataGridView1.SelectedCells(10).Value

        CmbDept.Text = DataGridView1.SelectedCells(11).Value

End Sub

  

End Class

TRICKS

Put ur name with time and show the name as time zone
this tricks works with windows xp only.
to do this just follow these steps . . .

GO TO "CONTROL PANEL"

THE GO TO


regional and language option >> customize >> time or date option >> time symbol

now change it with ur name . . .





SEND APPLICATION OR .EXE FILE VIA GMAIL

"OPEN MICROSOFT WORD AND PASTE YOUR FILE IN DOCUMENT"


IT WILL SHOW NO ERROR OR NO DISCARDING MSG . . . and send