تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- بخصوص البحث في قاعدة البيانات
#1
السلام عليكم ورحمة الله

عندي فكرة احترة في كيف اكتبه الكود الخاص بها


عندي قاعدة بيانات فيها
id
name
age

ومثلا 


id ---  1
name --- ahmed
age--- 30



id ---  1
name --- ali
age--- 




اريد كود يبحث في القاعدة عن  الاسم

واذا وجد الاسم  موجود    --   يشوف تيبل ال age  مكتوب عمر الشخص او لا

اذا موجود عمر الشخص يحطه واذا موب موجود العمر يطلع لي مسج

مثال 

كود :
    Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
       conn1.Open()

   Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT * FROM DB{0} WHERE name= @name", strc), conn1)
               cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
               Dim rowCount11cmd2sxcsxz As Integer = Convert.ToInt32(cmd11cmd2sxcsxz.ExecuteScalar())
               If rowCount11cmd2sxcsxz <> 0 Then
                   MsgBox("age ok")
               Else

     MsgBox("age no")
               End If


وشكرا لكم بارك الله فيكم
الرد
تم الشكر بواسطة:
#2
هذا تعديل للكود
PHP كود :
   Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db"Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
 
      conn1.Open()

 
  Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name"strc), conn1)
 
              cmd11cmd2sxcsxz.Parameters.AddWithValue("name"name .Text)
 
              Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
 
              If IsNothing(rowCount11cmd2sxcsxzThen
                   MsgBox
("nothing")

 
              ElseIf IsDBNull(rowCount11cmd2sxcsxzThen
                     MsgBox
("age no")

 
              ElseIf Not IsDBNull(rowCount11cmd2sxcsxzThen
                     MsgBox
("age = " rowCount11cmd2sxcsxz)

 
              End If 
الرد
تم الشكر بواسطة: sendbad100 , dubai.eig
#3
(23-12-17, 02:21 AM)طالب برمجة كتب : هذا تعديل للكود
PHP كود :
   Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db"Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
 
      conn1.Open()

 
  Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name"strc), conn1)
 
              cmd11cmd2sxcsxz.Parameters.AddWithValue("name"name .Text)
 
              Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
 
              If IsNothing(rowCount11cmd2sxcsxzThen
                   MsgBox
("nothing")

 
              ElseIf IsDBNull(rowCount11cmd2sxcsxzThen
                     MsgBox
("age no")

 
              ElseIf Not IsDBNull(rowCount11cmd2sxcsxzThen
                     MsgBox
("age = " rowCount11cmd2sxcsxz)

 
              End If 


بارك الله فيك

ضبط الامر الحمدالله

واسف على التاخير

بس سؤال كيف اذا بغيت اتاكد من اشياء اخرى غير العمر

مثلا


id ---  1
name --- ali
age--- 
Birth
Living


اريد اتاكد من 
age--- 
Birth
Living

وشكرا من جديد بارك الله فيك
الرد
تم الشكر بواسطة:
#4
غير age الموجود في نص الاستعلام الى اسم الحقل المطلوب
الرد
تم الشكر بواسطة: dubai.eig
#5
(26-12-17, 09:09 PM)طالب برمجة كتب : غير age الموجود في نص الاستعلام الى اسم الحقل المطلوب

بارك الله فيك

قصدي هل يمكن يكون كذا

كود :
SELECT age ,Birth , Living FROM DB{0} WHERE name= @name"

او اعمل استعلام جديد لكل واحد 



كود :
  Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
      conn1.Open()

  Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT age FROM DB{0} WHERE name= @name", strc), conn1)
              cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
              Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
              If IsNothing(rowCount11cmd2sxcsxz) Then
                  MsgBox("nothing")

              ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("age no")

              ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("age = " & rowCount11cmd2sxcsxz)

              End If




  Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
      conn1.Open()

  Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT Birth FROM DB{0} WHERE name= @name", strc), conn1)
              cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
              Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
              If IsNothing(rowCount11cmd2sxcsxz) Then
                  MsgBox("nothing")

              ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("Birth no")

              ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("Birth = " & rowCount11cmd2sxcsxz)

              End If




  Dim conn1 As New SQLiteConnection(String.Format("Data Source= {0}\BK\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
      conn1.Open()

  Dim cmd11cmd2sxcsxz As New SQLiteCommand(String.Format("SELECT Living FROM DB{0} WHERE name= @name", strc), conn1)
              cmd11cmd2sxcsxz.Parameters.AddWithValue("name", name .Text)
              Dim rowCount11cmd2sxcsxz =(cmd11cmd2sxcsxz.ExecuteScalar())
              If IsNothing(rowCount11cmd2sxcsxz) Then
                  MsgBox("nothing")

              ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("Living no")

              ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then
                    MsgBox("Living = " & rowCount11cmd2sxcsxz)

              End If



شكرا على وقتك
الرد
تم الشكر بواسطة:



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


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