تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[C#.NET] سؤال بخصوص ادخال البيانات واستدعائها من ال dataset
#1
تحياتى للجميع 
انا عملت داتا سيت DataSet  من جوة الفيجوال استوديو طبعا 
وسوالى هل اقدر اضيف فيها البيانات واستدعيها منها بنفس طريقة جمل الاضافة والاتسعلام بتاعة ال sql ؟
وان لم يكن ايه الطريقة السليمة لعمل ذلك 
شكرا وتحية للجميع
الرد
تم الشكر بواسطة:
#2
كود تعبئة الجدول من جدول في قاعدة البيانات

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(StrSQLcn)
 
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(StrSQLcon)
 
       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(StrSQLcon)
 
       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(StrSQLcon)
 
       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(StrSQLcn)
 
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(StrSQLcn)
 
       da.SelectCommand.Parameters.AddWithValue("@QtnName""%" Txt_Filter.Text "%")
 
       Dim ds As New DataSet
        da
.Fill(dsStrTableName

كود تحميل من الجدول الى التكست بوكس على الفورم .

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"
الرد
تم الشكر بواسطة: امير رزق
#3
والله انا متشكر ليك جدااا
الرد
تم الشكر بواسطة: asemshahen5
#4
الحمد لله و الشكر لله رب العالمين .
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم