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

sally

<>请教各位</P>
* C: |* |- k% R! H<>郁闷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()
Unload Me
End Sub
5 O2 X- X& m0 }Private Sub cmdOK_Click()
* K0 E! V: c* \4 A. e6 ZIf Me.User = "111" And Me.Password = "111" Then
    Call Login
+ ]5 j7 D' I& V  i/ x% u    Load FrmCourse
    FrmCourse.Show
; J$ _5 L  q5 a4 f0 i    FrmCourse.Visible = True
    Unload Me
, S' i( _" [5 m& S    'FlagOpen = True
+ |+ G8 C1 ^; ~: Q" h( E% E5 I) aElse
    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
5 a2 e) j, P& C: N) Y; pEnd If
End Sub</P><>rivate Sub Form_Load()
$ W) N. H! v, F  H; @'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
Dim strleft, strsingle, strencycoded As String
- M4 s3 j0 T# YDim intorigine, intencycoded As Integer
% ]' y) U0 R: O'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
! X. ?. e8 V4 G/ H( ?3 L  [1 `' K6 XOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
Close #1
pwl = ""
( G9 q1 @; F% E8 a* n9 z3 j5 FFor i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
9 ]' C3 @; O* v. m& x    strsingle = Right(strleft, 1)
/ k: Y% a# J8 g4 Y1 r- h" Y% j( T, R    intorigine = Asc(strsingle)
4 @0 G' l' X8 S1 j" F! z, G2 E& O    intencycoded = intorigine Xor 7
    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
7 n( O( `0 F; H- u9 x- kNext
   
End 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
, U8 W) C+ v1 |! l% X* XEnd Property</P><>ublic Property Get Password() As Variant
Password = Me.TextPassword.Text
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
+ m! n5 C, w3 i/ q* y7 z& A3 KMe.TextPassword.Text = vNewValue
End Property</P><>ublic Sub Login()
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
    Me.Hide
" o" s+ k+ A$ Y: k  x1 |End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
</P>[em06][em06][em06][em06]

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
5 P4 g: @) G9 K7 Q0 l5 g  U

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

sally

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

ilikenba

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

神之手k

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



, S$ Z0 l  j+ a8 |9 A
# M: u- [# {% ?  g, p! o- F
0 a' S; s" s& n0 L


4 G4 Q- J$ Q! `& `3 A, \
6 \% x2 ]  k$ X( |5 L
6 `2 z; g+ J1 s7 U
1 P; P( \% x5 b. f2 y7 F
" `5 k/ ^8 a3 E# O8 F- @51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网