الاخوة الاعزاء
السلام عليكم ورحمة الله وبركاتة
لقد واجهتني مشكلة عند الترتيب والاضافة في قاعدة البيانات sql server والا كواد التالية والتي أتمنى منكم التاكد من صحتها وايفادي بالرد .
فالكود الاول وهو يوضح الترتيب السجلات بناءا على حقل يختاره المستخدم والمشكلة هنا هي انه يعرض جميع الحقول الا الحقل المفتاح والذي كان يجب ان يظهر في text1.text
Dim DS As New DataSet
Dim WithEvents bmb As BindingManagerBase
'==========================================================================
Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim adepter As New SqlDataAdapter("SELECT* MASTRANS order (by MASTRANS.REQNO",cn
Dim cm1 As SqlCommand
'==========================================================================
DS.Clear
("depter.Fill(D1, "m1
("TextBox1.DataBindings.Add("text", DS, "m1.REQNO
("TextBox7.DataBindings.Add("text", DS, "m1.REMARK1
("DateTimePicker1.DataBindings.Add("value", DS, "m1.TRANSDT
("TextBox5.DataBindings.Add("text", DS, "m1.CCODE
("TextBox4.DataBindings.Add("text", DS, "m1.ISS_NO
("DataGrid1.SetDataBinding(DS1, "m1
DataGrid1.Visible = False
("bmb = Me.BindingContext(DS, "m1
bmb.Position = 0
TextBox1.Focus
End sub
'==========================================================================
لإعادة ترتيب السجلات بناءاً على حقل يختاره المستخدم
Private Sub Orderby_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If select2 = "MASTRANS.REQNO" Then searca = 7
If select2 = "MASTRANS.TRANSDT" Then searca = 8
If select2 = "MASTRANS.CCODE" Then searca = 9
storg = bmb.Position
DS1.Clear
Dim adepter1 As New SqlDataAdapter("SELECT * mastrans order by " & select2, cn
("adepter1.Fill(DS, "m1
end subعند تنفيذ الكود بالنقر على الــ button1 يتم عرض البيانات في مربع النص عدا مربع النص TextBox1 رغم أن جملة الربط موجودة في الـ Form20_Load
("TextBox1.DataBindings.Add("text", DS, "m1.REQNO
ما السبب في ذلك .
والكود الثاني هو الاضافة
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
("Dim s As String = "insert into MASTRANS (REQNO,CODE,CCODE) values(@x1,@x2,@x3
(Dim cm As New SqlCommand(s, cn
Dim cm1 As SqlCommand
Dim cm2 As SqlCommand
((cm.Parameters.Add("@x1", Trim(TextBox1.Text
cm.Parameters.Add("@x2", "4") 'CODE
cm.Parameters.Add("@x3", Trim(TextBox5.Text)) 'CCODE
cm.ExecuteNonQuery
عند استخدام
(" bmb = Me.BindingContext(DS, "m1
bmb.Position = 0والسؤال هو عند إضافة سجل جديدة لقاعدة البيانات هل من الضروري إضافة السجل الجديد إلى الــ dataset
والسبب عند استخدام الكود في button Add لإضافة سجل جديد يتم إلغاء السجل السابق من dataset