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

sally

<>请教各位</P>
4 l7 p- b! q7 s1 A( I# j3 g1 g9 X$ J<>郁闷ing</P>
[em06]

神之手k

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



& p2 t8 H3 N9 P% G6 }9 ^
7 @# ^( D9 L4 c2 i& y

3 q- W# ~3 K  D



; x. _$ w8 W) O& Y1 \  d+ \

: Z9 F+ L* l4 ]9 s51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网

ilikenba

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

sally

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

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
" S' V+ G1 g! D) i

[此贴子已经被作者于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()
3 Y' D% \* M2 h: g9 RUnload Me
" r: R+ G/ h" [, L; b1 [* f( `1 ^End Sub
Private Sub cmdOK_Click()
2 @( ?+ W) w, G: o/ oIf Me.User = "111" And Me.Password = "111" Then
    Call Login
    Load FrmCourse
% o) t0 H* P2 \8 w/ |3 v    FrmCourse.Show
    FrmCourse.Visible = True
# Z! G1 ]9 d- D6 Q9 y" \4 C    Unload Me
    'FlagOpen = True
: r0 j$ T! `9 n7 z) b% rElse
( y. z5 h* p: f, T' Q2 t    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
End If
% p" z: {$ a$ V5 j' uEnd Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
/ J/ ]! a$ P! K5 QDim strleft, strsingle, strencycoded As String
Dim intorigine, intencycoded As Integer
8 r' I+ Q% M4 L: K6 J* _8 Z'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
9 L8 s- I/ L4 j, L1 ~Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
5 }' w* s9 n  a3 E+ qLine Input #1, Xorpwl$
Close #1
pwl = ""
6 E( t; |/ n6 s# kFor i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
( Y3 S1 F! `1 }: k1 Q    strsingle = Right(strleft, 1)
" o9 {+ O" K/ c! U. }0 m    intorigine = Asc(strsingle)
1 L1 w/ V# H' z    intencycoded = intorigine Xor 7
    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
& ?" H, Q9 d  V. {2 s' `. \Next
: B4 ]/ v& H& O; V* R   
8 S# |7 m: u6 r: H4 Q7 yEnd Sub</P><>ublic Property Get User() As String
$ ~3 G0 r, U7 T# {User = Me.TextUser.Text
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
4 |6 ^/ v- K* m, s2 r; t0 T" S/ ]  VMe.TextUser.Text = vNewValue
9 t" }. f4 y6 h' Q3 ?End Property</P><>ublic Property Get Password() As Variant
Password = Me.TextPassword.Text
& ^/ x2 @/ C4 r8 i9 f) \End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
7 @+ U4 x) E1 ^0 n: f* B% iMe.TextPassword.Text = vNewValue
End Property</P><>ublic Sub Login()
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
8 b7 `' C: b) j. w" M/ H    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
5 T+ n) p. f* \6 z: E</P>[em06][em06][em06][em06]

ilikenba

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