منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - استفسار :- بخصوص البحث في قاعدة البيانات

السلام عليكم ورحمة الله

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

عندي قاعدة بيانات فيها
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

وشكرا لكم بارك الله فيكم

هذا تعديل للكود

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(rowCount11cmd2sxcsxz) Then
                   MsgBox("nothing")

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

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

               End If 

(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(rowCount11cmd2sxcsxz) Then MsgBox("nothing") ElseIf IsDBNull(rowCount11cmd2sxcsxz) Then MsgBox("age no") ElseIf Not IsDBNull(rowCount11cmd2sxcsxz) Then MsgBox("age = " & rowCount11cmd2sxcsxz) End If

بارك الله فيك

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

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

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

مثلا

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

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

وشكرا من جديد بارك الله فيك

غير age الموجود في نص الاستعلام الى اسم الحقل المطلوب

(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

شكرا على وقتك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dubai.eig

طالب برمجة

dubai.eig

طالب برمجة

dubai.eig