|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 dongjiekey 于 2010-5-29 14:46 编辑
6 ]4 V+ T( W) C' Z1 m' V7 i* I. t$ _/ t+ Q' d
FORM窗口建combo1和 combo2，如图，查询结果并用print输出
- Y$ s7 c! X+ Y, w M3 j建的表如图，文件名为xh.mdb,表名为hh,这个表的意思是如果DN=5,通过查表得出PN1=12，并用print "PN1=" & PN 输出当DN=12时，PN1=12。! \. Q9 r3 C7 _+ @
其中combo1.list内容是：5 8 10 (截图是50，不过没关系，我改为了现在的5 8 10)( V, V+ c0 K2 J- a: h( W+ v0 w
3 a9 d8 M; O z5 a4 R combo2.list内容是PN1 PN2$ {" O5 X' Z6 H( P7 p4 s4 j8 R
程序如下：" C' I# L$ H7 K. _5 O
Dim db As New ADODB.Connection
8 s9 I. U n+ T% GDim rs As New ADODB.Recordset
) i6 \* H+ x" ], }7 u9 ^. JPrivate Sub Form_Load()2 q9 Z% \, ?( O; w/ i
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\xh.mdb;jet oledb:database password=mem"
. }' R4 h! `- t5 e. Z- Xdb.Open
; z: a. V7 [9 s. N- H8 \ H, urs.Open "select * from hh", db, 1, 3, 1" g/ ]# G, e% O0 t" G$ u# I
End Sub Q% X4 t* Y) _! T
请高手帮我编一下Command1_Click，问题解决，我请版主从我的帐中-10三维币给你。 |
|
发表于 2010-5-26 20:40:45
楼主
发表于 2010-5-29 07:16:08
