تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد طريقة البحث والتعديل باداة DateTimePicker
#1
السلام عليكم ورحمة الله وبركاتة
سؤالي هنا اخواني عن اداة DateTimePicker
لدي مشروع للتعلم اعمل علية ومن المهم استخدام هذة الاداة
بالبرنامج الذي اعمل علية في فورم الاظافة اضفت الاداة طبعا تاخذ وقت الجهاز ويتم الحفظ بالقاعدة لكني لم اكن استطيع التعديل لا اعرف وضعت هذا الكود وتمت الامور لا اعرف ان كان صحيح هذا الكود

Dim aa As String
aa = DateTimePicker1.Value.Hour.ToString("00") + ":" + DateTimePicker1.Value.Minute.ToString("00") + ":" + DateTimePicker1.Value.ToString("tt")

الان انا بحاجة للبحث وضعت الاداة لكن لم اوفق في عملة البحث واظهار نتيجة البحث بالاداة

استخدم vb.ntt 2008 وقاعدة بيانات sql 2008
حددت نوع الحقل في القاعدة تايم
تحياتي لكم
الرد }}}
تم الشكر بواسطة:
#2
أخى الكريم
اولا أنا أرى انك تقوم بالبحث عن وقت
لذلك يجب ان يكون الحقل الخاص بهذا فى قاعدة البيانات (Time((0)
ايضا يمكنك التعديل على خصائص الاداة لتعرض الوقت فقط وليس كامل التاريخ
ثم بعد ذلك يمكنك البحث بسهولة
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم
مشكور اخي الكريم على ردك
الحقل الخاص في القاعدة (Time((0)
وهي لعرض الوقت فقط من الخصائص
ولكن لا تتم عملية البحث
تحياتي لك
الرد }}}
تم الشكر بواسطة:
#4
وهذا اخواني الكود المستخدم للبحث

Sub essaSearch()
Butserch.Enabled = False
Btnserchnew.Enabled = True
If Texserch.Text.Trim = "" Then
MsgBox("ادخل قيمة البحث المطلوبة", MsgBoxStyle.Information)
Exit Sub
End If

If Class1.sqlconn.State = ConnectionState.Open Then
Class1.sqlconn.Close()

End If
sqlstatament = ""
sql1 = ""
Dim firstcont As Boolean = True
If Texserch.Text <> "" Then
If firstcont = False Then
sqlstatament = sqlstatament & "id"
Else
firstcont = False
sqlstatament = sqlstatament & " id= '" & Texserch.Text & "'"
End If
End If
Class1.sqlconn.Open()
sql1 = " select * from cardelivery where" & sqlstatament
Dim cmd As New SqlCommand(sql1)
cmd.Connection = Class1.sqlconn
Dim dr As SqlDataReader = cmd.ExecuteReader
If dr.HasRows Then
dr.Read()
Textrecid.Text = dr.Item("id")
Texname.Text = dr.Item("name")
ComboBox1.SelectedItem = dr.Item("day")
textewm.MyText = dr.Item("medata")
Texmytime1.Text = dr.Item("hour")
Texnumper.Text = dr.Item("numper")
Comboctiy.SelectedValue = dr.Item("nname")
Texrent.Text = dr.Item("rent")
Texnotes.Text = dr.Item("notes")
Combodaybac.Text = dr("daybac").ToString
textbacdate1.MyText = dr("datwbac").ToString
DateTimePicker1.Text = dr("hour1").ToString
Textnumperbac.Text = dr("adadnum").ToString
Textdaymatsh.Text = dr("idcar1").ToString
Textpris.Text = dr("prise").ToString
Textnote1.Text = dr("note1").ToString
Class1.sqlconn.Close()
Else
MsgBox("السجل المطلوب غير موجود", MsgBoxStyle.Information)
End If
End Sub

تحياتي لكم
الرد }}}
تم الشكر بواسطة:
#5
للرفع
الرد }}}
تم الشكر بواسطة:
#6
للرفع
الرد }}}
تم الشكر بواسطة:
#7
SadSad
للرفع
الرد }}}
تم الشكر بواسطة:
#8
للرفع
الرد }}}
تم الشكر بواسطة:
#9
للرفع
الرد }}}
تم الشكر بواسطة:
#10
للرفع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 430 09-01-24, 08:40 PM
آخر رد: new_programer
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [كود] البحث Abdellatif 2 208 27-12-23, 03:15 PM
آخر رد: Abdellatif
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني

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


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