ขออภัย มือใหม่ หัดเล่น MySQL+VB6

[Ultrachultz]

ปัญหาคือ ผมไม่สามารถเรียกข้อมูลออกมาได้ แต่สร้าง Connection ได้

ผ่านด้วยดี ทุกทีที่ใช้งานจะใช้งานผ่าน Recordset ทั้งหมด แต่เนื่องจากเหตุใด

ทำไมถึงไม่สามารถรันผ่าน Recordset ได้เหมือนเดิม เช่น

dim SQL as string
SQL="SELECT * FROM PRODUCTS"
R1.OPEN SQL,CN,ADOPENKEYSET,ADLOCKOPTIMISSTIC
FOR I=1 TO R1.RECORDCOUNT
LIST1.ADDITEM R1("PRODUCTID")
R1.MOVENEXT
NEXT

ช่วยชี้แหนะด้วยคับ


ขอบคุณคับ

[Dr.Know-EveryThing]

****ลองดูอันนี้นะเพื่อช่วยได้
DIM SQL AS STRING

SQL="SELECT * FROM PRODUCTS"
IF R1.STATE=1 THEN R1.CLOSE
R1.OPEN SQL,CN,3,3
N=R1.RECORDCOUNT & ""

IF N>0 THEN
R1.MOVEFIRST
LIST1.CLEAR
WHILE NOT R1.EOF=TRUE
LIST1.ADDITEM R1!PRODUCTID & ""
R1.MOVENEXT
WEND
END IF