ดึงข้อมูลลง Text
กระทู้เก่าบอร์ด อ.Yeadram

 1,430   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 .
มีวิธีเขียนโค๊ดอย่างไรครับ

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06073
ปกติแล้ว object recordset (RS) จะมีตัวบอกลำดับที่ของเรคคอร์ด โดยเริ่มจาก 1 นั้นคือ absoluteposition
แต่ 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... ได้เลยครับ
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)
ได้แล้วครับท่าน อ. คราวนี้ยังเหลือการที่จะอับเดตลงตาราง คงจะมารบกวนอ.ใหม่นะครับ แต่ตอนนี้ขอหยุดพักก่อน
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2457s