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

sally

<>请教各位</P>
<>郁闷ing</P>
4 L" g4 v" L. ]; p5 i8 n% G1 t! f[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
5 _& J' J  W* w# @# REnd Sub
/ V) c- i: X( O0 TPrivate Sub cmdOK_Click()
, l4 h: e8 [- }% ~; |, vIf Me.User = "111" And Me.Password = "111" Then
& I) s3 r9 U% e' W+ O) y7 F5 C    Call Login
9 r, f, e' Y) d) V2 y    Load FrmCourse
* _+ p. {3 H, n" }) F; Q& J    FrmCourse.Show
! \9 l, l, T: k/ e( d    FrmCourse.Visible = True
    Unload Me
    'FlagOpen = True
Else
% I) e3 d) N- I- i    MsgBox "用户名或密码输入不正确!"
# w( z7 [9 P/ T    'FlagOpen = False
End If
/ A, I  c, `) W" Q2 X, uEnd Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
Dim strleft, strsingle, strencycoded As String
% A2 i6 A- i2 h2 A& R# v9 F* gDim intorigine, intencycoded As Integer
6 \- }) Z; i5 Y" Y1 x'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
% S( d/ J, X; ?# k8 nOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
Close #1
# N7 U* ]6 g3 u/ rpwl = ""
. F2 U: c( B4 CFor i = 1 To Len(Xorpwl)
& ]8 K: \/ |! d# H    strleft = Left(Xorpwl, i)
4 {5 A' g' C$ M6 r    strsingle = Right(strleft, 1)
. y9 _/ ^7 ^' o& M. h    intorigine = Asc(strsingle)
4 g9 x. q4 O0 G) W    intencycoded = intorigine Xor 7
% S! R* m& e5 r6 L; l, \    strencycoded = Chr(intencycoded)
( [6 V  u% ^+ @8 p/ \    pwl = pwl + strencycoded
/ Z1 u3 i/ D  W3 F6 tNext
& H' S6 ]8 g( c' _- F4 A   
End Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
, q6 D4 E5 x* M& bEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)
, H/ R, ~. t* X; M. G8 zMe.TextUser.Text = vNewValue
End Property</P><>ublic Property Get Password() As Variant
$ x; N# {/ s4 y" Q- b7 y+ d, ]Password = Me.TextPassword.Text
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
Me.TextPassword.Text = vNewValue
- m0 Z9 V$ R" s, q* ]End Property</P><>ublic Sub Login()
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
9 j0 {2 {: W* F& Q</P>[em06][em06][em06][em06]

aron

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

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

sally

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

ilikenba

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

神之手k

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


7 S6 k1 {3 T- e3 r

6 v7 I' R7 {( j& L- a
$ g* O3 C7 I: l) G: _: n
( R3 U- e4 I/ v' x; O$ d& _3 U" o
/ e6 [  Z5 }+ E1 s
+ ]  u/ ^! r. ^
: Q( t( T3 R0 M
, G. d  P# W/ z% ]0 B

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