ضرب فیلدهای دیتا بیس

[parham01 82]

سلام خدمت اساتید محترم

یه فیلد دارم به اسم total pric

میخوام اعداد موجود در password  و price  در هم ضرب بشن ریخته شن تو total price

از کد زیر استفاده کردم

SQL1.ExecNonQuery("UPDATE tblUsers set totalprice = password*price' WHERE ID = " & ID)

خب تابلوئه اشتباهه

ولی خواستم بگم منم

 

[parham01 82]

 

الان فک کنم درست باشه

برای من ارور نگرفت

Dim int1,int2,result As Int
cur = sql1.ExecQuery("SELECT * FROM tblUsers WHERE ID = "&ID)
cur.position = 0
int1 = cur.getint("price")
int2 = cur.getint("password")
result = int1 * int2
sql1.ExecNonQuery("UPDATE tblUsers SET totalprice = '"&result&"' WHERE ID = "&ID)

  کامپایلش حل شد من یه تست کنم الان میام

[shahab.es 5,429]

سلام هموطن

ببین شما یه ای دی داری داخل متغیر ID

این از این (که فک کنم شد همون Value شما)

اول میایم مقدار این 2 تا فیلدو میگیریم و میریزیم تو دو تا متغیر

dim int1,int2,result as int
cur = sql1.exequery("SELECT * FROM tblUsers WHERE ID = "&ID)
cur.position = 0
int1 = cur.getint("price")
int2 = cur.getint("password")
result = int1 * int2
sql1.exenonquery("UPDATE tblUsers SET totalprice = '"&result&'" WHERE ID = "&ID)

[parham01 82]

سلام هموطن

ببین شما یه ای دی داری داخل متغیر ID

این از این (که فک کنم شد همون Value شما)

اول میایم مقدار این 2 تا فیلدو میگیریم و میریزیم تو دو تا متغیر

dim int1,int2,result as int
cur = sql1.exequery("SELECT * FROM tblUsers WHERE ID = "&ID)
cur.position = 0
int1 = cur.getint("price")
int2 = cur.getint("password")
result = int1 * int2
sql1.exenonquery("UPDATE tblUsers SET totalprice = '"&result&'" WHERE ID = "&ID)

شهاب جان ارور زیر داد چرا ؟

http://s7.picofile.com/file/8236050684/Untitled.png

[shahab.es 5,429]

دوستم دقیقا کد های من رو قرار بدید

ببین شما اومدی زدی exenonqyuery و بعد میخوای که سلکت کنه

برای سلکت از exequery باید استفاده کنید..

خط 204 رو اصلاح کنید...

این از این

اگر اجرا نشد، کدهاتو قرار بده...

[parham01 82]

دوستم دقیقا کد های من رو قرار بدید

ببین شما اومدی زدی exenonqyuery و بعد میخوای که سلکت کنه

برای سلکت از exequery باید استفاده کنید..

خط 204 رو اصلاح کنید...

این از این

اگر اجرا نشد، کدهاتو قرار بده...

 

بازم میاد این ارور میده

Error description: Unknown member: exequery

Occurred on line: 204

cursor1 = sql1.exequery("SELECT * FROM tblUsers WHERE ID = "&ID)

Word: exequery

[shahab.es 5,429]

الان فک کنم درست باشه

برای من ارور نگرفت

Dim int1,int2,result As Int
cur = sql1.ExecQuery("SELECT * FROM tblUsers WHERE ID = "&ID)
cur.position = 0
int1 = cur.getint("price")
int2 = cur.getint("password")
result = int1 * int2
sql1.ExecNonQuery("UPDATE tblUsers SET totalprice = '"&result&"' WHERE ID = "&ID)

[parham01 82]

Sub Button1_Click

Dim int1,int2,result As Int

cursor1 = SQL1.Exequery("SELECT * FROM tblUsers WHERE ID = "&ID)

cursor1.position = 0

int1 = cursor1.getint("price")

int2 = cursor1.getint("Password")

result = int1 * int2

SQL1.ExecNonQuery("UPDATE tblUsers set totalprice ='"& result &"' WHERE ID = " & ID)

Label1.Text = EditText1.text=cursor1.getString("totalprice")

End Sub