数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>* Q; Y8 \! o* Z) U: P  L
<>郁闷ing</P>, n: F; m4 X# C7 N
[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()+ ^& n2 d, U- [5 W
Unload Me, D  z+ s/ E9 k9 }% [
End Sub
) B, ]& w% E0 A7 VPrivate Sub cmdOK_Click(); M. ]8 D" G. |: u* `" J9 F: N9 v
If Me.User = "111" And Me.Password = "111" Then
8 {9 i* w' V( D) a0 h& X    Call Login
/ o- n8 M7 G# u) d; C5 z: @6 R    Load FrmCourse
% q& D4 m7 O" T% [3 I4 k, q    FrmCourse.Show
$ S5 e/ n' \5 }( A9 }    FrmCourse.Visible = True
. }- B% M# Z9 L2 K( a  c    Unload Me; `: w/ Y& R& Y$ \6 t, u% ~
    'FlagOpen = True
. V, ?- H0 D" I% l9 c: rElse
5 e- l9 E/ M- L( w" q& j/ g    MsgBox "用户名或密码输入不正确!"
/ i0 b) r5 p% w: k    'FlagOpen = False# n) q+ E( d" u3 v9 g
End If. T1 k/ w$ u% g" v6 H8 t. p7 G
End Sub</P><>rivate Sub Form_Load()2 W8 x% }0 Y" U; t8 Y# t* \% {" P
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80") l9 @# c- w0 T7 p* M% }6 S) g. x, f
Dim strleft, strsingle, strencycoded As String
! D& w9 h* x; S" i( `Dim intorigine, intencycoded As Integer
  L  U! ~8 z) T8 F) V'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
- X: X+ n" X& Y) k9 x$ kOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1% d5 N# {1 `* l# r
Line Input #1, Xorpwl$
4 v0 L1 V" ^, k$ Z, B! I; HClose #14 n+ j2 e1 Q$ H4 x
pwl = ""
. j& W0 j8 c, q( A$ N1 }For i = 1 To Len(Xorpwl)
+ \5 j( c# P  U    strleft = Left(Xorpwl, i)8 i# e3 R% Y1 B6 Y1 I; |, [4 {
    strsingle = Right(strleft, 1)
9 `' [! T( M# }! ~    intorigine = Asc(strsingle)" y5 I3 h5 G* F( J" B& {9 G9 c
    intencycoded = intorigine Xor 7
2 z0 T/ g8 B: Y  i" ?& D$ W    strencycoded = Chr(intencycoded)
% X8 q' j' ?2 `5 t! E    pwl = pwl + strencycoded7 m+ I6 S0 O- f, {( I; p+ T6 ?
Next  O* ~" |" j$ h5 }2 @; [: y
    / y2 {- J- s7 U8 ^' l' r/ c
End Sub</P><>ublic Property Get User() As String- X: R, [% ^7 q. }" D, a
User = Me.TextUser.Text
; a6 Z# |4 Y! Y# ?. Q- XEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)
5 s% s: \6 ~& E! ~1 S# U& BMe.TextUser.Text = vNewValue
* f8 D) p% C' I$ O( vEnd Property</P><>ublic Property Get Password() As Variant% J/ l1 z: {' Q& O
Password = Me.TextPassword.Text. J" S$ r4 f2 ~; M
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
% c' B( B. G; D8 g. @Me.TextPassword.Text = vNewValue
; K/ n3 q/ ~$ w; z; m) HEnd Property</P><>ublic Sub Login()- w/ T. l" D+ b8 C+ }( l
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
! h" A/ K- x7 L$ C2 q2 t    Me.Hide0 \; J. P, B1 [, S" u
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
! J, Z  z# f( Y- e0 o2 W3 I</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件# b7 c; h# I9 {/ J( Z: E+ `/ 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
..................................# S& A* t& E  N" H9 x
3 w% `5 T, o5 K8 @6 A$ a

6 H8 ?+ I+ y; I& B
* Y/ P" R! J# @$ l! ?) i! \; K% m6 ^6 W1 S: l, i
" k' R/ u1 }9 I" z# ^

# h. \% R( N0 `2 ^
8 i; |" \  _0 q" S  C
! N+ B4 J2 ]. {5 V$ h9 O/ d& ^9 D% ~, ]# s/ K
2 c% V0 \- T1 U# N: f3 J
; M; G9 J9 ?- V* K" L- a
4 W) T" _, U" n8 ]
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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