แสดงข้อไม่ได้ทำไงครับ ช่วยที (evb)
Private Sub Form_Load() If connOpen = True Then List1.Clear Set rs = CreateObject("ADOCE.Recordset.3.0") On Error Resume Next rs.Open "select * from Student", conn Do While Not rs.EOF strDisp = rs.Fields("Id").Value <==ถามตรงนี้อ่ะครับ List1.AddItem strDisp rs.MoveNext Loop cnt = rs.RecordCount rs.Close Set rs = Nothing On Error GoTo 0 End If connClose
End Sub
ทำไมมันไม่แสดงข้อมูลอ่ะครับ ใครตอบได้ช่วยทีครับ พอผมรัน ในอีมูเลเตอร์ของ pocket pc 2002 แล้วมันขึ้นนาฬิกาทรายอ่ะครับ สักพักจะขึ้นข้อความ ว่า หน่วยความจำไม่พอ
|