Export Database to Notepad
##################EASY CODING WITH RICHARD####################
DIFFICULTY : 5
CODE FOR EXPORTING:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'
'Export To Text files
Dim Startuppath As String = Application.StartupPath + ---
Dim numCols As Integer = FacultyDataGridView.ColumnCount
Dim numRows As Integer = FacultyDataGridView.RowCount - 1
Dim Destinationpath As String = Startuppath & - & DateTime.Now.ToString(-dd-MMM-yyy-) & -.txt
Dim tw As TextWriter = New StreamWriter(Destinationpath)
For count As Integer = 0 To numCols - 1
tw.Write(FacultyDataGridView.Columns(count).HeaderText)
If (count -- numCols - 1) Then
tw.Write(-|-)
End If
Next
tw.WriteLine()
For count As Integer = 0 To numRows - 1
For count2 As Integer = 0 To numCols - 1
tw.Write(FacultyDataGridView.Rows(count).Cells(count2).Value)
If (count2 -- numCols) Then
tw.Write(-|-)
End If
Next
tw.WriteLine()
Next
tw.Close()
End Sub