VB涓繛鎺ユ暟鎹簱鐨勪唬鐮佸拰瑙ｉ噴 - 宸茶В鍐?- 鎼滄悳闂棶

鎴戠敤鐨勬暟鎹簱鏄痑ccess锛屽湪鍋氱櫥闄嗙晫闈㈢殑鏃跺€欐€庝箞鑳借繛鎺ユ暟鎹簱锛屾潵楠岃瘉鐢ㄦ埛鍚嶅拰瀵嗙爜鐨勫閿?

答案：

PrivateSubForm_Load()Adodc1.ConnectionString=cnn.ConnectionString DimrecDimiAsIntegerrs.Open"select*fromusertb",cnn,adOpenKeyset,adLockOptimistic--鏌ヨ鏁版嵁rec=rs.RecordCount--寰楀埌璁板綍鏁癛eDimAsc(rec-1)--ReDim锛氬湪杩囩▼绾т腑澹版槑鍔ㄦ€佹暟缁勫彉閲忓苟鍒嗛厤鎴栭噸鏂板垎閰嶅瓨鍌ㄧ┖闂淬€俽s.MoveFirst--瀹氫綅鍒扮涓€鏉ori=1Torec--寰幆Combo.AddItemrs.Fields("鍚嶇О")--娣诲姞鍚嶇О鍒颁笅鎷夋涓瑼sc(i-1)=Val(rs.Fields("瀵嗙爜"))--瀵规暟缁勮祴鍊紃s.MoveNext--绉诲姩鍒颁笅涓€鏉frs.EOFThenExitFor--鍒ゆ柇鏄惁鍒颁簡璁板綍鐨勫熬閮紝鏄氨閫€鍑哄惊鐜疦extrs.CloseEndSub

上一个：vb的恶搞程序（无实际害处）
下一个：现在学vb编程好吗 应该从哪方面学