[طالب برمجة]

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

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