+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة السي شارب C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=175)
+--- قسم : قسم اسئلة C#.NET (http://vb4arb.com/vb/forumdisplay.php?fid=176)
+--- الموضوع : [C#.NET] سؤال بخصوص ادخال البيانات واستدعائها من ال dataset (/showthread.php?tid=39401)
سؤال بخصوص ادخال البيانات واستدعائها من ال dataset - امير رزق - 28-08-21
تحياتى للجميع
انا عملت داتا سيت DataSet من جوة الفيجوال استوديو طبعا
وسوالى هل اقدر اضيف فيها البيانات واستدعيها منها بنفس طريقة جمل الاضافة والاتسعلام بتاعة ال sql ؟
وان لم يكن ايه الطريقة السليمة لعمل ذلك
شكرا وتحية للجميع
RE: سؤال بخصوص ادخال البيانات واستدعائها من ال dataset - asemshahen5 - 28-08-21
كود تعبئة الجدول من جدول في قاعدة البيانات
PHP كود :
dim StrSQL as string = "Select * From QtnTbl "
Dim cn As New SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String ="QtnTbl"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim ds As New DataSet
da.Fill(ds,StrTableName)
كود إضافة سجل جديد الى جدول في قاعدة البيانات .
PHP كود :
Dim StrSQL As String = "INSERT INTO QtnTbl (Barcode,QtnName,Qtn ) VALUES (@Barcode,@QtnName,@Qtn)"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@Barcode", Txt_Barcode.Text)
Command.Parameters.AddWithValue("@QtnName", Txt_QtnName.Text)
Command.Parameters.AddWithValue("@Qtn", Txt_Qtn.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
كود تعديل في جدول في قاعدة البيانات .
PHP كود :
Dim StrSQL As String = "UPDATE QtnTbl SET QtnName=@QtnName, Qtn=@Qtn , @Barcode=@Barcode where ID=@ID"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@ID", Txt_ID.Text)
Command.Parameters.AddWithValue("@Barcode", Txt_Barcode.Text)
Command.Parameters.AddWithValue("@QtnName", Txt_QtnName.Text)
Command.Parameters.AddWithValue("@Qtn", Txt_Qtn.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
كود حذف سجل من جدول في قاعدة البيانات .
PHP كود :
Dim StrSQL As String = "Delete From QtnTbl where ID=@ID"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim Command As New OleDb.OleDbCommand(StrSQL, con)
Command.Parameters.AddWithValue("@ID", Txt_ID.Text)
Command.CommandType = CommandType.Text
Command.Connection.Open()
Command.ExecuteNonQuery()
Command.Connection.Close()
كود بحث عن سجل محدد في قاعدة البيانات .
PHP كود :
dim StrSQL as string = "Select * From QtnTbl Where Barcode = '" & TxtSearch.Text & "'"
Dim cn As New SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String ="QtnTbl"
Dim da As New SqlDataAdapter(StrSQL, cn)
Dim ds As New DataSet
da.Fill(ds,StrTableName)
كود فلتر على جدول في قاعدة البيانات .
PHP كود :
Dim StrSQL As String = "Select * From QtnTbl Where QtnName Like @QtnName"
Dim cn As New SqlClient.SqlConnection("Server =(local);database=QtnDB1;integrated security=True")
Dim StrTableName As String = "QtnTbl"
Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
da.SelectCommand.Parameters.AddWithValue("@QtnName", "%" & Txt_Filter.Text & "%")
Dim ds As New DataSet
da.Fill(ds, StrTableName)
كود تحميل من الجدول الى التكست بوكس على الفورم .
PHP كود :
Txt_ID.DataBindings.Clear()
Txt_Barcode.DataBindings.Clear()
Cmb_QtnName.DataBindings.Clear()
Txt_Qtn.DataBindings.Clear()
Txt_ID.DataBindings.Add("Text", ds.Tables(StrTableName), "ID")
Txt_Barcode.DataBindings.Add("Text", ds.Tables(StrTableName), "Barcode")
Cmb_QtnName.DataBindings.Add("Text", ds.Tables(StrTableName), "QtnName")
Txt_Qtn.DataBindings.Add("Text", ds.Tables(StrTableName), "Qtn")
RE: سؤال بخصوص ادخال البيانات واستدعائها من ال dataset - امير رزق - 28-08-21
والله انا متشكر ليك جدااا
RE: سؤال بخصوص ادخال البيانات واستدعائها من ال dataset - asemshahen5 - 28-08-21
الحمد لله و الشكر لله رب العالمين .