سلام دوستای گل . آقا من آموزش دوستمون آرمین رو دیدم در مورد دیتابیس اما یه جا گیر کردمتو فیلم آرمین 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]
سوال
نیما 30
سلام دوستای گل . آقا من آموزش دوستمون آرمین رو دیدم در مورد دیتابیس اما یه جا گیر کردمتو فیلم آرمین 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 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.