الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في حفظ البيانات من Datagridview الي الجدول

بدأه محمد فؤاد تركي في 16 ديسمبر 2008 · 11 رد · 1,775 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السادة الزملاء

السلام عليكم ورحمة الله وبركاتة

لقد صممت اجراء مخزن Stored Procedure لحفظ البيانات داخل الجدول والاجراء يعمل بطريقة سليمة من داخل SQL وعند ربط هذا الاجراء من داخل DataGridview ليتم حفظ البيانات من خلالها بالجدول لا يتم الحفظ

وهذا هو الاجراء داخل SQL Server

ALTER proc [dbo].[ItemsSavedata]

(
@ItemNumber Nvarchar (50)
,@ItemName nvarchar (50)
,@Unit Nvarchar (20)
,@UnitPrice Nvarchar (20)
)

As Begin if not exists (Select ItemNumber,ItemName,Unit,UnitPrice
from Items where ItemNumber = @ItemNumber and ItemName = @ItemName and Unit = @Unit and UnitPrice = UnitPrice)

Begin Insert Into Items (ItemNumber,ItemName,Unit,UnitPrice)
Values (@ItemNumber,@ItemName,@Unit,@UnitPrice)

end
else
begin Declare @ErrorText as nvarchar (50)
Set @ErrorText = 'هذا الكود موجود موجود سابقاً'
raiserror (@ErrorText ,16 ,1)
end

مرفق مثال

WindowsApplication1235695464.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#2

السلام عليكم,,,

اعتقد انك نسيت تستدعي الأجراء DataAdapter.Update لتخزين البيانات في الجدول.

لاحظ الكود

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...............
da.InsertCommand = insercommand
da.Update(dt)
...............
End Sub

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#3

والله يا أخي حاولت ولكن مازال هناك خطأ لا اعلمه

وهذه صورة من الخطأ

post-46243-1229458885_thumb.jpg

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 16 ديسمبر 2008 في 23:24

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#4

جرب تفتح Connection في الأول (زي ما كان)

Sqlcon.Open()

ولو ظهر خطأ اعرض رسالته

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#5

مازال هناك خطأ

مرفق صورة عن الخطأ

post-46243-1229486234_thumb.jpg

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#6

اخي العفو منك ، لم افهم سبب هذا الخطأ.

لكن لو قدرت ترفق قاعدة البيانات علشان اطبق البرنامج في جهازي يكون افضل.

والعفو منك اخي ثاني مرة.

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#7

أخي الفاضل

السلام عليكم ورحمة الله وبركاتة

مرفق مثال وبداخلة قاعده البيانات باسم Test

بداخل قاعد البيانات جدول اسمة items

اجراء مخزن باسم ItemsSaveData ويحتوي علي جملة Insert وهي تعمل بكفائة من داخل SQL

شكراً لك

WindowsApplication1235695464.rar

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#8

السلام عليكم,,,

