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

sally

<>请教各位</P>
<>郁闷ing</P>
[em06]

ilikenba

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

sally

<>VB做一个课程管理系统</P><>连Access的数据库</P><>运行时</P><>总是无法连接*.mdb文件</P><>弹出窗口<b>Action X部件不能创建对象</b></P><><b>但是在学校机房的机子上运行能连接的</b></P><><b>是不是我的电脑什么程序没安装啊？？很迷茫的</b></P><>rivate Sub CmdCancel_Click()
3 ~1 i; J$ c( l2 }Unload Me
End Sub
Private Sub cmdOK_Click()
# E6 s" Z" A2 g" r3 \' |, f# N/ ^If Me.User = "111" And Me.Password = "111" Then
! L" r1 \. r3 @    Call Login
    Load FrmCourse
, {  f4 f2 h: d$ [+ r! d0 `    FrmCourse.Show
! E6 r7 u7 \9 D    FrmCourse.Visible = True
    Unload Me
- y/ i' B; `$ A    'FlagOpen = True
Else
    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
* C7 p7 i+ _; R' A, b; q( nEnd If
End Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
5 ^6 \& }* B4 D$ C3 f6 F# F3 pDim strleft, strsingle, strencycoded As String
" Q1 k4 W. X% q+ w- v3 s4 Z+ _Dim intorigine, intencycoded As Integer
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
; k2 r9 R$ }: ?8 R5 R% YOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
. g; {( v: @% p0 w, ALine Input #1, Xorpwl$
) c( V2 ^' ~% {6 nClose #1
pwl = ""
For i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
8 N3 D8 r& r! e0 T8 l- ^8 g    strsingle = Right(strleft, 1)
    intorigine = Asc(strsingle)
" B; E% G! ~' K$ s+ B    intencycoded = intorigine Xor 7
  k7 q( F7 V& P+ t- ~    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
4 m0 m* c1 V3 \/ y4 g4 @Next
8 S9 {+ m* c3 J+ x   
  q2 S3 U& G) ]8 iEnd Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
Me.TextUser.Text = vNewValue
End Property</P><>ublic Property Get Password() As Variant
% y2 e2 e, K: L6 c  `' oPassword = Me.TextPassword.Text
2 R  a# c  \% T) I: }  yEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
( b2 E) n* a9 B1 u- jMe.TextPassword.Text = vNewValue
- l5 C0 U  O; y7 N/ a! qEnd Property</P><>ublic Sub Login()
6 f: X/ V' |3 E/ b    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
& K5 v. B4 D# o4 f2 v5 q1 H- l% r    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
: a& V3 Y* A& S: ?6 k3 |  p+ o</P>[em06][em06][em06][em06]

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
& d. |( ]( ]+ s3 A* k

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

sally

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

ilikenba

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

神之手k

..................................
6 p! W3 \  M4 K) l- i+ i

) J6 X/ X" Q% L9 o2 D


: Q$ l- m* a1 a


. q/ z! s$ z3 b6 D
$ |6 v( x# }' L# u* G
" H/ J8 _7 ]8 E- ?& K# l0 K
8 K% s' o  C4 ~, x
# L# p+ `: R0 u) u( _. ]51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网