Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > คำนวณแล้วให้ไป updateข้อมูล ลงฐานข้อมูลเลยค่ะ vb2005

คำนวณแล้วให้ไป updateข้อมูล ลงฐานข้อมูลเลยค่ะ vb2005

เริ่มหัวข้อใหม่

pum

โพสกระทู้ ( 16 )
บทความ ( 0 )

Dim i As Integer
Dim a, b As Date
Dim ans As Double
Dim day As Integer
b = DateTimePicker1.Value
a = DateTimePicker2.Value
'คำนวณหาจำนวนวัน
day = DateDiff(DateInterval.Day, CDate(b), CDate(a))
day = day + 1

Dim SrtQuery As String
SrtQuery = "SELECT * FROM Depreciation "
Dim ws As New CheckSv
Ds = ws.ReadDb(SrtQuery, "ShowID")

For i = 0 To Ds.Tables("ShowID").Rows.Count - 1

Dim cost As Double = Ds.Tables("ShowID").Rows(i)("cost_price")
Dim scrap As Double = Ds.Tables("ShowID").Rows(i)("scrap_value")
Dim rate As Double = Ds.Tables("ShowID").Rows(i)("rate")
Dim depreciation As Double = Ds.Tables("ShowID").Rows(i)("depreciation")
Dim accumulate As Double = Ds.Tables("ShowID").Rows(i)("accumulate_depreciation")

ans = (((cost - scrap) * (rate / 100)) / 365) * day
TextBox2.Text = FormatNumber(ans, 2)
TextBox3.Text = FormatNumber(accumulate + ans, 2)

MsgBox("คำนวณค่าเสื่อมเรียบร้อย", MsgBoxStyle.Exclamation, "Complete")

Next

คือว่าอยากให้เปลี่ยนจาก TextBox2.Text , TextBox3.Text ให้ไป update ลงคอลัมน์ ทั้ง2 คอลัมน์ค่ะ
จะต้องแก้ code ยังไงค่ะ สมมุติว่ามี 10 แถวก็ให้คำนวณแล้วนำไปใส่ในคอลัมน์ทั้ง2คอลัมน์ ทั้ง10แถวค่ะ
ทำโปรเคอยู่ค่ะ vb,sql 2005

Tag : .NET, Ms SQL Server 2005, VS 2005 (.NET 2.x)

Date : 2010-09-01 15:22:34

By : pumka

View : 1275

Reply : 3

No. 1

tee

โพสกระทู้ ( 249 )
บทความ ( 0 )

ลองตามนี้ดูครับ

dim strUpdate as string 'เพิ่มเข้ามา
dim intCol_A,intCol_B as integer

Dim SrtQuery As String
SrtQuery = "SELECT * FROM Depreciation "
Dim ws As New CheckSv
Ds = ws.ReadDb(SrtQuery, "ShowID")

For i = 0 To Ds.Tables("ShowID").Rows.Count - 1

Dim cost As Double = Ds.Tables("ShowID").Rows(i)("cost_price")
Dim scrap As Double = Ds.Tables("ShowID").Rows(i)("scrap_value")
Dim rate As Double = Ds.Tables("ShowID").Rows(i)("rate")
Dim depreciation As Double = Ds.Tables("ShowID").Rows(i)("depreciation")
Dim accumulate As Double = Ds.Tables("ShowID").Rows(i)("accumulate_depreciation")

ans = (((cost - scrap) * (rate / 100)) / 365) * day
intCol_A = FormatNumber(ans, 2)
intCol_B = FormatNumber(accumulate + ans, 2)

'ไม่รู้ว่า คอลัมทั้ง 2 ชื่อว่ารัย กำหนดเป็น col_a และ col_b แล้วกัน

strUpdate = "update Depreciation set col_a = '" & intCol_A & "',"
strUpdate +="col_b ='" & intCol_B & "'"
strUpdate +=" where id='" & ds.tables("showID").rows(i)("ID").tostring() & "'"

with com
.commandtype = commandtype.text
.commandtext = strUpdate
.connection = conn
.executenonquery()
end with

Next

ไม่แน่ใจว่าถูกหรือเปล่า แต่น่าจะประมาณนี้นะ ไม่ได้เขียนนานแล้ว ผิดตรงไหนก็ ขอ อภัยด้วย

ประวัติการแก้ไข
2010-09-01 15:46:17
2010-09-01 15:47:11

Date : 2010-09-01 15:45:01

By : tee

No. 2

pum

โพสกระทู้ ( 16 )
บทความ ( 0 )

ขอบคุณคุณ tee มากๆนะค่ะ จะลองทำดูค่ะ

Date : 2010-09-02 00:41:48

By : pumka

No. 3

pum

โพสกระทู้ ( 16 )
บทความ ( 0 )

ตอนนี้ได้งี้ค่ะ
แต่มัน error ว่า Conversion from string " set depreciation ='" to type 'Double' is not valid.

Dim i As Integer
Dim a, b As Date
Dim ans As Double
Dim day As Integer
b = DateTimePicker1.Value
a = DateTimePicker2.Value
'คำนวณหาจำนวนวัน
day = DateDiff(DateInterval.Day, CDate(b), CDate(a))
day = day + 1

Dim StrAdd As String

Dim depre, acc As Double
Dim SrtQuery As String
SrtQuery = "SELECT * FROM Depreciation "
Dim ws As New CheckSv
Ds = ws.ReadDb(SrtQuery, "ShowID")

For i = 0 To Ds.Tables("ShowID").Rows.Count - 1

Dim cost As Double = Ds.Tables("ShowID").Rows(i)("cost_price")
Dim scrap As Double = Ds.Tables("ShowID").Rows(i)("scrap_value")
Dim rate As Double = Ds.Tables("ShowID").Rows(i)("rate")
Dim depreciation As Double = Ds.Tables("ShowID").Rows(i)("depreciation")
Dim accumulate As Double = Ds.Tables("ShowID").Rows(i)("accumulate_depreciation")

ans = (((cost - scrap) * (rate / 100)) / 365) * day
depre = FormatNumber(ans, 2)
acc = FormatNumber(accumulate + ans, 2)

StrAdd = "update Depreciation"
StrAdd &= " set depreciation ='" + depre + "'," 'error
StrAdd &= " accumulate_depreciation ='" + acc + "'"
StrAdd &= " where code ='" + Ds.Tables("showID").Rows(i)("code").ToString() + "'"

Next

MsgBox("คำนวณค่าเสื่อมเรียบร้อย", MsgBoxStyle.Exclamation, "Complete")

เหมือนว่าเป็น double แล้วบันทึกไม่ได้อ่ะค่ะ ต้องแก้ยังไงดีค่ะ

Date : 2010-09-02 22:33:31

By : pumka

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : คำนวณแล้วให้ไป updateข้อมูล ลงฐานข้อมูลเลยค่ะ vb2005

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก