kourani
پنج شنبه 05 فروردین 1389, 22:56 عصر
با عرض سلام خدمت همگي
در برنامه اي كه نوشتم در هنگام حذف داده از ديتا گريد پيغامي كه به پيوست مي باشد نمايش داده مي شود . لطفا راهنمايي كنيد
سورس برنامه به شرح زير مي باشد :
Imports System.Data.SqlClient
Public Class Form1
Dim ConnectionString As String
Dim SqlConnection As SqlConnection
Dim Sqlbuilder As SqlCommandBuilder
Dim ds As New DataSet
Dim dr As DataRow
Dim sqladapter As SqlDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' نمايش اطلاعات جدول در ديتا گريد
ConnectionString = "DataBase=ali;data source=.;user=sa;password=selectrn"
SqlConnection = New SqlConnection(ConnectionString)
SqlConnection.Open()
sqladapter = New SqlDataAdapter("select * from personnel", SqlConnection)
sqladapter.Fill(ds, "Personnel")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a As Integer
a = DataGridView1.CurrentRow.Index ' بدست آوردن شماره ايندكس در ديتا گريد
dr = ds.Tables(0).Rows(a)
dr.Delete
Sqlbuilder = New SqlCommandBuilder(sqladapter)
sqladapter = Sqlbuilder.DataAdapter
sqladapter.Update(ds, "Personnel")
End Sub
End Class
46007
در برنامه اي كه نوشتم در هنگام حذف داده از ديتا گريد پيغامي كه به پيوست مي باشد نمايش داده مي شود . لطفا راهنمايي كنيد
سورس برنامه به شرح زير مي باشد :
Imports System.Data.SqlClient
Public Class Form1
Dim ConnectionString As String
Dim SqlConnection As SqlConnection
Dim Sqlbuilder As SqlCommandBuilder
Dim ds As New DataSet
Dim dr As DataRow
Dim sqladapter As SqlDataAdapter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' نمايش اطلاعات جدول در ديتا گريد
ConnectionString = "DataBase=ali;data source=.;user=sa;password=selectrn"
SqlConnection = New SqlConnection(ConnectionString)
SqlConnection.Open()
sqladapter = New SqlDataAdapter("select * from personnel", SqlConnection)
sqladapter.Fill(ds, "Personnel")
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim a As Integer
a = DataGridView1.CurrentRow.Index ' بدست آوردن شماره ايندكس در ديتا گريد
dr = ds.Tables(0).Rows(a)
dr.Delete
Sqlbuilder = New SqlCommandBuilder(sqladapter)
sqladapter = Sqlbuilder.DataAdapter
sqladapter.Update(ds, "Personnel")
End Sub
End Class
46007