数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>
- ~4 i" Z2 B! m( x5 {2 `2 c# @<>郁闷ing</P>4 K; {; m2 u; k6 Y+ G
[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()* }3 B9 G$ ^1 ]
Unload Me
. E  w9 @& @0 G4 S1 |$ ~3 @2 S* {8 vEnd Sub0 U9 f- B' _* n; b
Private Sub cmdOK_Click()
1 D% U3 u8 v7 jIf Me.User = "111" And Me.Password = "111" Then
( r* K/ L: C5 g% f    Call Login2 _" R* ?# n; ]; x
    Load FrmCourse
# u$ J8 L: u7 ]- q    FrmCourse.Show
6 Q+ H% z6 c% W) l' f5 C    FrmCourse.Visible = True8 m& P3 c+ ]1 C
    Unload Me' y% t- W& E% ^( z% Z
    'FlagOpen = True
; ^' M# D# j0 O# jElse
2 i- w/ ~* K+ W$ ]- W1 a* B    MsgBox "用户名或密码输入不正确!"
) b' P8 L% c/ g9 x2 ?2 w' m8 @    'FlagOpen = False3 e" `; E0 V' w% k
End If
% R7 y! R9 r  L1 gEnd Sub</P><>rivate Sub Form_Load()
/ A: s6 H5 Y* @0 s$ \'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
' C* W, j+ D4 ]* Z- b2 IDim strleft, strsingle, strencycoded As String9 t$ q5 g1 |' R  S) w0 {6 D/ L: g
Dim intorigine, intencycoded As Integer
& Q  C: C6 M0 c9 a' x'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE4 z& B: t" N9 D" p2 g
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1: R* C: H. d/ |9 F( R
Line Input #1, Xorpwl$: F4 X( a: S2 {6 ^" a$ B
Close #11 U- f1 O8 |6 A. K1 b0 r1 M! t
pwl = ""
: u' b+ O9 H6 _. `For i = 1 To Len(Xorpwl)0 `$ }' c# |2 U9 l
    strleft = Left(Xorpwl, i)% J' L6 t1 s/ f/ `9 l4 z, I0 s& U
    strsingle = Right(strleft, 1)
+ O7 a, b: K3 a$ `, }9 b    intorigine = Asc(strsingle)
0 f0 R0 W3 t' O8 F    intencycoded = intorigine Xor 7; Q: e/ L( e/ }, T! E
    strencycoded = Chr(intencycoded)8 U6 `$ A: K  `% V( ^3 T0 d& |% T
    pwl = pwl + strencycoded$ R, X9 z/ L7 |1 f& x
Next
, {0 Y+ S6 g8 |" p5 A7 m    2 r2 w5 E* M9 |, a9 y0 w
End Sub</P><>ublic Property Get User() As String2 O: a) l6 s' w, R/ ~
User = Me.TextUser.Text4 I. ^5 L$ v. t& c# p7 K1 r
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
  L# x, I" O6 l8 w' i3 C! Y2 y- EMe.TextUser.Text = vNewValue' o+ ?, ~. \1 A3 M2 e
End Property</P><>ublic Property Get Password() As Variant
! O' c3 V/ d/ TPassword = Me.TextPassword.Text+ |3 u! Y/ A) _1 l# A
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)3 W% u6 F9 Q/ a) I+ k
Me.TextPassword.Text = vNewValue
8 {% A6 o& O) ]& y5 Z: p1 _  P3 ^End Property</P><>ublic Sub Login()
% V$ }. }/ V" ^: b% o6 [    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
/ P- \2 A! t+ ]    Me.Hide, O1 i6 \- ~5 P- H7 w
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？& c% k! A! N; G$ L! }0 e5 d) F2 G
</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
& ^' z7 p, k3 T5 a( C3 e$ J
[此贴子已经被作者于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
..................................
' w1 T- D4 H" N# x6 ?* [+ [4 j8 A; o9 S4 F& Z1 r6 q* i' |

! c' y4 h9 k5 X* D, h- i" v
) x4 k/ Q- {! X  J- Z
+ ]+ O- J" K% K2 Y7 z7 z/ G# ^7 m( e( ^" d9 k- V
  X# O: X/ h+ k: R

4 ]0 v8 ?. k+ n- [! G& T" N! c8 K) r
  }9 o* [% g; Z' L3 S# r. Z& o
9 m1 q( ?; E" n% w7 d* j. u5 m9 i

! Z1 \) S2 L4 B8 u: S6 a4 _9 r$ C' F$ w1 g/ Z  t( i  \
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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