数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>( i- x" r7 M  _& p; F8 G
<>郁闷ing</P>6 v) G/ f- E# x5 L3 [6 g
[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()# G5 [5 W% ^7 }8 a8 V0 A
Unload Me
& _+ I. V# H9 ]# rEnd Sub$ M% M! _! ]& X
Private Sub cmdOK_Click()7 Q% Q- @' J  }0 e; _* C1 s/ h* ]
If Me.User = "111" And Me.Password = "111" Then5 A3 f0 E; {7 R0 D* Q! [% m/ E0 m
    Call Login1 c$ a' G( r6 g  M% X- f
    Load FrmCourse' U/ V' S- M/ }6 B) m8 ?2 c
    FrmCourse.Show
" v  @  ]8 O3 a. A9 [    FrmCourse.Visible = True# @! h  n3 z1 o4 O0 g8 V* d( o
    Unload Me
! r, j) W" l5 b8 ?  W0 J    'FlagOpen = True
0 Z- F, F; E  K. VElse
7 i5 h. U/ T# F3 @% U2 o+ p    MsgBox "用户名或密码输入不正确!"4 X( n2 v: m+ B2 K" G( a) U
    'FlagOpen = False
' M4 R" w! O4 yEnd If' ^; ^& E7 K( @# P0 v% W
End Sub</P><>rivate Sub Form_Load()
7 {" O8 {8 H2 h2 R- W0 }'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
6 b' T, h. e, S* u" M  }Dim strleft, strsingle, strencycoded As String5 \6 ?8 y% x6 j  `7 d
Dim intorigine, intencycoded As Integer% ~7 A' ?. g! u) L( ^& U
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE" U% b5 ?; B- n: [1 \+ c
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
/ i( N, |" C3 B% h6 yLine Input #1, Xorpwl$
( D) ~; L+ S0 z2 b. S+ W5 q) W6 }Close #1
  a2 {6 l9 s  M) W& Q. Fpwl = ""
  V" y, J" M" |" s( rFor i = 1 To Len(Xorpwl)1 M: V, L7 H) P3 F9 R( I: O
    strleft = Left(Xorpwl, i)
2 F4 f! |' `) t    strsingle = Right(strleft, 1)
6 Y& ^: N0 A5 ^; k' Y+ {- o  G    intorigine = Asc(strsingle)
& e, t. o! u8 O+ ?) H    intencycoded = intorigine Xor 7
7 I6 U- ?, Y  ^) ]    strencycoded = Chr(intencycoded)
; `4 V5 ~6 t$ Q    pwl = pwl + strencycoded
0 d' B  M) m* C% U/ o' T! VNext
% x, Q9 L2 g" v" z) o  b4 r   
* c1 b8 e+ N; z0 |0 S" xEnd Sub</P><>ublic Property Get User() As String0 L/ `( z- k" S0 O
User = Me.TextUser.Text  K4 [- d$ @8 i
End Property</P><>ublic Property Let User(ByVal vNewValue As String)
5 i6 A. y: z% X3 \5 O5 TMe.TextUser.Text = vNewValue
) j) V+ l$ f9 `& E( N) E4 K# SEnd Property</P><>ublic Property Get Password() As Variant+ _& P; k. J/ \3 e: U5 {
Password = Me.TextPassword.Text2 X) K# \! W5 F: Q
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
, x$ W) z* }- U% s; J+ I3 iMe.TextPassword.Text = vNewValue( K; i) J* C* N, w
End Property</P><>ublic Sub Login()
( W9 C) Q) K) H% n    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
9 Z' c5 T+ o) @& m    Me.Hide, l% h# B% m2 o5 L  \
End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？6 A0 T, o" C* j1 N+ V
</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件! V2 V1 ^* M, w' ~, `
[此贴子已经被作者于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
..................................
  p* t- Z' H# ^! m9 u; O# a% Z  y) b! P8 o+ B
% z+ x, G$ m( l# h
8 a  l# D% {6 k. f) M; w- T9 s

8 d5 U7 V. b) [. f3 P, @
5 n1 I+ f; \7 t4 f) V
6 e5 w: ?2 S* o7 }
7 k( t0 U) ]0 D, U7 }6 ^1 o2 P2 [- P3 T6 C' a% C) G9 x. ~8 o

  j% J+ B; X" F' H2 J9 L
1 I. r# F+ g! [; P
0 X) f# `/ f5 I, v) I- H7 P. u, E! B6 R9 a" K6 @  _
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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