กระทู้เก่าบอร์ด อ.Yeadram
1,592 2
URL.หัวข้อ /
URL
ดึงข้อมูลลง Text
Sql = "select * from TbIDmeter where HouseNo like '" & Label5 & "'"
RS.Open Sql, Conn, adOpenDynamic, adLockOptimistic
If Not RS.EOF Then
Text2 = RS(0)
' Text3 =
End If
RS.CLose
---------------
ผมต้องการดึงข้อมูลลง Text โดยลัษณะข้อมูลเป็นดังนี้
เลขที่เครื่องวัด ประเภท NouseNo
33333333 001 2562
33333334 002 2562
44444444 001 2561
44444443 002 2561
ต้องการดึงข้อมูล ลง Text2 และ และ Text3
Text2 = RS(..) จะเท่ากับ 33333333
Text3 = Rs(..) จะเท่ากับ33333334 .
มีวิธีเขียนโค๊ดอย่างไรครับ
RS.Open Sql, Conn, adOpenDynamic, adLockOptimistic
If Not RS.EOF Then
Text2 = RS(0)
' Text3 =
End If
RS.CLose
---------------
ผมต้องการดึงข้อมูลลง Text โดยลัษณะข้อมูลเป็นดังนี้
เลขที่เครื่องวัด ประเภท NouseNo
33333333 001 2562
33333334 002 2562
44444444 001 2561
44444443 002 2561
ต้องการดึงข้อมูล ลง Text2 และ และ Text3
Text2 = RS(..) จะเท่ากับ 33333333
Text3 = Rs(..) จะเท่ากับ33333334 .
มีวิธีเขียนโค๊ดอย่างไรครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06090
Private Sub Form_Load()
Dim RTt As New ADODB.Recordset
Call ConnDB
With FrmMainHome
'Label4 = .MSFG.TextMatrix(KeyDeSe, 0)
'Label5 = .MSFG.TextMatrix(KeyDeSe, 1)
Sql = "select * from TbIDmeter where HouseNo like '" & Label5 & "'"
RTt.Open Sql, Conn, 1
MsgBox Sql
Do While Not RTt.EOF
On Error Resume Next ' สั่งข้ามข้อผิดพลาด เผื่อจำนวน textbox ไม่เท่ากับจำนวนเรคคอร์ด
Me.Text1(RTt.AbsolutePosition + 1) = RTt(0)
RTt.MoveNext
Loop
On Error GoTo 0 ' ปล่อยตัว error debug กลับคืน
RTt.Close
End With
End Sub
นี้คือโค๊ดเต็มๆ ของ ฟอร์มครับ (VB)
ได้แล้วครับท่าน อ. คราวนี้ยังเหลือการที่จะอับเดตลงตาราง คงจะมารบกวนอ.ใหม่นะครับ แต่ตอนนี้ขอหยุดพักก่อน
Dim RTt As New ADODB.Recordset
Call ConnDB
With FrmMainHome
'Label4 = .MSFG.TextMatrix(KeyDeSe, 0)
'Label5 = .MSFG.TextMatrix(KeyDeSe, 1)
Sql = "select * from TbIDmeter where HouseNo like '" & Label5 & "'"
RTt.Open Sql, Conn, 1
MsgBox Sql
Do While Not RTt.EOF
On Error Resume Next ' สั่งข้ามข้อผิดพลาด เผื่อจำนวน textbox ไม่เท่ากับจำนวนเรคคอร์ด
Me.Text1(RTt.AbsolutePosition + 1) = RTt(0)
RTt.MoveNext
Loop
On Error GoTo 0 ' ปล่อยตัว error debug กลับคืน
RTt.Close
End With
End Sub
นี้คือโค๊ดเต็มๆ ของ ฟอร์มครับ (VB)
ได้แล้วครับท่าน อ. คราวนี้ยังเหลือการที่จะอับเดตลงตาราง คงจะมารบกวนอ.ใหม่นะครับ แต่ตอนนี้ขอหยุดพักก่อน
Time: 0.0719s
แต่ textbox ของคุณตั้งชื่อเรียงกันไปโดยเริ่มจาก 2
ดังนั้นเราก็เอาความสัมพันธ์นี้มาดัดแปลงใช้ได้เลย
While not RS.EOF
on error resume next ' สั่งข้ามข้อผิดพลาด เผื่อจำนวน textbox ไม่เท่ากับจำนวนเรคคอร์ด
Me("text" & RS.absoluteposition+1) = RS(0)
RS.movenext
Loop
on error goto 0 ' ปล่อยตัว error debug กลับคืน
RS.CLose
เมื่อเราใช้ While not (ขณะทียังไม่....)
เราก็ไม่จำเป็นต้องใช้ IF not (ถ้าไม่...) อีก
สรุปคือยก While Not..... ไปวางทับ IF Not... ได้เลยครับ