منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER (/showthread.php?tid=18581)

ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER - معتز الجازوي - 26-12-16

جربت هذا  الكود لم ينجح 
PHP كود :
[align=center]  Dim Adp As New SqlClient.SqlDataAdapter("select* from SaveInvoice1", conn)[/align]
[align=center][/align]
[align=center]                Dim Ds As New DataSet[/align]
[align=center][/align]
[align=center]                Adp.Fill(Ds)[/align]
[align=center][/align]
[align=center]                Dim Dt = Ds.Tables(0)[/align]
[align=center][/align]
[align=center]                For i = 0 To DGVInvoice.Rows.Count - 1[/align]
[align=center]                    Dim dr = Dt.NewRow[/align]
[align=center]                    dr = Dt.NewRow[/align]
[align=center]                    dr!NumInvoice = TxtNumInvoice.Text[/align]
[align=center]                    dr!NumCut = DGVInvoice.Rows(i).Cells(0).Value[/align]
[align=center]                    dr!Price = DGVInvoice.Rows(i).Cells(1).Value[/align]
[align=center]                    dr!quantitySels = DGVInvoice.Rows(i).Cells(2).Value[/align]
[align=center]                    dr!TotalCut = DGVInvoice.Rows(i).Cells(3).Value[/align]
[align=center][/align]
[align=center]                    Dt.Rows.Add(dr)[/align]
[align=center][/align]
[align=center]                    Dim cmd As New SqlClient.SqlCommandBuilder(Adp)[/align]
[align=center]                    Adp.Update(Dt)[/align]
[align=center]                Next[/align]