Sugdok .Net Video Tutorials

vb .net how to use crystalreport and print selected row in datagridview


vb .net Load data in datagridview using MS Access 2007 - 2010 (Part 1 - Part 6)


vb net how to delete selected rows in datagridview using ms access 2007 2010 ( Part 2 - Part 6)


vb .net how to delete multiple record in datagridvew using ms access 2007 2010 ( Part 3 - Part 6)


vb .net how to insert a multiple record in datagridview using ms access 2007-2010 ( Part 4 - Part 6)


vb .net how search a record in datagridview using ms access 2007 - 2010 ( Part 5 - Part 6 )

Nice Share....

hello cool video can you give me that code and whole project solution file for my learning because i am just beginner in vb.net thank you.

wala bang source code na available for download?

kkhebin wrote:wala bang source code na available for download?

 Ask natin c sugdok.............

Sir  ask ko lng po kung paano po coding sa date ung hindi po sya pwede ulitin at the same time po..  ung mag already exist po pag invalid hehe sensya na po tnx po

seperoth wrote:Sir  ask ko lng po kung paano po coding sa date ung hindi po sya pwede ulitin at the same time po..  ung mag already exist po pag invalid hehe sensya na po tnx po

date para saan mo gamitin?

Maraming salamat sa mga video tutorials na mga to sir.. try ko apply to sa Ginagawa kong thesis ^_^(kahit pharmacy student ako) nawiwindang kasi ako sa programming ^_^  

xtian0587 wrote:Maraming salamat sa mga video tutorials na mga to sir.. try ko apply to sa Ginagawa kong thesis ^_^(kahit pharmacy student ako) nawiwindang kasi ako sa programming ^_^  

hahaha! nakakaadik nga mag program.....

Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsert.Click
       For i = 0 To DataGridView1.Rows.Count - 1
           Dim row1 As String = DataGridView1.Rows(i).Cells(1).Value.ToString

           Dim sqlquery As String = "INSERT INTO tblName (FullName) VALUES ('" & row1 & "')"
           Dim sqlcommand As New OleDbCommand

           With sqlcommand
               .CommandText = sqlquery
               .Connection = conn
               .ExecuteNonQuery()
           End With
       Next

       MsgBox("Record successfully added!")
       DataGridView1.Rows.Clear()

       btnLoad.PerformClick()
   End Sub

pano po ba pag 2 columns na yong lalagyan mo ng data sa database?? like "Fullname" and "Address"?? kc tong code is for "Fullname" column lng sa database tama po ba?? pls need help

ay nagawa q na po..  tnx nga po pla sa tutorials..

sir, how do you update a record pla..  i think update tutorial is still missing .. tnx po

Public Class frmStudent
    Dim cnn As New OleDb.OleDbConnection

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.txtstdID.Text = ""
        Me.txtStdName.Text = ""
        Me.txtPhone.Text = ""
        Me.txtAddress.Text = ""
        Me.txtstdID.Tag = ""
        'enable button edit
        Me.btnEdit.Enabled = True
        'set button add to add label
        Me.btnAdd.Text = "Add"
        '
        Me.txtstdID.Focus()
    End Sub

    Private Sub RefreshData()
        If Not cnn.State = ConnectionState.Open Then
            'open connection
            cnn.Open()
        End If

        Dim da As New OleDb.OleDbDataAdapter("SELECT stdid as [ID], " & _
                                             "stdname as [Name], Gender, Phone, Address " & _
                                             " FROM student ORDER BY stdid", cnn)
        Dim dt As New DataTable
        'fill data to datatable
        da.Fill(dt)

        'offer data in data table into datagridview
        Me.dgvData.DataSource = dt

        'close connection
        cnn.Close()
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim cmd As New OleDb.OleDbCommand
        If Not cnn.State = ConnectionState.Open Then
            'open connection if it is not yet open
            cnn.Open()
        End If

        cmd.Connection = cnn
        'check whether add new or update
        If Me.txtstdID.Tag & "" = "" Then
            'add new 
            'add data to table
            cmd.CommandText = "INSERT INTO student(stdid, stdname, gender, phone, address) " & _
                            " VALUES(" & Me.txtstdID.Text & ",'" & Me.txtStdName.Text & "','" & _
                            Me.cboGender.Text & "','" & Me.txtPhone.Text & "','" & _
                            Me.txtAddress.Text & "')"
            cmd.ExecuteNonQuery()
        Else
            'update data in table
            cmd.CommandText = "UPDATE student " & _
                        " SET stdid=" & Me.txtstdID.Text & _
                        ", stdname='" & Me.txtStdName.Text & "'" & _
                        ", gender='" & Me.cboGender.Text & "'" & _
                        ", phone='" & Me.txtPhone.Text & "'" & _
                        ", address='" & Me.txtAddress.Text & "'" & _
                        " WHERE stdid=" & Me.txtstdID.Tag
            cmd.ExecuteNonQuery()
        End If
        'refresh data in list
        RefreshData()
        'clear form
        Me.btnClear.PerformClick()

        'close connection
        cnn.Close()
    End Sub

    Private Sub frmStudent_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cnn = New OleDb.OleDbConnection
        cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
        '
        'get data into list
        Me.RefreshData()
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        'check for the selected item in list
        If Me.dgvData.Rows.Count > 0 Then
            If Me.dgvData.SelectedRows.Count > 0 Then
                Dim intStdID As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value
                'get data from database followed by student id
                'open connection
                If Not cnn.State = ConnectionState.Open Then
                    cnn.Open()
                End If
                'get data into datatable
                Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM student " & _
                                                     " WHERE stdid=" & intStdID, cnn)
                Dim dt As New DataTable
                da.Fill(dt)

                Me.txtstdID.Text = intStdID
                Me.txtStdName.Text = dt.Rows(0).Item("stdname")
                Me.cboGender.Text = dt.Rows(0).Item("gender")
                Me.txtPhone.Text = dt.Rows(0).Item("phone")
                Me.txtAddress.Text = dt.Rows(0).Item("address")
                '
                'hide the id to be edited in TAG of txtstdid in case id is changed
                Me.txtstdID.Tag = intStdID
                'change button add to update
                Me.btnAdd.Text = "Update"
                'disable button edit
                Me.btnEdit.Enabled = False
                'close connection
                cnn.Close()
            End If
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        'check for the selected item in list
        If Me.dgvData.Rows.Count > 0 Then
            If Me.dgvData.SelectedRows.Count > 0 Then
                Dim intStdID As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value
                'open connection
                If Not cnn.State = ConnectionState.Open Then
                    cnn.Open()
                End If

                'delete data
                Dim cmd As New OleDb.OleDbCommand
                cmd.Connection = cnn
                cmd.CommandText = "DELETE FROM student WHERE stdid=" & intStdID
                cmd.ExecuteNonQuery()
                'refresh data
                Me.RefreshData()

                'close connection
                cnn.Close()
            End If
        End If
    End Sub
End Class

sir i have a question in this video https://www.youtube.com/watch?v=9fp2vsHq0_M
i cant put a conn in a form1.conn sir can u pls help me sir i really nid help so badly sir cause i nid to defend my system tommorrow hoping for your respond sir . .thanks . .

sir i have a question in this video: vb .net how to use crystalreport and print selected row in datagridview
i cant put a conn in a form1.conn sir can u pls help me sir i really nid help so badly sir cause i nid to defend my system tommorrow hoping for your respond sir . .thanks . .