数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>& I+ K: Q+ k, U; R6 t' e' T
<>郁闷ing</P>
( s6 y8 Y! Q  ^[em06]
作者: ilikenba    时间: 2004-6-2 15:24
不太懂你的意思，说的具体一点！
作者: sally    时间: 2004-6-2 17:45
<>VB做一个课程管理系统</P><>连Access的数据库</P><>运行时</P><>总是无法连接*.mdb文件</P><>弹出窗口<b>Action X部件不能创建对象</b></P><><b>但是在学校机房的机子上运行能连接的</b></P><><b>是不是我的电脑什么程序没安装啊？？很迷茫的</b></P><>rivate Sub CmdCancel_Click()
* N' h/ F$ ?, A  z& f' _Unload Me
& G$ j8 C3 p$ J6 N* S$ c" J( _End Sub! J+ N. r7 b/ o( t6 K- A
Private Sub cmdOK_Click()" S# C# d( @  M( @. e
If Me.User = "111" And Me.Password = "111" Then
  I' v8 W5 ~: n4 O+ r# M# R/ Y    Call Login
8 u: j9 @7 Y2 z8 T' Z    Load FrmCourse3 k2 Y+ s" c% ]3 @) g- }# f
    FrmCourse.Show
5 F) T0 Q* U3 l) p$ ?    FrmCourse.Visible = True% w2 w' X0 R1 l) {8 }; s
    Unload Me8 v5 i- W' Y( _* W" w0 }- K
    'FlagOpen = True
7 \) u* f. {5 q( ?$ F: T7 mElse
7 e$ C. g2 x* b% {1 Z$ w    MsgBox "用户名或密码输入不正确!"+ n/ L1 B9 g' Q1 ]8 Z
    'FlagOpen = False
; k8 m7 d4 k5 _' Q( gEnd If
; h! N. I. _6 O+ |/ i, ^End Sub</P><>rivate Sub Form_Load(), v+ b; Q" V8 O) F1 b' I. U
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"1 S2 r8 M' G, j+ B0 n. M" {! g! e
Dim strleft, strsingle, strencycoded As String/ w, X3 a( B2 v
Dim intorigine, intencycoded As Integer
+ ^, n# I/ W) P* a'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE" D2 b' T8 `* h
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1& z# h: F' D0 `6 b% E) S# @
Line Input #1, Xorpwl$6 Q/ d/ P7 Y) o( b, h* c
Close #1
1 m! f, ?$ d# @4 t- v4 s/ ]pwl = ""1 u" E4 P. z! u+ K) g. Z! }( h, e
For i = 1 To Len(Xorpwl)
5 W2 A' |2 y$ O9 A, e4 l* a    strleft = Left(Xorpwl, i)) c: I1 O4 P" T2 n( a
    strsingle = Right(strleft, 1)
% v8 v' t  N" g4 G    intorigine = Asc(strsingle)
0 d  c) `' K0 P3 n4 x    intencycoded = intorigine Xor 7
& d6 C) z0 {; h5 X. e) X* T6 e  Y    strencycoded = Chr(intencycoded)& W  p5 _& a0 i  n% ^" y7 W; u
    pwl = pwl + strencycoded
! D, p3 Z, a9 |& U& m; [Next
. H/ |# n6 L' D    2 ^6 [8 C; I0 _' h
End Sub</P><>ublic Property Get User() As String5 L& V( i$ n6 R
User = Me.TextUser.Text5 [6 s: z& O: S
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
, b7 e. Q" |% j! D- h9 UMe.TextUser.Text = vNewValue& ]) c6 b1 K# D( r7 Q% r
End Property</P><>ublic Property Get Password() As Variant1 @* F) d+ z4 c& b% @6 ~
Password = Me.TextPassword.Text
) }. w& C3 d) m9 l2 f. cEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)7 [1 |2 w  z' d+ @
Me.TextPassword.Text = vNewValue! d5 Y* z/ z: K4 D9 _
End Property</P><>ublic Sub Login()# [8 Y* W% X) x( [# @- Z5 f
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
" M/ O) X4 Z: |& f  W* i    Me.Hide
. y3 }9 T% E; H% k$ HEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？: \8 i  h  G( ~+ N! o
</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
: o% f" E, \& k; J. S( }
[此贴子已经被作者于2004-6-3 14:31:15编辑过]
作者: sally    时间: 2004-6-4 13:12
<>怎样手工注册</P><>能具体的说说吗？</P>
作者: ilikenba    时间: 2004-6-4 21:48
上面不是有了吗？凡是ActiveX控件的使用要在开始-〉运行中输入regsvr32.exe x:\控件名.ocx
作者: 神之手k    时间: 2011-10-13 12:44
..................................! j* K# o3 c. ?+ R1 k: h9 G
0 n1 ]: j. _  [. h

" @- u9 C$ h5 \- ~& v+ q& |$ h5 p) ^! _* M5 }/ e$ p1 A

! ], J$ E6 X/ s9 h& l3 ?3 B- u( x1 c! B5 a* p  \, O% E

, n. p  J4 U; o6 ^; R5 \/ ?  }+ b: h7 o, v) ?, ]% ~
+ W, ~% Z! U) l  o7 H

! n3 M) U, E) z/ {
2 r5 H! z# C& R! ]5 M! l' N. H, @, `
" J& w) H2 Y0 w
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5