رفتن به مطلب
  • 0

ویرایش اطلاعات در دیتابیس


نیما

سوال

سلام دوستای گل . آقا من آموزش دوستمون آرمین رو دیدم در مورد دیتابیس اما یه جا گیر کردمتو فیلم آرمین string رو آپدیت کرد من هرجوری میخوام int رو تغییر بدم نمیشه !

من یه متد ساختم که یه یوزرنیم و یه امتیاز دریافت میکنه به عنوان ورودی . بعد میخوام که قسمت

امتیاز هر یوزرنیم رو هر دفعه آپدیت یا همون ویرایش کنم اما نمیشه !!!!

امید وارم درست توضیح داده باشم . کد متد هارو میزارم شاید سوال کسی دیگه هم باشه

سه تا متد که اولی یوزرنیم و امتیاز اولیه میده به دیتابیس ، سومین متد اطلاعات میگیره از دیتابیس

دومین متد فقط اشکال دارم که واسه ویرایشه . لطفا کمک کنید . ممنون


[/size][size=3]
[/size]Sub Add_User(username As String)
Try
Dim cur As Cursor
Dim rslt As Boolean
cur = sql1.ExecQuery("SELECT * From NimaTB")
For i=0 To cur.RowCount - 1
cur.Position = i
If cur.GetString("Username").Contains(username) Then
rslt = True
End If
Next
If rslt = True Then
Return
End If
sql1.ExecNonQuery("insert into NimaTB (Username, Score) VALUES ('"&username&"', 0)")
Catch
ToastMessageShow(LastException.Message, True)
End Try
End Sub


Sub Set_Score(username As String, score As Int)
Try
Dim crr As Cursor
Dim scr As Int
Dim newscr As Int
crr = sql1.ExecQuery("SELECT * From NimaTB")
For i=0 To crr.RowCount - 1
crr.Position = i
If crr.GetString("Username").Contains(username) Then
scr = crr.GetInt("Score")
newscr = scr + score
sql1.ExecNonQuery("update NimaTB set Score = "&newscr&" where Username = '"&username&"'")
End If
Next
Catch
ToastMessageShow(LastException.Message, True)
End Try
End Sub


Sub Get_Score(username As String) As String
Try
Dim curr As Cursor
Dim rslt As String
curr = sql1.ExecQuery("SELECT * From NimaTB")
For i=0 To curr.RowCount - 1
curr.Position = i
If curr.GetString("Username").Contains(username) Then
rslt = curr.GetInt("Score")
End If
Next
Catch
ToastMessageShow(LastException.Message, True)
End Try
Return rslt
End Sub
[size=3]

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

نیما جان تاجایی که بدونم یعنی فک کنم

مشکل از این دو خط هست

sql1.ExecNonQuery("update NimaTB set Score = "&newscr&" where Username = '"&username&"'")

sql1.ExecNonQuery("insert into NimaTB (Username, Score) VALUES ('"&username&"', 0)")

والا اگه توجه کنی update و set رو شما اینجور نوشتی یعنی با حروف کوچیک

شما باید بیاید با بزرگ بنویسید ...

ویه خبر هم بدید من مطمن نیستم ولی میگم به احتمال کم این مشکل رو داشته باشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داش نیما ، تو فیلم آموزش هم همین جوریه اما کار میکنه ! بنظرم مشکل از کلمه where به بعد باشه !

نمیدونم چه جوره . باشه اونو که گفتی الان تست میکنم. دمت گرم داش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش دمت گرم حل شد . شک داشتم به این موضوع اما باعث شدی امتحانش کنم . درست شد .

این کد رو نوشتم حل شد . کسی مثل من بود اینه جوابش :


[/size]sql1.ExecNonQuery("UPDATE NimaTB SET Score = "&newscr&" WHERE Username = '"&username&"'")[size=3]
[/size]

موفق باشیـــــــــــــــــــم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...