用VB连Access做的数据库，Action X部件不能创建对象

sally

<>请教各位</P>
7 {) w) Y3 T: p<>郁闷ing</P>
# `8 N7 f4 S3 E5 a! B8 z/ o" M/ ~[em06]

神之手k

..................................

$ k& ~  ^- y8 r! f* m8 ~
$ P# V/ k8 a4 ?5 k

/ v$ E1 h3 U; ?, [, N. \- ?% I

1 R/ s5 l$ u6 U8 @5 u$ r0 Z: n  `2 ^

' m( U/ L% ]8 A$ h



51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网

ilikenba

上面不是有了吗？凡是ActiveX控件的使用要在开始-〉运行中输入regsvr32.exe x:\控件名.ocx

sally

<>怎样手工注册</P><>能具体的说说吗？</P>

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件

[此贴子已经被作者于2004-6-3 14:31:15编辑过]

sally

<>VB做一个课程管理系统</P><>连Access的数据库</P><>运行时</P><>总是无法连接*.mdb文件</P><>弹出窗口<b>Action X部件不能创建对象</b></P><><b>但是在学校机房的机子上运行能连接的</b></P><><b>是不是我的电脑什么程序没安装啊？？很迷茫的</b></P><>rivate Sub CmdCancel_Click()
Unload Me
End Sub
2 e9 |. \2 p2 ?% C! |6 SPrivate Sub cmdOK_Click()
! g: U  V9 B7 G+ b& HIf Me.User = "111" And Me.Password = "111" Then
    Call Login
    Load FrmCourse
$ G; d2 b  O3 V) l( v/ A    FrmCourse.Show
7 q- n- v4 `% [, s: I; `/ f* ~- }    FrmCourse.Visible = True
1 [0 z( l" X/ `3 e' `" r    Unload Me
    'FlagOpen = True
' Y. V6 T  B. ~: y2 b- ^( P+ nElse
    MsgBox "用户名或密码输入不正确!"
  X1 [1 v9 ~4 y* ]: ~/ ^    'FlagOpen = False
& E# s: {8 a% ]7 [$ r9 e' y$ |7 h* e$ oEnd If
; R9 }3 z* L9 T. R# Z4 g6 lEnd Sub</P><>rivate Sub Form_Load()
! n2 A7 T5 {3 B* M& A" U7 a' M'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
2 ]8 k. p" {$ cDim strleft, strsingle, strencycoded As String
/ T1 ]3 s/ _& ADim intorigine, intencycoded As Integer
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
  b$ q' \" r% i8 l6 D' L) BOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
6 O3 g1 j; S) s' @" Q- G+ }# y9 |Line Input #1, Xorpwl$
# Z) c, ~7 I1 N3 L  JClose #1
  j" a5 ~5 F, @: g- kpwl = ""
For i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
    strsingle = Right(strleft, 1)
8 Y" S: _( a/ I& ]; H$ p9 F; U    intorigine = Asc(strsingle)
    intencycoded = intorigine Xor 7
( m2 P: _8 ?/ D; f    strencycoded = Chr(intencycoded)
( j3 \( J) ~$ k. M  x* |- c. L    pwl = pwl + strencycoded
8 |8 F3 D  d; j  F; t( |$ C! QNext
   
+ x0 Y% ~6 h! mEnd Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
% H* b1 a( T$ l+ n; c- }End Property</P><>ublic Property Let User(ByVal vNewValue As String)
Me.TextUser.Text = vNewValue
End Property</P><>ublic Property Get Password() As Variant
* M4 F7 t) o2 ]1 I- w  n. t9 @Password = Me.TextPassword.Text
& g* j- ^* A/ X1 t5 i& ^3 G! b/ TEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
2 S& O' w) O. u4 G  ]6 _Me.TextPassword.Text = vNewValue
4 m9 b6 T4 W' s3 _) z; {End Property</P><>ublic Sub Login()
* C% [# v4 y  d( ?4 V+ V0 b/ Q6 f8 j    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
) z& C2 z+ t! }! m! j</P>[em06][em06][em06][em06]

ilikenba

不太懂你的意思，说的具体一点！