VB.NET App that lets you Update/Add existing value using .txt file
DOWNLOAD SOURCE CODE: VALUE UPDATER USING .TXT FILE
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim myconn As SqlConnection
Dim mycmd As SqlCommand
Dim mydr As SqlDataReader
Dim dtable As DataTable
Dim x() As String
Dim y() As String
Dim val1 As String
Dim val2 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dprocess()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fd As OpenFileDialog = New OpenFileDialog()
fd.Title = "Open File Dialog"
fd.InitialDirectory = "C:\"
fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK Then
txtaddress.Text = fd.FileName
End If
'------------------------------------------------------------------------
Try
Dim objreader As New System.IO.StreamReader(txtaddress.Text)
txtloaded.Text = objreader.ReadToEnd
objreader.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dview()
End Sub
Public Sub dview()
Try
myconn = New SqlConnection("Data Source=temp-pc\sqlexpress;Initial Catalog=test;User ID=sa;Password=tHr34d1ng")
If myconn.State = System.Data.ConnectionState.Closed Then
myconn.Open()
End If
mycmd = New SqlCommand("select * from table_1 ", myconn)
mydr = mycmd.ExecuteReader()
'MessageBox.Show("(" & xcounter & ") affected")
Dim dtable As New DataTable()
dtable.Load(mydr)
DataGridView1.DataSource = dtable
DataGridView1.Refresh()
myconn.Close()
mycmd.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message, "view")
myconn.Close()
mycmd.Dispose()
End Try
End Sub
Public Sub dprocess()
Dim n As Integer = 0
Dim m As Integer = 0
Try
If Len(txtloaded.Text) <> 0 Then
x = (txtloaded.Text.Split(vbCrLf))
While x.Length <> n
x(n) = x(n).Replace(vbCr, "").Replace(vbLf, "")
y = x(n).Split(",")
dprocess2()
' MsgBox(x(n))
n = n + 1
End While
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "process")
End Try
Array.Clear(x, 0, x.Length)
Array.Clear(y, 0, y.Length)
End Sub
Public Sub dprocess2()
dsearch()
Dim xcounter As Integer = 0
Try
myconn = New SqlConnection("Data Source=temp-pc\sqlexpress;Initial Catalog=test;User ID=sa;Password=tHr34d1ng")
If myconn.State = System.Data.ConnectionState.Closed Then
myconn.Open()
End If
y(1) = Val(y(1)) + Val(val1)
y(2) = Val(y(2)) + Val(val2)
mycmd = New SqlCommand("update table_1 set val1='" & y(1) & "' , val2='" & y(2) & "' where item ='" & y(0) & "'", myconn)
xcounter = mycmd.ExecuteNonQuery
MessageBox.Show("(" & xcounter & ") affected")
myconn.Close()
mycmd.Dispose()
dview()
Catch ex As Exception
MessageBox.Show(ex.Message, "update")
myconn.Close()
mycmd.Dispose()
End Try
End Sub
Public Sub dsearch()
MessageBox.Show(y(0))
Dim i As Integer = 0
Dim rcount As Integer = 0
Dim ifound As Boolean = False
Try
rcount = DataGridView1.RowCount
DataGridView1.MultiSelect = False
While i < rcount And ifound = False
DataGridView1.Rows(i).Selected = True
If DataGridView1.SelectedRows(0).Cells(0).Value = y(0) Then
val1 = DataGridView1.SelectedRows(0).Cells(1).Value
val2 = DataGridView1.SelectedRows(0).Cells(2).Value
DataGridView1.CurrentCell = DataGridView1(0, i)
ifound = True
End If
i = i + 1
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "found")
End Try
If ifound = False Then MessageBox.Show("no record found", "")
End Sub
End Class
