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

sally

<>请教各位</P>
<>郁闷ing</P>
2 H: S! J1 E* h: ^  k[em06]

神之手k

..................................
0 v1 z0 l& d& {4 g

% h$ `  W9 g1 B2 d/ _  S* H  i$ t
4 F" s- z' c! b  \1 E. r



6 `, t9 l7 H, e: _: {




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

ilikenba

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

sally

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

aron

不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
9 b; m- R( O' v

[此贴子已经被作者于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()
/ {, P9 R9 H! X' M4 m4 CUnload Me
End Sub
5 ]0 t6 ^% a2 {8 iPrivate Sub cmdOK_Click()
6 a" T$ H& G4 A( c/ y3 Y5 HIf Me.User = "111" And Me.Password = "111" Then
    Call Login
    Load FrmCourse
0 b# {; T# X! S( \0 F    FrmCourse.Show
2 ^1 ~. [. `; M: ~/ `5 Y2 |' \" Q    FrmCourse.Visible = True
3 z9 ?: i% {. e    Unload Me
/ v5 H: I6 b- T$ S9 J    'FlagOpen = True
7 u! S( ]0 o3 a. `Else
    MsgBox "用户名或密码输入不正确!"
    'FlagOpen = False
  F/ H" l, x4 gEnd If
End Sub</P><>rivate Sub Form_Load()
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
; \, C. V7 k) C) y" C+ e4 BDim strleft, strsingle, strencycoded As String
Dim intorigine, intencycoded As Integer
9 L/ y$ b3 {, ?4 a/ T1 Q6 ^'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
7 Z/ H- o" r8 _1 D; jLine Input #1, Xorpwl$
Close #1
2 {+ [% p, {* ^' F1 Mpwl = ""
For i = 1 To Len(Xorpwl)
    strleft = Left(Xorpwl, i)
$ C# ]( V) I" G4 ]    strsingle = Right(strleft, 1)
3 V/ G  n- M# k/ U. \# z    intorigine = Asc(strsingle)
    intencycoded = intorigine Xor 7
    strencycoded = Chr(intencycoded)
    pwl = pwl + strencycoded
2 {* t1 H$ s, u/ vNext
+ U- ?3 {% ^1 p3 W# \   
" j9 N3 v8 H0 L$ ]1 FEnd Sub</P><>ublic Property Get User() As String
User = Me.TextUser.Text
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
% @1 V* q% _8 aMe.TextUser.Text = vNewValue
End Property</P><>ublic Property Get Password() As Variant
Password = Me.TextPassword.Text
5 k$ R6 B. |' cEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
Me.TextPassword.Text = vNewValue
" k% Y: m3 z  B# w, jEnd Property</P><>ublic Sub Login()
& `0 [  X" L  C4 O) M! e0 r    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
& {1 P5 d2 o- P4 a( n% I2 e2 h    Me.Hide
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
</P>[em06][em06][em06][em06]

ilikenba

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