www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.'--- begin DAO ---Dim db As DAO.Database, rs As DAO.Recordset Set db=currentdb() Set rs = db.openrecordset( "select * from mytable", dbOpenDynaset)With rs If Not .EOF Then .MoveFirst Do Until .EOF Debug.Print !MyField .Movenext Loop End If .Close End With Set rs=nothing Set db=nothing '--- end DAO ---'--- begin ADO ---Dim cn As ADODB.Connection, rs As ADODB.Recordset Set cn = Application.CurrentProject.Connection Set rs = New ADODB.Recordset With rs rs.Open "MyTable", cn, adOpenDynamic, adLockOptimistic, adCmdText If Not .EOF Then .MoveFirst Do Until .EOF Debug.Print !MyField .MoveNext Loop End If .Close End With Set rs = Nothing Set db = Nothing '--- end ADO ---
