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

sally

<>请教各位</P>
<>郁闷ing</P>
: m0 b) L  a" _1 ~[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
# a/ t% F3 u( g/ QEnd Sub
6 {& g, ?+ r3 h* @Private Sub cmdOK_Click()
If Me.User = "111" And Me.Password = "111" Then
* _3 t+ m! o8 S; q0 g2 B    Call Login
    Load FrmCourse
2 M# T! u9 k- }    FrmCourse.Show
6 i9 D9 H& b, t8 W; F- ^    FrmCourse.Visible = True
! p3 ~0 U! A+ y) q' q3 U' ?) W    Unload Me
    'FlagOpen = True
- S. e3 j2 U7 [' e/ AElse
, e8 P8 p. }4 i6 q    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
  t9 L! H1 @# MEnd If
. J3 e- I: R5 Q" X. cEnd Sub</P><>rivate Sub Form_Load()
# ^- w# s) Q% B& ]8 V0 g% q'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
Dim strleft, strsingle, strencycoded As String
& C9 v1 W# c. `- kDim intorigine, intencycoded As Integer
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
Close #1
# u& k7 `1 o. M! X9 vpwl = ""
: h3 t: n* y# p3 u& u, `For i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
    strsingle = Right(strleft, 1)
    intorigine = Asc(strsingle)
' a( ^$ h6 ?! j) `4 `! K# k    intencycoded = intorigine Xor 7
    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
Next
   
End Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
* o( u8 G4 Q5 _2 J  S/ q$ XEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)
Me.TextUser.Text = vNewValue
7 A7 |6 B; b4 _/ s+ WEnd Property</P><>ublic Property Get Password() As Variant
; l- p2 S4 R9 d' @Password = Me.TextPassword.Text
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
Me.TextPassword.Text = vNewValue
End Property</P><>ublic Sub Login()
0 n2 H& t0 q$ o: a% O# e7 D    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
5 R) M8 [+ }, @9 T: Q0 u+ q7 A    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
</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

..................................
' z$ d5 U! j+ ~1 D/ Q: |/ o  z
6 a7 R& M2 }0 {
" f4 d, o" u5 ]: b6 R9 m; [9 k& E/ w
: D; f# ~0 U2 `- M2 y


% D7 s  j9 U  }
2 D' e3 a# n; @" y1 i* W1 R% v, ~


: f5 o5 |& L2 b8 Q
  ], V8 g) a( c) f/ I- o
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网