[dubai.eig]

(10-10-17, 09:30 AM)a.ahmed كتب :

PHP كود :

Dim conXCX As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
Dim cmdXX As New SQLiteCommand("SELECT COUNT(*) FROM [DBqsos] WHERE [CALLop]=@param1 AND [Band]=@param2", conXCX)
cmdXX.Parameters.AddWithValue("@param1", Trim(calls.Text))
cmdXX.Parameters.AddWithValue("@param2", bands.Text)
If conXCX.State <> ConnectionState.Open Then conXCX.Open()
If cmdXX.ExecuteScalar > 0 Then
    Label14.Text = "DOUBLE"
    Label14.BackColor = Color.Red
Else
    Label14.Text = ""
    Label14.BackColor = Nothing
End If 


شكرا  شكرا استاذ احمد بارك الله فيك احسنت

طمعان بكرمك بارك الله فيك

سؤال اخير 

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

مثلا

كود :

Dim cmdlid As New SQLiteCommand("", conlid)
   
   cmdlid =("UPDATE DBSetting SET score=@score WHERE contestnyear=@contestnyear ", conlid)
       conlid.Open()
       cmdlid.Parameters.AddWithValue("@score", xtotelall)
       cmdlid.Parameters.AddWithValue("@contestnyear", contestnyearx)
     
 Dim reader = cmdlid.ExecuteNonQuery()
     cmdlid =("UPDATE DBSetting SET score=@score WHERE contestnyear=@contestnyear ", conlid)

       cmdlid2.Parameters.AddWithValue("@score", xtotelall2)
       cmdlid2.Parameters.AddWithValue("@contestnyear", contestnyearx)
       cmdlid2.ExecuteNonQuery()

     
       conlid.Close()

حاولت بالشكل التالي بس طلع لي غلط 

محتاج اضيف في خانة score عدد وفي المرهع الثانيه عدد اخر تحديث مرتين
 cmdlid.Parameters.AddWithValue("@score", xtotelall)

   cmdlid2.Parameters.AddWithValue("@score", xtotelall2)

ما اعرف هل يجوز او لا التحديث بهذه الطريقه

وشكرا