|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 dongjiekey 于 2010-5-29 14:46 编辑
/ i( b: [) D9 Q( A3 U) E( M' L8 Y2 _. }% T% P# F
FORM窗口建combo1和 combo2，如图，查询结果并用print输出# E5 ~1 n/ \6 a* i
建的表如图，文件名为xh.mdb,表名为hh,这个表的意思是如果DN=5,通过查表得出PN1=12，并用print "PN1=" & PN 输出当DN=12时，PN1=12。
]3 q. E& b0 J. {7 v: [( L其中combo1.list内容是：5 8 10 (截图是50，不过没关系，我改为了现在的5 8 10)
b' i4 A% ?# o) Y$ \4 _$ N2 L5 @ L& f3 B0 r ?2 x+ Q
combo2.list内容是PN1 PN2
4 l# n; l# ?* C' O0 d( r程序如下：
0 Z. W2 L. Z, z3 b1 X4 c; O9 aDim db As New ADODB.Connection. w9 e" x/ Y% I. |
Dim rs As New ADODB.Recordset7 c4 J) o% Q8 [( q2 I( ~4 i" w2 _( w
Private Sub Form_Load()
9 i3 ?4 m3 j9 L4 u' o$ Ydb.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\xh.mdb;jet oledb:database password=mem"
. C! T! z" r8 Ydb.Open8 N' W% [: O2 B, ?
rs.Open "select * from hh", db, 1, 3, 1
2 q! ~; M1 i/ o% J! s# }; `: OEnd Sub
3 Y. q9 S( V5 e% @( t; s请高手帮我编一下Command1_Click，问题解决，我请版主从我的帐中-10三维币给你。 |
|
发表于 2010-5-26 20:40:45
楼主
发表于 2010-5-29 07:16:08
