[dubai.eig]

(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

شكرا على وقتك