ليست برنامه ثبت كردن اطلاعات در جدول
با كمي تصرف:
در #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 Insert(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 = "insert into Shelf(Field1,Field2)Values(@Field1,@Field2)";
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());
Insert(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 Insert(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 = "insert into Shelf(Field1,Field2)Values(@Field1,@Field2)"
cmd.Parameters.Clear()
cmd.Parameters.Add("@Field1", SqlDbType.NVarChar).Value = arr(0).ToString()
cmd.Parameters.Add("@Field2", SqlDbType.Int).Value = Integer.Parse(arr(1).ToString())
Insert(cmd)
LoadAll()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Barnamenevis"
EndSub
EndClass
