vb.net දන්න අයගෙන් උදව්වක් දෙන්න

[xfacebookx]

vb.net දන්න අයගෙන් උදව්වක් දෙන්න

මචන්ලා මේකෙන් ඩේටා එක්ස්පොර්ට් කරන්න පුලුවන්..මේකෙන් එක්ස්පොර්ට් කරන ඩේටා ඉම්පොර්ට් කරගන්න කොඩ් එකක් ලියල දෙන්න පුලුවන්ද?

Dim FileWriter As StreamWriter
        Dim results As DialogResult
        results = SaveFileDialog1.ShowDialog
        If results = DialogResult.OK Then

            FileWriter = New StreamWriter(SaveFileDialog1.FileName, False)
            Dim numCols As Integer = dgvData.ColumnCount
            Dim numRows As Integer = dgvData.SelectedRows.Count
            For count As Integer = 0 To numRows - 1
                For count2 As Integer = 0 To numCols - 1
                    FileWriter.Write(dgvData.Rows(count).Cells(count2).Value)
                    If (count2 <> numCols) Then
                        FileWriter.Write(", ")
                    End If
                Next
                FileWriter.WriteLine()
            Next
            FileWriter.Close()
        End If

 

[xfacebookx]

බම්ප්

 

[xfacebookx]

bumpp

 

[xfacebookx]

bumppxx

 

[Dead Island]

SteamRead eka use karanna.

 

[xfacebookx]

SteamRead eka use karanna.

SteamRead එක යූස් කරලා ඩේටාග්‍රිඩ්විව් එකට ඩේටා ගන්න විදිය අවුල් වෙලා ඉන්නේ මචන් පුලුවන් නම් පොඩ්ඩක් උදව්වක් දෙන්න

ඩේටා එක්ස්පොර්ට් වෙන්නේ මේ විදියට

1, sda, hj, ghyj, ghjg, j, ghj, gj, 
2, nb, m, hjk, hjkh, jk, h, kh,

කොහොමද වැඩේ කරන්න ඕන?

 

[digitaldjs]

Macho meka mama test karala beluwenam nehe. poddak errors thiyenawanm harigassaganin.

Dim oFDiag As New OpenFileDialog()
If oFDiag.ShowDialog() = DialogResult.OK Then
	Using sReader As New StreamReader(oFDiag.FileName)
		Dim Line As String = sReader.ReadLine()
		While Not String.IsNullOrEmpty(Line)
			Dim row As New DataGridViewRow()
			dgvData.Rows.Add(row)

			Dim columns As String() = Line.Split(New String() {","}, StringSplitOptions.None)

			For i As Integer = 0 To columns.Length - 1
				row.Cells(i).Value = columns(i)
			Next
		End While
	End Using
End If

 

[xfacebookx]

Macho meka mama test karala beluwenam nehe. poddak errors thiyenawanm harigassaganin.

Dim oFDiag As New OpenFileDialog()
If oFDiag.ShowDialog() = DialogResult.OK Then
	Using sReader As New StreamReader(oFDiag.FileName)
		Dim Line As String = sReader.ReadLine()
		While Not String.IsNullOrEmpty(Line)
			Dim row As New DataGridViewRow()
			dgvData.Rows.Add(row)

			Dim columns As String() = Line.Split(New String() {","}, StringSplitOptions.None)

			For i As Integer = 0 To columns.Length - 1
				row.Cells(i).Value = columns(i)
			Next
		End While
	End Using
End If

වැඩ නෑ මචන් පුලුවන්ද පොඩ්ඩක් චෙක් කරලා බලලා කියන්න!ඇක්සස් ඩේටාබේස් එකකට තමයි ඩේටා ඇඩ් වෙන්න ඕන මචන්

 

[Pink panther]

 

[mcwolfe]

ඕක ඔහොමම අනික්පැත්තට ටයිප්කරපන්

 

[xfacebookx]

bumppp

 

[xfacebookx]

බම්ප්

 

[Dead Island]

use OleDB class. I can write the codes in here but then you'll learn nothing.

 

[mastar]

stream reader eken line by line read karanna
eg line1 = aaaaa,bbb,ccc,ddd,eee
step 2
dim varSplit as array = line1.tostring.split(",")
for x=0 to 5 ' text eke parts 5k thiyenava
dialog eke item(x) = varspllit.item(x).tostring
next
barinam kiyanna code eka liyala dennam

 

[mastar]

use OleDB class. I can write the codes in here but then you'll learn nothing.

නෙට් එකෙන් අරගෙන නොදන්න හු*තවල් දාන්න එපා ඔයි

 

[xfacebookx]

stream reader eken line by line read karanna
eg line1 = aaaaa,bbb,ccc,ddd,eee
step 2
dim varSplit as array = line1.tostring.split(",")
for x=0 to 5 ' text eke parts 5k thiyenava
dialog eke item(x) = varspllit.item(x).tostring
next
barinam kiyanna code eka liyala dennam

මචන් ලියලා දියන් කොඩ් එක ලොකු උදව්වක්

 

[mastar]

මචන් ලියලා දියන් කොඩ් එක ලොකු උදව්වක්

oya code eka thiyena project eka denna puluwannam lesi .. ekatama liyala dennam

 

[mastar]

wait

 

[0716aravinda]

bumppp

 

[Dead Island]

නෙට් එකෙන් අරගෙන නොදන්න හු*තවල් දාන්න එපා ඔයි

නොදන්න හු*ත්ත උඹේ අම්මගේ ප*ක අස්සේ දාන්න ආවද මම බන්.? නෙට් එකෙන් අරගෙන දාන්න ඕනේ නෑ කැ*රි වේ*සිගේ පුතෝ මට. මගේ ළග තියෙන එකක් වුනත් දාන්න පුලුවන් එහෙම දැම්මම ඒක ඉගෙන ගැනීමක් වෙන්නේ නෑ හු*ත්තිගේ පුතෝ. ඉගෙන ගන්නවා කියන්නවා තමන් theory එක දැනගෙන logic එක දැනගෙන code එක ගහන එකයි නැතුව උබේ අම්මට හු*කනවා වගේ පොල්ල බස්සන එක නෙවෙයි එක පාරටම. උඹලවගේ අම්ට හු*කන බැ*ල්ලිගේ පුත්තු නිසා තමයි ලංකාවේ කවදාවත් හොද programmers බිහිවෙන්නේ නැත්තේ. පු*ක දීලා වනසලා යනවා අළුතෙන් එන එවුන්ව. දැන් මූට code එක ගෙඩිය පිටින්ම දුන්නම ඌ මොකක්ද එතනින් ඉගෙන ගන්නේ කියපන් බලන්න? තෝ දන්න එක ඌට ගෙඩිය පිටින්ම දුන්නට හරියන්නේ නෑ. මම ඒක නිසයි හුත්*තෝ දුන්නේ hint එකක්. උඹලවගේ පාහරයෝ නිසා තමයි ලංකාව කැ*රි වෙලා තියෙන්නේ.