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

sally

<>请教各位</P>
/ u5 w4 D& l8 v* u5 a<>郁闷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()
" g+ r, v) W6 [Unload Me
End Sub
Private Sub cmdOK_Click()
If Me.User = "111" And Me.Password = "111" Then
    Call Login
8 ^  o$ ~, r& E3 o/ Z    Load FrmCourse
    FrmCourse.Show
" [  g9 l6 Q0 R! [. ^1 J1 N    FrmCourse.Visible = True
    Unload Me
  d1 r8 M% D/ j2 j; q2 Z: _    'FlagOpen = True
Else
4 J. K' k7 i/ J2 C: \    MsgBox "用户名或密码输入不正确!"
% q9 k+ E0 V2 C+ g. M9 d    'FlagOpen = False
  G! x- f8 d1 ~; Y3 Z$ s% PEnd If
End Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
' d' t  ?4 S! ~1 [/ \# DDim strleft, strsingle, strencycoded As String
/ W6 c/ z' Y+ N9 [! l: PDim intorigine, intencycoded As Integer
% h) l3 q0 {; T: t9 g) F'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
" K2 _2 q5 _  v2 [5 ^; _Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
Close #1
2 M6 S: v# i& o2 Z4 P. y  fpwl = ""
) c' s- B5 i; \For i = 1 To Len(Xorpwl)
7 [0 o+ `/ X, x& c    strleft = Left(Xorpwl, i)
5 w/ F0 B. }: b. T, }, p    strsingle = Right(strleft, 1)
# r* ^! @/ e/ O7 Z    intorigine = Asc(strsingle)
0 L" D3 q) ~! E! m/ l) ^    intencycoded = intorigine Xor 7
8 p* Z$ W$ b& m1 E9 k* ^    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
2 l6 T! t- N: t1 p! t4 Q; d9 bNext
   
/ o7 M* l( {! c6 KEnd Sub</P><>ublic Property Get User() As String
# M) n- \3 p4 p& a) L$ H7 _3 GUser = 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
Password = Me.TextPassword.Text
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
# |! \  c+ {: z$ I; ?/ J2 D/ YMe.TextPassword.Text = vNewValue
% B+ H1 g) U$ ?* }$ S( K2 c. PEnd Property</P><>ublic Sub Login()
6 y# O  T0 C% m) b    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
! D( y$ W5 H$ P+ J8 [& l2 l    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
' \. B% B6 i4 c  @: ^7 I: i</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

..................................
9 O0 S6 a  E/ `; ?/ \
! s/ \; I3 n) _: ?/ Y; d- s
- J3 K& [6 Y9 N2 ]( w


! V$ |$ \, v: s! W% ]# ~

# s) `+ t2 g/ k& M% Z$ o0 L( P8 t



& ~- K/ i4 A0 n* {' L9 F0 u' L
. I2 a+ o8 I& e" ]51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网