تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكله في عملية البحث
#11
اخي هذا المثال واجو منك التعديل عليه مع شرح المشكله

اخي ابحث من رقم عشرة ومافوق حت تبين المشكله لان السجلات ممكن توصل اكثر من 3000 سجل فيما بعد


الملفات المرفقة
.rar   WindowsApplication6.rar (الحجم : 3.83 م ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة: Sajad
#12
السلام عليكم

استبدل كود البحث بهذا الكود


PHP كود :
Try
 
           cler()

 
           Dim sql As String "select * from tbl1  WHERE HijriID =" Convert.ToInt32(TextBox1.Text) & ""
 
           Dim bda As New OleDb.OleDbDataAdapter(sqlcon)
 
           Dim bdt As New DataTable

            bda
.Fill(bdt)
 
           txtid.Text bdt.Rows(0)("HijriID").ToString
            tex1
.Text bdt.Rows(0)("HijriYear").ToString
            tex
.Text bdt.Rows(0)("b")
 
           txt_date.Text bdt.Rows(0)("b1")
 
           tex3.Text bdt.Rows(0)("b2")
 
           tex5.Text bdt.Rows(0)("b3")
 
           tex6.Text bdt.Rows(0)("b4")
 
           tex7.Text bdt.Rows(0)("b5")
 
           tex8.Text bdt.Rows(0)("b6")
 
           If (Not bdt.Rows(0)("b7").Equals(DBNull.Value)) Then
                tex9
.Text bdt.Rows(0)("b7")
 
           End If
 
           tex10.Text bdt.Rows(0)("b8")
 
           If (Not bdt.Rows(0)("b9").Equals(DBNull.Value)) Then
                bb1
.Text bdt.Rows(0)("b9")
 
           End If
 
           tex12.Text bdt.Rows(0)("b10")
 
           tex20.Text bdt.Rows(0)("b11")
 
           tex11.Text bdt.Rows(0)("b12")
 
           If (Not bdt.Rows(0)("b13").Equals(DBNull.Value)) Then
                bb2
.Text bdt.Rows(0)("b13")
 
           End If
 
           If (Not bdt.Rows(0)("b14").Equals(DBNull.Value)) Then
                bb4
.Text bdt.Rows(0)("b14")
 
           End If
 
           If (Not bdt.Rows(0)("b15").Equals(DBNull.Value)) Then
                bb5
.Text bdt.Rows(0)("b15")
 
           End If
 
           If (Not bdt.Rows(0)("b16").Equals(DBNull.Value)) Then
                bb7
.Text bdt.Rows(0)("b16")
 
           End If

 
           IDLb.Text bdt.Rows(0)("ID")

 
           If bdt.Rows.Count 0 Then
            Else
                MsgBox
("لاتوجد معاملات بهذا الرقم")
 
           End If
 
       Catch ex As Exception
            MessageBox
.Show(ex.Message"Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
       End Try
 
       btn_Save.Enabled True
        Button2
.Enabled True
        Button3
.Enabled True
    End Sub 


تحياتي
الرد }}}
تم الشكر بواسطة:
#13
شكراً لك اخي والله يوفقك

عندي تعليق على احد موضيع الاخوة بشان كيفية وضع الباركود داخل الكريستال ريبورت في قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET
اتمنى لو تطلع على ردي اذا تكرمت
الرد }}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في برمجه زر الاضافه و الحفظ Medo84 2 1,421 07-01-21, 05:27 PM
آخر رد: Medo84
Smile كيفية تسجيل عملية البيع الأجل solo87 0 1,215 28-05-20, 10:40 PM
آخر رد: solo87
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 9 5,938 06-04-20, 12:12 AM
آخر رد: wadyreem
  [SQL] مشكله تشغيل السيكول على جهاز العميل m.farag87 1 1,691 29-06-19, 01:14 AM
آخر رد: سامي محمد
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 2,269 21-02-19, 04:38 PM
آخر رد: elgokr
  [VB.NET] مشكله فى التزمن issamsaidd 0 1,230 02-01-19, 08:34 AM
آخر رد: issamsaidd
  مشكلة في كود البحث Search khaled12345 5 3,128 16-07-17, 08:22 PM
آخر رد: سعود
  [سؤال] استفسار عن كود البحث المتعدد Marwan9990 22 8,577 15-07-17, 11:51 AM
آخر رد: أبوبكر سويدان
  مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء نبيل كونكت 0 1,715 08-07-17, 07:50 AM
آخر رد: نبيل كونكت
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 8,461 03-07-17, 05:04 AM
آخر رد: K39

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


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