数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>, ^9 F, \( l- d8 S
<>郁闷ing</P>. j+ J& s& |/ s( c: 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()
% T7 b" W0 E$ f& P3 v7 IUnload Me
9 f, m. E& n/ s7 j; vEnd Sub
3 F0 J1 [! g  d& S4 {+ e1 zPrivate Sub cmdOK_Click()+ ~' j0 B: F9 c8 j
If Me.User = "111" And Me.Password = "111" Then% Z4 a% r0 k9 w( I: R) C4 g+ @
    Call Login
$ ~* ]# S0 _+ B' [) B% L    Load FrmCourse- w0 ~6 Y! Y0 [" l0 s& n7 F+ `
    FrmCourse.Show# D6 x0 B, n9 r6 J# U* i8 ?
    FrmCourse.Visible = True) C, A3 Z; k, F- M
    Unload Me3 e- E: {% {6 I0 }6 e
    'FlagOpen = True. d' O7 w! `5 m$ w" Z& p" L
Else
  W1 C' v) j1 ]- H% |" T    MsgBox "用户名或密码输入不正确!"7 y) l: s9 O  D: z
    'FlagOpen = False1 E- C  z) t' P. I" B& K
End If
1 P9 Q$ e" ~; a% l& zEnd Sub</P><>rivate Sub Form_Load()! _4 l1 P9 M& o& I$ `* ^! U
'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80": b( W  e0 t' K1 N, W! g$ b$ {5 i
Dim strleft, strsingle, strencycoded As String
, X3 P( i! M0 m+ D9 O  ADim intorigine, intencycoded As Integer9 j$ _1 y( J) [7 X: a, Q6 [2 x
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE( M6 G4 J$ p# F
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
9 Y( ?3 }* F! t" wLine Input #1, Xorpwl$, B  M/ f0 p7 j6 G  K
Close #1
5 O; K- s" L& o- u; C# xpwl = ""
) b; A4 C4 _4 g0 _/ @For i = 1 To Len(Xorpwl)
* N: F8 Z: z$ m/ q& u  B    strleft = Left(Xorpwl, i)! C- a% t+ s1 J9 _% j. ^) F
    strsingle = Right(strleft, 1)
) N1 Z' A8 \" ^( g& [5 O8 S1 \    intorigine = Asc(strsingle)
" [5 }# z% X/ }( k) }/ ~    intencycoded = intorigine Xor 7& L+ j( y; A9 S. S  S
    strencycoded = Chr(intencycoded)
4 H/ N) Q/ s7 \: r    pwl = pwl + strencycoded9 R. y0 E# i. ~% r) x3 D
Next  W+ a2 w( G0 r
   
8 P0 u5 K3 F) G7 EEnd Sub</P><>ublic Property Get User() As String! u7 K) G6 K: r
User = Me.TextUser.Text$ z) S( g: a- N
End Property</P><>ublic Property Let User(ByVal vNewValue As String)' T0 l9 R" Q) f+ j, i; P
Me.TextUser.Text = vNewValue
% W! ^4 A# ?4 _End Property</P><>ublic Property Get Password() As Variant
) V5 }$ P! V0 I- H( ]Password = Me.TextPassword.Text
7 Z% M8 H) Q/ ]0 F/ ]End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
0 i5 j3 ^! ?$ P0 f* B4 xMe.TextPassword.Text = vNewValue) E% _1 u( L' G
End Property</P><>ublic Sub Login()/ b8 h8 H2 u9 C  S4 d/ t
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
3 L  E, }8 Q* x. q    Me.Hide
0 Y0 A% f0 I( d  d0 E& k% a. L! {End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
; [( R3 j& h8 i' I% W) b; f</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件* K3 t8 v( R4 E* l5 u) A" D8 {
[此贴子已经被作者于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
..................................
$ I! L3 D) K  i; d0 F( v
! {& H) E$ t1 @
0 H! V' C8 g7 c# x8 s8 V0 S
* S4 R3 ~) R( x3 R$ f7 b
. `" W. L1 \# z! T' P2 K$ y+ ~
3 l' ]) r, o! W# B
$ ]- e: H- k4 h# e4 s
$ L: B- E+ `" ^+ D+ I* o- j9 ?. h/ ?) z) @( x3 J/ [/ I
, h) x3 y8 P7 t8 y: a' H* t
' N4 b' T5 Z* g; F

# f8 I+ X1 _8 q3 m: f# x, y1 Z+ J2 B5 w. y4 J2 `3 I: R1 J! G  e# n
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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