+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب كود عدم قراءة المسترجع في فورمة الترجيع (/showthread.php?tid=21876)
طلب كود عدم قراءة المسترجع في فورمة الترجيع - 0theghost0 - 25-09-17
ابحث عن كود عدم قراءة بيانات المستأجر اذا تم ترجيعه .
مثال :
تم اضافة
1 تم استأجار
2 تم ترجيعه الغرض
في الفورمة يقرأ رقم 1 فقط اما 2 لايقرأها لانه قام بترجيع
وشكرا لكم
RE: طلب كود عدم قراءة المسترجع في فورمة الترجيع - wale90 - 25-09-17
كيف يتم تعريفها في الاعمدة
اذا كنت تقوم بتعريفها بحقل رقمي مثل (2) تعني (تم ترجيعه الغرض)
كود :
SELECT * FROM Table1 WHERE coloumn<>2RE: طلب كود عدم قراءة المسترجع في فورمة الترجيع - 0theghost0 - 25-09-17
كود :
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
ds = New DataSet
da = New OleDbDataAdapter("select Cus_Balance from Rent", conn)
da.Fill(ds, "Rent")
With ComboBox1
.DataSource = ds.Tables("Rent")
.DisplayMember = "Cus_Balance"
.ValueMember = "Cus_Balance"
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End Withالكود :
كود :
da = New OleDbDataAdapter("Select * From Return Where Cus_Balance <> 2", conn)