مراجعة تنفيذ جملة Sql

بدأه khaledmh في 27 مارس 2008 · 9 رد · 921 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#127 مارس 2008 في 07:49 صاحب الموضوع

السلام عليكم

ارجو تصحيح الكود الخاص بتنفيذ جملة sql

حيث انى عندى عدد 4 تكست بوكس واريد عند عدم وجود قيمة فى اى تكست يتم عرض الجدول بالكامل واذا كتبت اى قيمة فى التكست بوكس يتم البحث عنها ويعرضها فقط فى الجدول وشكرا

 

Private Sub Command3_Click()
If txtFields(1) = "" Or txtFields(2) = "" Or txtFields(3) = "" Or txtFields(4) = "" Then
 SQL = ("Select * From JournalDetail where PostPeriod >=" & Spin1 & " And PostPeriod <= " & Spin2 & "" & "") & " ORDER BY EntryNo, " & Text1 & ""

ElseIf txtFields(1) > 0 Or txtFields(2) > 0 Or txtFields(3) > 0 Or txtFields(4) > 0 Then

SQL = ("Select * From JournalDetail where PostPeriod >=" & Spin1 & " And PostPeriod <= " & Spin2 & _
" And VoucherNo >=" & txtFields(1) & " And VoucherNo <= " & txtFields(2) & ";") & " ORDER BY EntryNo, " & Text1 & ""




End If

txtsql.Text = SQL

On Error Resume Next
grid.Rows = rsSD.RecordCount + 1
grid.Row = 1
grid.Col = 1
grid.RowSel = grid.Rows - 1
grid.ColSel = grid.Cols - 1
grid.Clip = rsSD.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
grid.Row = 1
End Sub

#227 مارس 2008 في 12:19

بسم الله الرحمن الرحيم

والله أنا عايز كل مشاركه ليا تكون بنائه مفيهاش وضح أكتر ولا أيه أقصدك بس على قد فهمي هقولك لأني مفهمتش جامد

بص يا معلم ليا كام ملاحظه كده في جمل select متخليش select * from table لأيه لأن ده هيبين أسامي الجداول وغالبا أسامي الجداول مبتبقاش مفهومه للمستخد أمال يبقى أيه

يكون

sql ="select name as [إسم العميل ],date as [التاريخ ] from table"

في حاجه كمان مومضوع text1 إلي في الأخر مش عارف بتاع أيه لو كان ده بتاع ترتيب يبقى أنا مش شايف له لازمه قوي بص

في جمل select بيكون الترتيب حسب ترتيب العناصر إلي أنت مختارها يعني في المثال إلي فات بيكون الإسم الأول وبعد كده التاريخ

أرجوا أن أكون أفدت

ملْءُ السنابل تنحني بتواضع **** والفارغات رؤوسهن شوامخ

أقوى برنامج محاسبي لعام 2012

www.itdoodle.com

#327 مارس 2008 في 19:28

If TxT1 = "" Or TxT2 = "" Or TxT3 = "" Or TxT4 = "" Then
   Sql = "Select * From JournalDetail where PostPeriod >=" & Spin1 & " And PostPeriod <= " & Spin2 & " ORDER BY EntryNo"
Else
   Sql = "Select * From JournalDetail where PostPeriod >=" & Spin1 & " And PostPeriod <= " & Spin2 & " And VoucherNo >=" & TxT1 & " And VoucherNo <=" & TxT2 & " ORDER BY EntryNo"
End If

الشرط الاول يتم تنفيذه في حال لم يتم تعبئة أي مربع نص من الاربعه .

وغير ذلك طبيعا ان تكون الاربعة مربعات النص تم تعبئتها .

ليس كل ما يتمناه المرء يدركه

#427 مارس 2008 في 20:38

شكرا لك اخى العقده على ردك ولكن بفرض احببت ان اضيف بيانات فى عدد 2 تكست فقط فماذا افعل وشكرا

#527 مارس 2008 في 22:44

تحتاج ان تضع اكثر من شرط يتحقق من مدخلات كل تكست وعليه تبني الاستعلام .

ليس كل ما يتمناه المرء يدركه

#628 مارس 2008 في 00:40

ممكن مثال على كيفية عمل ذلك

#728 مارس 2008 في 09:38

الأخ الكريم ، نفرض أن لدينا جدول خاص بالعملاء Customer ، وهذا الجدول بالطبع يحتوي علي أسماء العملاء والنوع ( ذكر / أنثي ) والدولة وغيرها !!!!

نفرض أنك قمت بتصميم نموذج يحتوي علي TextBox خاصة بالبحث عن إسم العميل ، وComboBox بالبحث عن النوع ، و ComboBox بالبحث عن الدولة !!!

أنظر الكود :

Sql = "Select Customer_Code,Customer_Name,Customer_Sex,Customer_Country "
Sql = Sql & "From Customer "
Sql = Sql & "Where 0 = 0 "

If(Trim(txtName.Text) <> "")Then Sql = Sql & "And Customer_Name Like '%" & txtName.text & "%' "

If(cmbSex.ListIndex >= 0)Then Sql = Sql & "And Customer_Sex = " & cmbSex.ListIndex + 1

If(cmbCountry.ListIndex >= 0)Then Sql = Sql & " And Customer_Country = " & cmbCountry.ItemData(cmbCountry.ListIndex)

وفي النهاية يتم تنفيذ ملة الإستعلام وعرضها للمستخدم

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook