RESTORE MSSQL DATABASE WITHOUT LDF ONLY MDF

RESTORE MSSQL DATABASE WITHOUT LDF ONLY MDF

USE master
GO
CREATE DATABASE <database_name>
ON (FILENAME='C:\<database_mdfname>.mdf')
FOR ATTACH_FORCE_REBUILD_LOG

Value Updater using .txt file using VB.Net

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

MONITOR NETWORK PING :

VB.NET App that lets you monitor your Network Equipment with Logs

DOWNLOAD SOURCE CODE: MONITOR NETWORK PING

Imports System.Text.RegularExpressions


Public Class Form1

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Application.Exit()
    End Sub

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

        logs.ScrollBars = ScrollBars.Vertical
        logs.Multiline = True
        txttmr.Enabled = False
        txttmr.Text = 50
        Dim line As String
        Dim IPini() As String
        Dim desc() As String = {"a", "b"}
        Dim ips() As String = {"a", "b"}
        Dim icount As Integer
        Dim isplit() As String

        Using sr As New System.IO.StreamReader(".\settings.ini")
            line = sr.ReadToEnd
            IPini = line.Split(vbCrLf)

            While IPini.Length <> icount
                IPini(icount) = IPini(icount).Replace(vbCr, "").Replace(vbLf, "")
                isplit = IPini(icount).Split(",")

                desc(icount) = isplit(0)
                ips(icount) = isplit(1)
                icount = icount + 1

            End While
        End Using

        lblip1.Text = ips(0)
        lblip2.Text = ips(1)
        btnip1.Text = desc(0)
        btnip2.Text = desc(1)


        ipwatch(lblip1.Text, btnip1)
        ipwatch(lblip2.Text, btnip2)
        Tmr.Enabled = True


        Try
            Dim objreader As New System.IO.StreamReader(".\logs.txt")
            logs.Text = objreader.ReadToEnd
            objreader.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "load")
        End Try


    End Sub


    Public Sub ipwatch(ByVal ip As String, ByVal desc As Button)

        If My.Computer.Network.Ping(ip) Then
            desc.BackColor = Color.Green
        Else
            desc.BackColor = Color.Red


            Try
                Dim objreader As New System.IO.StreamReader(".\logs.txt")
                logs.Text = objreader.ReadToEnd
                objreader.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "load")
            End Try

            logs.Text = DateTime.Now & " - " & ip & " - timeout" & vbCrLf & logs.Text

            Try
                Dim objwrite As New System.IO.StreamWriter(".\logs.txt")
                objwrite.Write(logs.Text)
                objwrite.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "load")
            End Try

            Try
                Dim objreader As New System.IO.StreamReader(".\logs.txt")
                logs.Text = objreader.ReadToEnd
                objreader.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message, "load")
            End Try

        End If

    End Sub

    Private Sub btnip1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnip1.Click

        Form2.lblbtn.Text = 1
        Form2.txtip.Text = lblip1.Text
        Form2.txtdesc.Text = btnip1.Text
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub btnip2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnip2.Click
        Form2.lblbtn.Text = 2
        Form2.txtip.Text = lblip2.Text
        Form2.txtdesc.Text = btnip2.Text
        Form2.Show()
        Me.Hide()

    End Sub

    Private Sub Tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value = CDbl(ProgressBar1.Value) + 2
            txttmr.Text = Val(txttmr.Text) - 1
        Else
            ipwatch(lblip1.Text, btnip1)
            ipwatch(lblip2.Text, btnip2)
            ProgressBar1.Value = 0
            txttmr.Text = 50

        End If
    End Sub
End Class


'CREATED BY ROSSI CATLY 

SEARCH AND COPY FILES

VB.Net App that let you search and copy files from remote location to another :

DOWNLOAD SOURCE CODE: SEARCH AND COPY

Imports System
Imports System.IO
Imports System.Text

Public Class Form1

    Public Sub trans()

        Dim fromloc As String = txtfrom.Text & "\" & txtfilename.Text
        Dim toloc As String = txtto.Text & "\" & txtfilename.Text

        Try
            If File.Exists(fromloc) = False Then
                Dim fs As FileStream = File.Create(fromloc)
                fs.Close()
            End If



            File.Copy(fromloc, toloc)
            Console.WriteLine("{0} moved to {1}", fromloc, toloc)
            MessageBox.Show("File Copied . . . ")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "transfer")
        End Try
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        trans()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        sear(txtfilename.Text)

    End Sub

    Private Sub sear(ByVal item)
        Try


            Dim Folder As New IO.DirectoryInfo(txtlocation.Text)
            For Each File As IO.FileInfo In Folder.GetFiles("*" & txtfsearch.Text & "*", IO.SearchOption.AllDirectories)
                ListBox1.Items.Add(File.FullName)
                Application.DoEvents()
            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message, "search")
        End Try

    End Sub

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

        Dim ini() As String
        Dim count As Integer = 0




        Using sr As New System.IO.StreamReader(".\settings.ini")

            Dim Line As String = sr.ReadToEnd


            ini = Line.Split(vbCrLf)

            While ini.Length <> count
                ini(count) = ini(count).Replace(vbCr, "").Replace(vbLf, "")
                count = count + 1
            End While

        End Using



        txtlocation.Text = ini(0)
        txtto.Text = ini(1)




    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim leng As Integer
        Dim scn As String = ""

        Try



            leng = Len(ListBox1.SelectedItem)

            While scn <> "\" And leng <> 0
                scn = Mid(ListBox1.SelectedItem, leng, 1)

                If scn <> "\" And leng <> 0 Then
                    leng = leng - 1
                Else
                    leng = leng + 1
                End If

            End While


            txtfilename.Text = Mid(ListBox1.SelectedItem, leng, Len(ListBox1.SelectedItem) - leng + 1)
            txtfrom.Text = Mid(ListBox1.SelectedItem, 1, leng - 2)


        Catch ex As Exception
            MessageBox.Show(ex.Message, "listbox")

        End Try


    End Sub

  
