ليست برنامه حذف كردن اطلاعات
با كمي تصرف...
در #C:
using System.Data.SqlClient;
using System.Collections;
.
.
.
SqlConnection cnn = newSqlConnection();
SqlDataAdapter sda = newSqlDataAdapter();
SqlCommand cmd = newSqlCommand();
DataSet ds = newDataSet();
ArrayList arr = newArrayList();
privatevoid Connect()
{
cnn.ConnectionString = "Data Source=COMPUTER1;Initial Catalog=storDB ;Integrated Security=True;";
}
privateDataSet LoadAll()
{
Connect();
cmd.CommandText = "select * from Table";
cmd.Connection = cnn;sda.SelectCommand = cmd;cnn.Open();sda.Fill(ds, "Barnamenevis");
cnn.Close();
return ds;
}
privatevoid Form1_Load(object sender, EventArgs e){LoadAll();dataGridView1.DataSource = ds;dataGridView1.DataMember = "Barnamenevis";
}
privatevoid Delete(SqlCommand cmd)
{
Connect();
cmd.Connection = cnn;
cnn.Open();
cmd.ExecuteNonQuery();
cnn.Close();
}
privatevoid button1_Click(object sender, EventArgs e)
{
arr.Add(textBox1.Text);
arr.Add(textBox2.Text);
cmd.CommandText = "Delete from Table Where ID= @ID)";
cmd.Parameters.Clear();
cmd.Parameters.Add("@ID", SqlDbType.Int).Value =int.Parse ( arr[0].ToString());
Delete(cmd);
LoadAll();
dataGridView1.DataSource = ds;
dataGridView1.DataMember = "Barnamenevis";
}
در VB.NET:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
PublicClass Form1
Dim cnn AsNew SqlConnection()
Dim cmd AsNew SqlCommand()
Dim sda AsNew SqlDataAdapter()
Dim ds AsNew DataSet()
Dim arr AsNew ArrayList()
PrivateSub Connect()
cnn.ConnectionString = "Data Source=COMPUTER1Initial Catalog=storDB Integrated Security=True"
EndSub
PrivateFunction LoadAll() As DataSet
Connect()
cmd.CommandText = "select * from Table"
cmd.Connection = cnn
sda.SelectCommand = cmd
sda.SelectCommand.Connection = cnn
cnn.Open()
sda.Fill(ds, "Barnamenevis")
cnn.Close()
Return ds
EndFunction
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
LoadAll()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Barnamenevis"
EndSub
PrivateSub Delete(ByVal cmd As SqlCommand)
Connect()
cmd.Connection = cnn
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
arr.Add(TextBox1.Text)
arr.Add(TextBox2.Text)
cmd.CommandText = "Delete from Table Where ID= @ID)"
cmd.Parameters.Clear()
cmd.Parameters.Add("@ID", SqlDbType.Int).Value =int.Parse ( arr[0].ToString())
Delete(cmd)
LoadAll()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Barnamenevis"
EndSub
EndClass
