数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>, P3 E; @  z8 @3 g
<>郁闷ing</P>/ r6 H- O( {9 Z# Z( i, Y/ t% R/ |
[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()( i6 u1 C  ~0 E- T$ \
Unload Me
% Q+ m. Y% V; J: x; H; M1 m! H' [3 AEnd Sub; G9 b$ K9 G5 _
Private Sub cmdOK_Click()& f3 I- C# j( L9 U
If Me.User = "111" And Me.Password = "111" Then$ ~( p2 x6 ?& W+ M0 M; Y# v
    Call Login$ @. ]& o7 D6 k9 h4 j' H- i* s
    Load FrmCourse  m$ w2 i6 W3 M) A
    FrmCourse.Show$ j% |6 h2 z# c( b/ B! E
    FrmCourse.Visible = True
. @3 s9 H; o* b3 W9 k    Unload Me
* _9 e2 b) M' _* D    'FlagOpen = True
; w* H8 _! n7 @9 RElse
* B+ W9 J3 ]; j6 n" n1 h& U    MsgBox "用户名或密码输入不正确!"" D, I0 S7 m8 a4 I8 }
    'FlagOpen = False) h1 R: ]2 M6 `: _. y1 E' Z
End If3 q3 k0 p$ {+ c4 p
End Sub</P><>rivate Sub Form_Load()- y  x5 F- R* c0 Z% R( d- Q  e
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80". Q; W1 @* ^  f3 d/ ]; F' M
Dim strleft, strsingle, strencycoded As String7 M' R9 H9 y9 V& M& {7 a
Dim intorigine, intencycoded As Integer
; b/ d. G: R9 R0 g'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
: G' V, J( j& G1 C8 [* ~) I7 @Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1. H; f+ _2 l! L1 `' Z$ N
Line Input #1, Xorpwl$
+ h+ D! {$ I. pClose #14 H' x  j$ v& u: A3 ^* x
pwl = ""
6 t3 |/ o. ?  ]. A8 F1 o, yFor i = 1 To Len(Xorpwl)( Q3 Y  q. W6 D9 x6 _9 n0 O4 a8 j* D
    strleft = Left(Xorpwl, i)
- J0 \1 e1 |1 k    strsingle = Right(strleft, 1)
+ Y' J5 z- j- ?' H) P2 z/ Q    intorigine = Asc(strsingle)0 q- G4 k$ ?: o2 M
    intencycoded = intorigine Xor 7* O" P9 H9 s7 q
    strencycoded = Chr(intencycoded)
+ h& s9 @  j3 ^& F2 y  @    pwl = pwl + strencycoded5 j6 b0 S! W' a1 I" L2 o5 }9 v
Next& z% L! G1 u& J" j
    4 ]# _3 C6 @# Z% s7 u
End Sub</P><>ublic Property Get User() As String
0 _2 V" c# X7 `: d5 x7 p% d* vUser = Me.TextUser.Text
  R  }8 ^" F& ]# t/ w9 g7 W: HEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)- ?5 K6 ^2 _! b; w/ J
Me.TextUser.Text = vNewValue
# ]0 L/ e  H: aEnd Property</P><>ublic Property Get Password() As Variant. R9 R& \( X1 N
Password = Me.TextPassword.Text
" }* ]2 g! C* g3 t& b4 t; XEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)3 }6 Z; ^3 y$ X% E, Q
Me.TextPassword.Text = vNewValue
" f2 [! t$ X8 w3 _8 y$ qEnd Property</P><>ublic Sub Login()/ \, O# `! Y4 t8 t5 W- v* {
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           8 K' E; J2 e4 C7 J
    Me.Hide
0 ^( `' H" ]  {End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
) w5 P; i+ }3 q" b, ^  {5 U$ m</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件+ P9 R& p8 l" w$ {/ B% K
[此贴子已经被作者于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
..................................
( T4 l1 R$ B: ]+ C
6 r9 G& D$ P5 f5 D4 o: t3 J& U* ?/ M5 Q' q

8 v+ u% q$ Q) x9 `/ I
) T: j0 v6 M) Q1 o
$ `- R. e* v. _2 Q
1 R0 v6 d8 B: b8 C" X. w8 l
5 v% f; \+ E& K( C+ U- p+ s% Q  N
( Y6 O& E3 V4 ]  U& @9 I3 U" j4 ~9 G2 p6 l
% x* r. y3 m( d% z$ g

7 I9 I+ T7 B9 N% o. x
$ m% N' G7 w; K51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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