Programming for Everybody

insert update delete data in datagridview without using database in visual basic.net

Imports System.Data.DataTable

Public Class Form2

Dim table As New DataTable("table")

Dim index As Integer

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

table.Columns.Add("ID", Type.GetType("System.Int32"))

table.Columns.Add("First name", Type.GetType("System.String"))

table.Columns.Add("Last name", Type.GetType("System.String"))

table.Columns.Add("Sum", Type.GetType("System.Int32"))

DataGridView1.DataSource = table

End Sub

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

table.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)

DataGridView1.DataSource = table

End Sub

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

index = e.RowIndex

Dim selectedrow As DataGridViewRow

selectedrow = DataGridView1.Rows(index)

TextBox1.Text = selectedrow.Cells(0).Value.ToString

TextBox2.Text = selectedrow.Cells(1).Value.ToString

TextBox3.Text = selectedrow.Cells(2).Value.ToString

TextBox4.Text = selectedrow.Cells(3).Value.ToString

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim newdata As DataGridViewRow

newdata = DataGridView1.Rows(index)

newdata.Cells(0).Value = TextBox1.Text

newdata.Cells(1).Value = TextBox2.Text

newdata.Cells(2).Value = TextBox3.Text

newdata.Cells(3).Value = TextBox4.Text

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

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

DataGridView1.Rows.RemoveAt(index)

End Sub

End Class

How to Connect SQL Server Database to VB.NET | Step-by-Step Tutorial with Source Code

Public Class Form1

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

'TODO: This line of code loads data into the 'Database2DataSet.Table1' table. You can move, or remove it, as needed.

Me.Table1TableAdapter.Fill(Me.Database2DataSet.Table1)

End Sub

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

Table1BindingSource.MovePrevious()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Table1BindingSource.AddNew()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Table1BindingSource.MoveNext()

End Sub

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

Table1BindingSource.EndEdit()

Table1TableAdapter.Update(Database2DataSet)

MessageBox.Show("Data Saved")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Table1BindingSource.RemoveCurrent()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.Close()

End Sub

End Class

Update insert and delete gridview without database asp.net (vb.net)

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
Name <asp:TextBox ID="TxtName" runat="server" ></asp:TextBox>
Age<asp:TextBox ID="txtAge" runat="server" ></asp:TextBox>
<asp:Button ID="btnInsert" Text="Save" runat="server" OnClick="btnInsert_Click" />
<%-- <asp:Button ID="btnUpdate" Text="Update" runat="server" OnClick="btnUpdate_Click" />--%>
<asp:GridView ID="grdView" runat="server" OnRowCommand="grdView_RowCommand" OnRowDeleting="grdView_RowDeleting"
>
<Columns>
<asp:TemplateField>

<ItemTemplate>
<asp:Button ID="btn" runat="server" Text="Delete" CommandName="delete" CommandArgument='<%# Container.DataItemIndex %>' />
</ItemTemplate>

<%-- <ItemTemplate>
<asp:Button ID="btnEdit" runat="server" Text="Edit" CommandName="Edit" />
</ItemTemplate>--%>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:Button runat="server" CommandName="Change" ID="btnEdit" Text="Edit" CommandArgument='<%# Container.DataItemIndex %>' />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>

</asp:TemplateField>
</Columns>
</asp:GridView>
</div>
</form>
</body>
</html>

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Imports System.Data.OleDb
Imports System.IO
Imports System.Configuration
Imports System.Data
Imports System.Data.DataTable
Partial Public Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub

Public Shared dt As Datatable
Public Shared i As Integer = 1

Protected Sub btnInsert_Click(ByVal sender As Object, ByVal e As EventArgs)
If Convert.ToString(ViewState("Row")) <> "" Then
dt.Rows(Convert.ToInt32(ViewState("Row")))("Column1") = TxtName.Text
dt.Rows(Convert.ToInt32(ViewState("Row")))("Column2") = txtAge.Text
grdView.DataSource = dt
grdView.DataBind()
ViewState("Row") = ""
ElseIf Convert.ToString(ViewState("Row")) = "" Then
Session("datatable") = dt
dt = New DataTable()
Dim dr As DataRow = Nothing
dt.Columns.Add(New DataColumn("RowNumber", GetType(Integer)))
dt.Columns.Add(New DataColumn("Column1", GetType(String)))
dt.Columns.Add(New DataColumn("Column2", GetType(String)))

If Session("datatable") IsNot Nothing Then
dt = CType(Session("datatable"), DataTable)
dr = dt.NewRow()
dr("RowNumber") = i
dr("Column1") = TxtName.Text
dr("Column2") = txtAge.Text
dt.Rows.Add(dr)
Else
dr = dt.NewRow()
dr("RowNumber") = i
dr("Column1") = TxtName.Text
dr("Column2") = txtAge.Text
dt.Rows.Add(dr)
End If

grdView.DataSource = dt
grdView.DataBind()
i += 1
End If
End Sub

Protected Sub grdView_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs)
If e.CommandName = "delete" Then
dt = CType(Session("datatable"), DataTable)

If dt.Rows.Count >= 0 Then
dt.Rows.RemoveAt(Convert.ToInt16(e.CommandArgument))
grdView.DataSource = dt
grdView.DataBind()
End If
ElseIf e.CommandName = "Change" Then
dt = CType(Session("datatable"), DataTable)
TxtName.Text = grdView.Rows(Convert.ToInt32(e.CommandArgument)).Cells(4).Text
txtAge.Text = grdView.Rows(Convert.ToInt32(e.CommandArgument)).Cells(5).Text
ViewState("Row") = e.CommandArgument

If dt.Rows.Count >= 0 Then
grdView.DataSource = dt
grdView.DataBind()
End If
End If
End Sub

Protected Sub grdView_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs)
grdView.DataSource = dt
grdView.DataBind()
End Sub

Protected Sub grdView_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
TxtName.Text = grdView.SelectedRow.Cells(2).Text
End Sub
End Class

تحميل برنامج صغير لتسجيل اصناف في قاعدة بيانات SQl server وعرضها في combobox مع امكانية الاضافة والحذف والتعديل vb.net

نموذج بسيط لتسجيل أصناف وعرضها في أداة Combobox مع عدام تكرار الاصناف مع امكانية الحذف وكذلك تم اضافة قاعدة البيانات (SQl Server (products.

تحميل

Refresh page and open new new window asp.net (vb.net)

Resolution:

asp.net(vb.net)

Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)

برنامج مراجعة جميع كلمات اللغة الانجليزية لمرحلة الحضانة والصف الأول الابتدائي

برنامج لتعليم أطفالك اللغة الانجليزية في مرحلة الحضانة

تم تصميم برنامج لعرض جميع كلمات اللغة الانجليزية بالصوت والصورة للأطفال ويشمل (الحروف وأصواتها بالترتيب -الكلمات مرتبة تبعا للحروف الأبجدية - الأفعال - الألوان مع صورة لكل لون مرتبطة بالكلمة - الأرقام - أجزاء الجسم - العائلة ) وغيرها من المميزات بالبرنامج
رابط تحميل البرنامج

https://www.mediafire.com/file/un5d4ne1z3dvza4/ABC4.rar/file

Microsoft Access - Relationships & Query(easy way) - ICDL

Types of Table Relationships in MS Access:

One – to – one relationship

The primary record will have only one related record.

One – to – Many relationships

The primary record may have many related records

Many– to – Many relationships

Many records from one table can be related to many records from another table through a junction table.