|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 dongjiekey 于 2010-5-29 14:46 编辑 j6 v& w8 a& l, g
/ \+ }( @( o& v# W& yFORM窗口建combo1和 combo2，如图，查询结果并用print输出
6 J9 h; z, P- k/ _( E4 F+ G- `4 R建的表如图，文件名为xh.mdb,表名为hh,这个表的意思是如果DN=5,通过查表得出PN1=12，并用print "PN1=" & PN 输出当DN=12时，PN1=12。
0 J) {& u% l1 |7 L其中combo1.list内容是：5 8 10 (截图是50，不过没关系，我改为了现在的5 8 10)
_ U9 b1 j- d- d7 R3 U
l1 Q3 }/ T& v& ^/ x combo2.list内容是PN1 PN2/ }( {+ n2 A5 D9 O# m
程序如下：
2 w# J6 K y( ^+ }$ F* X% {9 v1 zDim db As New ADODB.Connection
0 v2 u9 e% P7 e S# n9 \3 QDim rs As New ADODB.Recordset* V7 k# B+ x5 J0 d" s B& D
Private Sub Form_Load()# q7 ^; s8 n9 T
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\xh.mdb;jet oledb:database password=mem"% L3 C/ Z, w. H
db.Open3 l3 m8 E# c" h* _7 s9 q
rs.Open "select * from hh", db, 1, 3, 1
- x6 U, B X# d. B& b- Z( }End Sub
e3 H$ J0 Z: H" \0 O( d: x" h请高手帮我编一下Command1_Click，问题解决，我请版主从我的帐中-10三维币给你。 |
|
发表于 2010-5-26 20:40:45
楼主
发表于 2010-5-29 07:16:08