غير الكود بهذا الشكل

 

 [color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles 
Button1[color= #339933;].Click

        Sqlcon[color= #339933;].Open[color= #009900;]([color= #009900;])

 

        Dim insercommand [color= #b1b100;]As SqlCommand

        insercommand [color= #339933;]= [color= #000000; font-weight: bold;]New SqlCommand[color= #009900;]([color= #0000ff;]"ItemsSavedata"[color= #339933;], Sqlcon[color= #009900;])

        insercommand[color= #339933;].CommandType [color= #339933;]= CommandType[color= #339933;].StoredProcedure

 

        insercommand[color= #339933;].Parameters[color= #339933;].Add[color= #009900;]([color= #0000ff;]"@ItemNumber"[color= #339933;], SqlDbType[color= #339933;].NVarChar[color= #339933;], [color= #009900;]([color= #cc66cc;]50[color= #009900;])[color= #339933;], [color= #0000ff;]"ItemNumber"[color= #009900;])

        insercommand[color= #339933;].Parameters[color= #339933;].Add[color= #009900;]([color= #0000ff;]"@ItemName"[color= #339933;], SqlDbType[color= #339933;].NVarChar[color= #339933;], [color= #009900;]([color= #cc66cc;]50[color= #009900;])[color= #339933;], [color= #0000ff;]"ItemName"[color= #009900;])

        insercommand[color= #339933;].Parameters[color= #339933;].Add[color= #009900;]([color= #0000ff;]"@Unit"[color= #339933;], SqlDbType[color= #339933;].NVarChar[color= #339933;], [color= #009900;]([color= #cc66cc;]20[color= #009900;])[color= #339933;], [color= #0000ff;]"Unit"[color= #009900;])

        insercommand[color= #339933;].Parameters[color= #339933;].Add[color= #009900;]([color= #0000ff;]"@UnitPrice"[color= #339933;], SqlDbType[color= #339933;].NVarChar[color= #339933;], [color= #009900;]([color= #cc66cc;]20[color= #009900;])[color= #339933;], [color= #0000ff;]"UnitPrice"[color= #009900;])

 

        da[color= #339933;].InsertCommand [color= #339933;]= insercommand

        da[color= #339933;].Update[color= #009900;](dt[color= #009900;])

 

        Sqlcon[color= #339933;].Close[color= #009900;]([color= #009900;])

    [color= #990000;]End Sub

 

    [color= #000000; font-weight: bold;]Private Sub Form1_Load[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles 
MyBase[color= #339933;].Load

 

        dt[color= #339933;].Columns[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]New DataColumn[color= #009900;]([color= #0000ff;]"ItemNumber"[color= #339933;], [color= #990000;]System[color= #339933;].Type[color= #339933;].[color= #990000;]GetType[color= #009900;]([color= #0000ff;]"System.String"[color= #009900;])[color= #009900;])[color= #009900;])

        dt[color= #339933;].Columns[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]New DataColumn[color= #009900;]([color= #0000ff;]"ItemName"[color= #339933;], [color= #990000;]System[color= #339933;].Type[color= #339933;].[color= #990000;]GetType[color= #009900;]([color= #0000ff;]"System.String"[color= #009900;])[color= #009900;])[color= #009900;])

        dt[color= #339933;].Columns[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]New DataColumn[color= #009900;]([color= #0000ff;]"Unit"[color= #339933;], [color= #990000;]System[color= #339933;].Type[color= #339933;].[color= #990000;]GetType[color= #009900;]([color= #0000ff;]"System.String"[color= #009900;])[color= #009900;])[color= #009900;])

        dt[color= #339933;].Columns[color= #339933;].Add[color= #009900;]([color= #000000; font-weight: bold;]New DataColumn[color= #009900;]([color= #0000ff;]"UnitPrice"[color= #339933;], [color= #990000;]System[color= #339933;].Type[color= #339933;].[color= #990000;]GetType[color= #009900;]([color= #0000ff;]"System.String"[color= #009900;])[color= #009900;])[color= #009900;])

 

        DataGridView1[color= #339933;].DataSource [color= #339933;]= dt

    [color= #990000;]End Sub

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#9

شكراً جزيلا يا اخي الغالي تحقق المطلوب

طيب اذا حاولت استخدام هذا الكود في بناء DataGridView لانه اكثر مرونة من الكود السابق يظهر لي خطأ

لماذا؟

With Me.DataGridView1.Columns

			.Add("itemNumber", "كود الصنف")
			.Add("ItemName", "بيان الصنف")
			.Add("Unit", "الوحدة")
			.Add("UnitPrice", "سعر الوحدة")
		End With
		Me.DataGridView1.Columns(0).Width = 90
		For i As Integer = 1 To Me.DataGridView1.ColumnCount - 1
			Me.DataGridView1.Columns(i).Width = 90
		Next

		Me.DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
		Me.DataGridView1.ColumnHeadersHeight = Me.DataGridView1.ColumnHeadersHeight * 2
		Me.DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

		DataGridView1.DataSource = dt

وشكرا جزيلا مرة اخري علي مساعدتك

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#10

العفو اخي، والله خيركم سابق .

بالنسبة لمشكلة عناوين الأعمدة ممكن نحلها بهذا الشكل

DataGridView1.DataSource = dt'لاحظ هذا السطر
		DataGridView1.Columns(0).HeaderText = "كود الصنف"
		DataGridView1.Columns(1).HeaderText = "بيان الصنف"
		DataGridView1.Columns(2).HeaderText = "الوحدة"
		DataGridView1.Columns(3).HeaderText = "سعر الوحدة"

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#11

الف الف شكرا يا أخي الغالي حسن

والله كفيت ووفيت

بارك الله فيك وجعل الله لك في كل حرف كتبتة حسنة باذن الله

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#12

واياكم ، بارك الله فيك اخي .

والله خيركم سابق.

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

مواضيع مشابهة