|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 dongjiekey 于 2010-5-29 14:46 编辑 ! q6 j! i# O7 {+ k& c
; L4 ~& [3 b" B0 r2 v( z, ZFORM窗口建combo1和 combo2，如图，查询结果并用print输出
( }5 V2 t2 C4 G0 t- x& F7 C- i) T建的表如图，文件名为xh.mdb,表名为hh,这个表的意思是如果DN=5,通过查表得出PN1=12，并用print "PN1=" & PN 输出当DN=12时，PN1=12。
6 r3 |2 s! r$ A5 D其中combo1.list内容是：5 8 10 (截图是50，不过没关系，我改为了现在的5 8 10)
& @4 j" u- [& B) h
_! J c0 H( s8 O combo2.list内容是PN1 PN2
. m6 O" p$ B) x7 l7 }3 E; j( H程序如下：( _$ I% ]& ~8 m* m) K
Dim db As New ADODB.Connection/ z, J+ W0 q2 o. l, R
Dim rs As New ADODB.Recordset/ ]% v$ ]4 ]) n: Y7 {% `0 n: @ b' n
Private Sub Form_Load()
# K0 o4 A6 Y( q2 p' edb.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\xh.mdb;jet oledb:database password=mem"
$ Y6 \/ {' O, D4 k" n- H. I; V' jdb.Open9 l$ X" U- N8 c0 O0 @
rs.Open "select * from hh", db, 1, 3, 1
; R* }1 n4 g0 _End Sub
+ I& R# O& E7 ~8 {: m请高手帮我编一下Command1_Click，问题解决，我请版主从我的帐中-10三维币给你。 |
|
发表于 2010-5-26 20:40:45
楼主
发表于 2010-5-29 07:16:08
