数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>- R6 K8 O! l1 y. k
<>郁闷ing</P>
; n- G) T. g6 j! k# 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()' _9 ]  W8 F; W$ z
Unload Me
4 k- R$ ^9 `5 ~1 Q8 yEnd Sub% W# @* m+ [# p' @  @8 u8 u/ v! s
Private Sub cmdOK_Click()7 S7 T# c6 f  f
If Me.User = "111" And Me.Password = "111" Then
# _, V7 W/ `  N2 U; N    Call Login
' c7 _4 m- H# }6 G& }    Load FrmCourse
4 z: d2 K# E/ ]! r7 a$ y    FrmCourse.Show8 S, g, b( m0 g* c6 M) D% P
    FrmCourse.Visible = True
& O: ?6 Q) x6 t* d) V8 F    Unload Me
& B( a5 R4 W! z  _5 t  x    'FlagOpen = True% f& y" P4 ]( u" ?* q# W
Else
% x0 M& ?! |! g1 }) P9 x    MsgBox "用户名或密码输入不正确!"4 e8 G. ^8 |% k) m% |
    'FlagOpen = False% Y0 P% c/ q2 B/ o
End If6 M+ p$ r7 ]1 ^8 x# D8 |6 K6 Z7 U7 i
End Sub</P><>rivate Sub Form_Load()
: D$ V* D1 y( G  k. j4 p'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"
$ a9 o, T- d/ b; W& w4 b  lDim strleft, strsingle, strencycoded As String" ?' b" m1 c) M% g' D
Dim intorigine, intencycoded As Integer) C1 Z- y$ }) m9 @0 D
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE4 B+ H/ c) s6 X4 ^  }
Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
% P1 ]( ]! I" iLine Input #1, Xorpwl$
- g- V0 M( N: a- K  Z( pClose #1
/ p  P+ w) K/ P7 s7 S6 epwl = ""* n% T6 ~1 N* `! |* W6 Z1 i" h
For i = 1 To Len(Xorpwl)
, G( V6 k9 z4 U! w' e    strleft = Left(Xorpwl, i)8 j. u' [) c! U3 E
    strsingle = Right(strleft, 1)- U; h/ i3 n. O6 z+ Y* Y
    intorigine = Asc(strsingle)9 c9 S% M  g5 u( v9 T
    intencycoded = intorigine Xor 7" N8 e7 I. |4 {, G# O9 n( F4 P
    strencycoded = Chr(intencycoded)  x8 E0 j- K% `
    pwl = pwl + strencycoded7 s6 o7 ?/ j( G% T
Next7 `. C6 Y# o9 d1 }8 v; y: Y0 I
    $ h6 k! a# c* z5 {5 Z* D
End Sub</P><>ublic Property Get User() As String: y9 A4 ]7 P3 a6 w3 J+ [
User = Me.TextUser.Text
0 N, V* Y8 N* OEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)
4 Z# G  F9 ~% {) @Me.TextUser.Text = vNewValue/ g/ O+ U! z) E4 [6 N, M: t
End Property</P><>ublic Property Get Password() As Variant. i5 W" b3 }+ e3 K. x
Password = Me.TextPassword.Text
  f# q% l* b9 s  D5 j- d/ D# _3 {) gEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
; `) e( |8 f0 S) A: I8 T  i# }Me.TextPassword.Text = vNewValue5 v8 L! l+ i% N; r! u3 @/ n2 Z8 T
End Property</P><>ublic Sub Login()  [" Z" L0 y; |
    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           - [. d, A( x# {5 c  B1 D9 K
    Me.Hide
: m# q/ F' b+ v7 ~End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
6 S) I* {  Z) O</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
& N8 z% x6 L8 q/ h
[此贴子已经被作者于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
..................................; z1 k$ Q' E* v& v7 S) ^
* Z0 X% t' {2 c, w1 A' W

, k5 {3 i! @% |9 R
* S7 z( B/ h9 a" O
2 X8 B* U( J- f5 b, L; M
- Y+ D6 V% k! n* ?8 A6 D4 |' s9 N) A
6 _( ~6 z5 h8 r, T2 o& T( j
1 @  B& Q$ k1 Y$ A
7 p4 t  v$ X8 e, G- v" t8 g

8 {8 I9 s! a  c* |- D5 ]) O: ?5 i9 c5 ~; \! D, \  ?
: e- Z# s8 _" ]6 D& [; C* K
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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