ذخیره اطلاعات دیتا گرید داخل دیتا بیس
Imports System.IO
Imports System.Data.SqlClient
Public Class frmName
Private ConnectionString As String = "Data Source=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DataBaseName;Data Source=AONE-PC"
Private Connection As SqlConnection = New SqlConnection(ConnectionString)
Private ChAry(2, 0) As String
Private ArySize As Integer = 1
Private Sub frmName_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim comSelectA As String = "Select * From tableName"
Dim sqlComSelectA As SqlDataAdapter = New SqlDataAdapter(comSelectA, Connection)
Dim DataTableA As New DataTable
Connection.Open()
sqlComSelectA.Fill(DataTableA)
Connection.Close()
DataGridView1.DataSource = DataTableA
End Sub
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
ReDim Preserve ChAry(2, 0 To ArySize)
ChAry(0, ArySize - 1) = DataGridView1.CurrentRow.Cells("ID").Value()
ChAry(1, ArySize - 1) = DataGridView1.CurrentRow.Cells("Name").Value()
ChAry(2, ArySize - 1) = DataGridView1.CurrentRow.Cells("lName").Value()
ArySize += 1
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Connection.Open()
For l = 0 To ArySize - 1
Dim sqlSaveChengs As String = "Update tableName Set Name = '" + ChAry(1, l) + "' WHERE ID='" + ChAry(0, l) + "'"
Dim sqlComn As SqlCommand = New SqlCommand(sqlSaveChengs, Connection)
Dim sqlSaveChengs2 As String = "Update tableName Set lName = '" + ChAry(2, l) + "' WHERE ID='" + ChAry(0, l) + "'"
Dim sqlComn2 As SqlCommand = New SqlCommand(sqlSaveChengs2, Connection)
sqlComn.ExecuteScalar()
sqlComn2.ExecuteScalar()
Next
Connection.Close()
ReDim Preserve ChAry(2, 0 To 0)
ArySize = 1
End Sub
End Class
پاسخ با نقل قول
