با كمي تصرف...
در #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 Update(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);arr.Add(textBox3.Text);
cmd.CommandText = "Update set Field1=@Field1,Field2=@Field2 Where ID=@ID";
cmd.Parameters.Clear();
cmd.Parameters.Add("@Field1", SqlDbType.NVarChar).Value = arr[0].ToString();
cmd.Parameters.Add("@Field2", SqlDbType.Int).Value =int.Parse ( arr[1].ToString());
cmd.Parameters.Add("@ID", SqlDbType.Int).Value =int.Parse ( arr[2].ToString());
Update(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 Update(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)
arr.Add(textBox3.Text)
cmd.CommandText = "Update set Field1=@Field1,Field2=@Field2 Where ID=@ID"
cmd.Parameters.Clear();
cmd.Parameters.Add("@Field1", SqlDbType.NVarChar).Value = arr[0].ToString()
cmd.Parameters.Add("@Field2", SqlDbType.Int).Value =int.Parse ( arr[1].ToString())
cmd.Parameters.Add("@ID", SqlDbType.Int).Value =int.Parse ( arr[2].ToString())
Update(cmd)
LoadAll()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Barnamenevis"
EndSub
EndClass