End Class

ADD; EDIT; DELETE AND CRYSTAL REPORT GENERATION

VB.NET APP, SHOWING HOW TO ADD, EDIT, DELETE AND DISPLAY CRYSTAL REPORT

DOWNLOAD : ADD; UPDATE; DELETE; CRYSTAL REPORT
Imports System
Imports System.Data
Imports System.Data.SqlClient


Public Class Form1

    Dim myconn As SqlConnection
    Dim mycmd As SqlCommand
    Dim mydr As SqlDataReader
    Dim dr As SqlDataReader
    Dim adp As SqlDataAdapter
    Dim dat As New DataSet



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

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Public Sub dview()
        Try
            myconn = New SqlConnection(My.Settings.Setting)
            myconn.Open()
            mycmd = New SqlCommand("select * from usersched order by idd desc", myconn)
            mydr = mycmd.ExecuteReader

            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, "datagridview")
            myconn.Close()
            mycmd.Dispose()
        End Try

    End Sub

    Public Sub viewselected()
        If DataGridView1.SelectedCells.Count > 0 Then
            TextBox1.Text = DataGridView1.SelectedRows(0).Cells(0).Value
            TextBox2.Text = DataGridView1.SelectedRows(0).Cells(1).Value
            TextBox3.Text = DataGridView1.SelectedRows(0).Cells(2).Value
            TextBox4.Text = DataGridView1.SelectedRows(0).Cells(3).Value
            TextBox5.Text = DataGridView1.SelectedRows(0).Cells(4).Value

        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xcounter As Integer = 0
        Try
            myconn = New SqlConnection(My.Settings.Setting)
            myconn.Open()
            mycmd = New SqlCommand("insert into usersched (sdate, suser, stime, sbooth) values ('" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "')", myconn)
            xcounter = mycmd.ExecuteNonQuery

            MessageBox.Show("(" & xcounter & ") added")

            myconn.Close()
            mycmd.Dispose()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Add failed")
            myconn.Close()
            mycmd.Dispose()

        End Try

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""

        dview()


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim xcounter As Integer = 0

            myconn = New SqlConnection(My.Settings.Setting)
            myconn.Open()
            mycmd = New SqlCommand("update usersched set sdate='" & TextBox2.Text & "', suser= '" & TextBox3.Text & "', stime= '" & TextBox4.Text & "', sbooth ='" & TextBox5.Text & "' where idd = '" & TextBox1.Text & "'", myconn)
            xcounter = mycmd.ExecuteNonQuery

            MessageBox.Show("(" & xcounter & ") updated")

            myconn.Close()
            mycmd.Dispose()


        Catch ex As Exception
            MessageBox.Show(ex.Message, "update failed")
            myconn.Close()
            mycmd.Dispose()
        End Try


        dview()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MessageBox.Show("are you sure to delete idd : " & DataGridView1.SelectedRows(0).Cells(0).Value, "Delete confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation) = Windows.Forms.DialogResult.Yes Then

            Try
                Dim xcounter As Integer = 0

                myconn = New SqlConnection(My.Settings.Setting)
                myconn.Open()
                mycmd = New SqlCommand("delete from usersched where idd = '" & TextBox1.Text & "'", myconn)
                xcounter = mycmd.ExecuteNonQuery

                MessageBox.Show("(" & xcounter & ") removed")

                myconn.Close()
                mycmd.Dispose()


            Catch ex As Exception
                MessageBox.Show(ex.Message, "delete failed")
            End Try

            dview()
        Else
        End If


    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        Try
            myconn = New SqlConnection(My.Settings.Setting)
            myconn.Open()
            mycmd = New SqlCommand("select * from usersched where idd like '" & TextBox6.Text & "%'", myconn)
            dr = mycmd.ExecuteReader

            Dim dtable As New DataTable
            dtable.Load(dr)

            DataGridView1.DataSource = dtable
            DataGridView1.Refresh()


        Catch ex As Exception

        End Try
        
    End Sub
    Public Sub isearch()
        Dim i As Integer = 0
        Dim icount As Integer = 0
        Dim ifound As Boolean = False

        Try
            icount = DataGridView1.RowCount
            DataGridView1.MultiSelect = False


            While i < icount And ifound = False
                DataGridView1.Rows(i).Selected = True

                If DataGridView1.SelectedRows(0).Cells(0).Value = TextBox7.Text Then
                    ifound = True
                    DataGridView1.CurrentCell = DataGridView1(0, i)
                    viewselected()
                Else
                    i = i + 1

                End If

            End While




        Catch ex As Exception
            MessageBox.Show(ex.Message, "search")

        End Try
        If ifound = False Then MessageBox.Show("no record found")


    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        isearch()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Try
            Dim rpt As New CrystalReport1
            'Dim frm_rpt As New creport

            dat.Clear()

            myconn = New SqlConnection(My.Settings.Setting)
            myconn.Open()
            mycmd = New SqlCommand("select * from usersched", myconn)
            adp = New SqlDataAdapter(mycmd)
            adp.Fill(dat, "usersched")


            rpt.SetDataSource(dat)
            creport.CrystalReportViewer1.ReportSource = rpt
            creport.CrystalReportViewer1.Dock = DockStyle.Fill

            Dim frm As New Form()
            With frm
                .Controls.Add(creport.CrystalReportViewer1)
                .WindowState = FormWindowState.Maximized
                .ShowDialog()

            End With

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        'creport.Show()

    End Sub
End Class