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

sally

<>请教各位</P>
* ]* n+ Z# i* M! B/ c<>郁闷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()
9 [. D( N1 w6 e$ U/ {7 T: ~$ t/ G# l/ _Unload Me
6 H# @6 X* G& M* ~  e( g  a; PEnd Sub
Private Sub cmdOK_Click()
If Me.User = "111" And Me.Password = "111" Then
    Call Login
    Load FrmCourse
2 E( F" N$ ^7 J. ?, K    FrmCourse.Show
9 W! R7 {* E8 P" M    FrmCourse.Visible = True
    Unload Me
' k2 Z+ g6 c! y$ D    'FlagOpen = True
Else
    MsgBox "用户名或密码输入不正确!"
+ X) Z8 k. g7 ?) W  H    'FlagOpen = False
& B, |3 g% G: q8 x8 t: I3 n) XEnd If
End Sub</P><>rivate Sub Form_Load()
  ]( I( x( i4 H0 N$ |4 W* F+ v'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
: }3 b* g; N, ]6 W6 K6 WDim strleft, strsingle, strencycoded As String
Dim intorigine, intencycoded As Integer
/ l; R: W5 h$ M) G'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
/ O% \) [* s& r1 ~Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
Line Input #1, Xorpwl$
$ f3 ]# o" r* T+ R( Q0 l+ H' TClose #1
) S; V' {3 b) [/ N8 Cpwl = ""
For i = 1 To Len(Xorpwl)
$ Q. D: F4 r4 H+ v) i    strleft = Left(Xorpwl, i)
6 ?7 M$ b* Z- P$ I: w    strsingle = Right(strleft, 1)
    intorigine = Asc(strsingle)
    intencycoded = intorigine Xor 7
    strencycoded = Chr(intencycoded)
. W5 M8 R: {1 H) H! r" g    pwl = pwl + strencycoded
Next
# i, J' M  m2 {  x8 a5 ~# g) f# x. r6 L   
# X  Y7 S/ I$ g/ tEnd Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
4 _& r- r% q3 X/ ~+ t5 j  O" T3 l" m. NEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)
0 M7 a' l: w% t+ }. C6 OMe.TextUser.Text = vNewValue
End Property</P><>ublic Property Get Password() As Variant
# p  M  Y  a9 J" J& l$ m5 }" uPassword = Me.TextPassword.Text
* J5 K  s5 s, lEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
Me.TextPassword.Text = vNewValue
$ Z' u  e7 Y8 j9 l* pEnd Property</P><>ublic Sub Login()
( u9 P2 e0 r" C% j5 C7 d' w" z    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
& B  ]" m- F: w' o    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
( e" C7 N+ d  }5 R9 |</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

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



& D' `9 n3 q$ H2 R* D
7 S9 u: ~! z( r





: S3 A2 |, z: b& ~! o" I, ~5 F
& t) P  s4 d" y, \, s- v9 d, ^
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网