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

sally

<>请教各位</P>
/ m$ [7 F. [4 {" X<>郁闷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 |4 w8 p8 G9 i2 G, EUnload Me
End Sub
, V6 X3 N0 F7 |6 V  B8 @- `. H! l8 \. RPrivate Sub cmdOK_Click()
If Me.User = "111" And Me.Password = "111" Then
    Call Login
. X5 W, H+ \  a1 g    Load FrmCourse
    FrmCourse.Show
    FrmCourse.Visible = True
. @9 |; d; W7 s1 @; A( n/ J    Unload Me
    'FlagOpen = True
. a  J% F  ]7 @, e2 O; J3 EElse
    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
) ]( ~/ p9 p# O: F8 iEnd If
End Sub</P><>rivate Sub Form_Load()
5 ?- M$ @( e# F- _% i  i5 C  m'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
Dim strleft, strsingle, strencycoded As String
# O8 q+ i; A* ~Dim intorigine, intencycoded As Integer
8 _3 m$ S! S) ?'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
% Y- @* Q* s1 h8 L! D4 |Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
Close #1
pwl = ""
' u5 U2 S% B' A( S* KFor i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
    strsingle = Right(strleft, 1)
    intorigine = Asc(strsingle)
    intencycoded = intorigine Xor 7
. [& l5 R# s& s+ t& j    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
/ g7 n, H/ j8 x$ y; LNext
; A* `' ]# O+ g' Z! o) Z   
/ L4 w' ^0 H5 ^/ m% O/ ^" bEnd Sub</P><>ublic Property Get User() As String
" i& f' H3 A  h% eUser = Me.TextUser.Text
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
Me.TextUser.Text = vNewValue
- ?6 i6 I& X7 }6 oEnd Property</P><>ublic Property Get Password() As Variant
Password = Me.TextPassword.Text
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
Me.TextPassword.Text = vNewValue
! x6 \' \8 f& K' x" ^End Property</P><>ublic Sub Login()
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
+ X6 E3 W2 j# z    Me.Hide
/ R: d% u+ Z: }. S+ @, P/ Y5 fEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
</P>[em06][em06][em06][em06]

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
7 x& E$ w; {$ r/ r1 _

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

sally

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

ilikenba

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

神之手k

..................................
9 h: H0 T6 l: y; q4 Q
2 _% Y+ c& N3 m( F( S0 [5 I

4 u6 s, B5 h- C* c

- o* d( m# a9 B% M# J

' ]; `2 v$ o2 t
) O; f3 m: h5 Y* o6 d  ]
2 R5 O, F8 Q2 D  U2 k* W- {0 {
* @5 _$ U) F" n* a
/ j7 y# l+ x7 P8 S. Y0 a
9 C3 i& l# R. N, |' w51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网