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

sally

<>请教各位</P>
<>郁闷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()
Unload Me
4 ]. H+ k& [0 m, uEnd Sub
! ?8 l/ p# T$ R: e. x- B% P+ G/ zPrivate Sub cmdOK_Click()
" r8 I9 P* Q* ~; V5 _5 i$ p# s# |% LIf Me.User = "111" And Me.Password = "111" Then
9 \+ t2 ?2 h+ Q, M! J' `/ \    Call Login
- c5 X3 C' v  \& {    Load FrmCourse
1 c  r7 q4 e2 y3 W8 q2 c: I  Q, U    FrmCourse.Show
    FrmCourse.Visible = True
    Unload Me
    'FlagOpen = True
: c& d3 [- P6 i- ?" Z( bElse
    MsgBox "用户名或密码输入不正确!"
2 I) u6 }9 N6 h4 z8 v  B* R    'FlagOpen = False
0 W7 r( A/ N3 Q" a$ k) pEnd If
End Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
Dim strleft, strsingle, strencycoded As String
Dim intorigine, intencycoded As Integer
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
1 f" j; b3 n8 v9 M4 iOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
6 ~* r2 S- w8 C4 V6 |Line Input #1, Xorpwl$
. \; N* N; j; ^$ d2 Z* L7 lClose #1
pwl = ""
For i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
3 ?/ u2 D# d6 p/ y: X' }9 w    strsingle = Right(strleft, 1)
! K6 o/ P6 q1 v. M# ]% a    intorigine = Asc(strsingle)
0 q: d$ M! k" y" i    intencycoded = intorigine Xor 7
6 y! z! j# _% W5 j: b. z: j7 P    strencycoded = Chr(intencycoded)
2 l7 o- E- j9 {, ^5 b    pwl = pwl + strencycoded
. V. W8 _+ l0 N# KNext
   
' K+ `6 i% N1 I# BEnd Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
& A. G# N/ i7 i3 `End Property</P><>ublic Property Let User(ByVal vNewValue As String)
1 }6 t3 b* j1 N& ]; {4 VMe.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)
Me.TextPassword.Text = vNewValue
5 X: _( _. ?* GEnd Property</P><>ublic Sub Login()
6 f! E5 |+ N. n& v% O  W3 x5 h1 d6 {    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
4 N8 P1 b2 x5 B# z9 y4 ]' o5 [: C. x    Me.Hide
& _) W$ @, _% G7 r6 ^2 W7 ^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

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

% `( n+ `6 `6 m/ ^4 d% f

5 c* }/ X6 y! C+ F
  w9 Z) o% U& J& s9 }8 w8 x
# K* A1 ~  y) V' }5 w+ q5 N7 `, f4 }
+ J% I' M: S2 P* X; b


+ \5 T* H/ m9 |$ \


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