数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>6 H8 X3 N# ~, Q+ y- P3 I' K
<>郁闷ing</P>& b/ ^% l. p7 A& }. R) J4 P) ?
[em06]
作者: ilikenba    时间: 2004-6-2 15:24
不太懂你的意思，说的具体一点！
作者: sally    时间: 2004-6-2 17:45
<>VB做一个课程管理系统</P><>连Access的数据库</P><>运行时</P><>总是无法连接*.mdb文件</P><>弹出窗口<b>Action X部件不能创建对象</b></P><><b>但是在学校机房的机子上运行能连接的</b></P><><b>是不是我的电脑什么程序没安装啊？？很迷茫的</b></P><>rivate Sub CmdCancel_Click()
- j# q2 Q' b: z; x1 @9 F2 ?Unload Me
% H) n# u' w$ R' |0 y7 cEnd Sub9 u- G7 X- @  H" c& n) |* ]
Private Sub cmdOK_Click()% u! Y0 J5 L4 X9 t0 Z# k3 y
If Me.User = "111" And Me.Password = "111" Then3 [& t; E; C6 B
    Call Login
$ [" }7 w+ U- W7 v0 Q% U  H    Load FrmCourse& x- H# e9 @8 [( T" d. O6 d! i1 e
    FrmCourse.Show
; k* ?8 N5 Q. n: _8 A/ B    FrmCourse.Visible = True
+ V! F$ i  Z& k% z% O    Unload Me
  U8 b* y6 ^  |* `" w9 ~  Z* g    'FlagOpen = True
; y; ^7 \5 V1 nElse
8 _2 A- N' T3 D6 Z$ W  `    MsgBox "用户名或密码输入不正确!"
: P# i' R. S, ?. |% `    'FlagOpen = False3 Q, r% Q) S, N* F
End If3 a3 C: u+ l1 `% Y/ G% G: Z  E
End Sub</P><>rivate Sub Form_Load()) L, n1 Q) c& `7 n
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"! }# a: X5 s" B/ Q5 V% @
Dim strleft, strsingle, strencycoded As String3 _( A* u/ O, N# v5 l) t" K
Dim intorigine, intencycoded As Integer0 @& }. Y! V/ I+ \. O3 e; S
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE, Q  i" w/ b7 O! p9 d' v* S
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #11 e) e6 ~: a/ r
Line Input #1, Xorpwl$
3 ^" f- |6 \1 CClose #1
' Z! a9 e' ]/ E# `* p# j, Kpwl = ""4 ]+ x8 p0 D# b# |2 ^
For i = 1 To Len(Xorpwl)+ D& C3 c, e+ \9 a( k; b3 [" o
    strleft = Left(Xorpwl, i)  n' h: Z! A" C4 N; Z9 @
    strsingle = Right(strleft, 1)
' s7 @% o, @' `+ u* f4 B$ ?    intorigine = Asc(strsingle); ]' c* n) r3 C" h- n# h- X. k6 V
    intencycoded = intorigine Xor 7% H: ^( n" G9 ^( J' d1 J
    strencycoded = Chr(intencycoded)
2 {5 ]0 S! \, d2 e. i    pwl = pwl + strencycoded% m: n" `" ~) T
Next
# J( r3 o. i! r4 O    + u8 i) t: M' S  d9 c
End Sub</P><>ublic Property Get User() As String- E, g; W, D% p0 b& F% ]
User = Me.TextUser.Text. H& e; A/ X- ]/ O9 H$ ?- k0 r1 u6 P
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
* p  r' l! K; J' }9 NMe.TextUser.Text = vNewValue! V5 `' O" K* |8 n: P8 Q7 k
End Property</P><>ublic Property Get Password() As Variant4 u7 G+ t/ @5 C# Z  Z
Password = Me.TextPassword.Text
, P* _& K: k5 [' SEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
0 ^3 l5 N/ m1 [/ cMe.TextPassword.Text = vNewValue- w9 K! l5 Z9 `1 G/ p6 I
End Property</P><>ublic Sub Login(). d+ }% m) b% k; s+ `. _( f  V4 b) ~2 n
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
$ J/ m$ I2 N7 F' h    Me.Hide
" @$ h+ x* `0 w  KEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？; b+ `, v. R: Z, p. ]( u7 d" p  H
</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
0 t8 J) |  `' c
[此贴子已经被作者于2004-6-3 14:31:15编辑过]
作者: sally    时间: 2004-6-4 13:12
<>怎样手工注册</P><>能具体的说说吗？</P>
作者: ilikenba    时间: 2004-6-4 21:48
上面不是有了吗？凡是ActiveX控件的使用要在开始-〉运行中输入regsvr32.exe x:\控件名.ocx
作者: 神之手k    时间: 2011-10-13 12:44
..................................9 x' J5 ]. b1 z) ~
2 Q7 q  i  a0 |; g# }7 Y2 D
: v5 @" I8 O9 x8 B
4 }. z8 E- t1 \% |

1 S  i5 Y  \9 P( h) M
& Y/ |  D2 k, m( U) O' j
$ |; F# ~: H, O. Y1 }) o% a! j6 n' n" l* L. d3 E* [6 Y8 l5 |+ [7 o
4 H3 i8 L9 q* C+ j# [1 \0 Q
5 c7 D/ l7 K  K# H
. k; n! r& L& b' r) r) K2 L9 P1 ~0 r

1 W/ t+ v9 R% u+ @  o) w3 Y9 J& d& Q
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5