QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8159|回复: 6
打印 上一主题 下一主题

用VB连Access做的数据库,Action X部件不能创建对象

[复制链接]
字体大小: 正常 放大
sally        

10

主题

1

听众

95

积分

升级  94.74%

该用户从未签到

网络挑战赛参赛者

新人进步奖

跳转到指定楼层
1#
发表于 2004-6-2 13:10 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>请教各位</P>
: B. `7 @. h) h4 F/ {<>郁闷ing</P>
( P7 q3 x; [$ h  _[em06]
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
ilikenba 实名认证       

1万

主题

49

听众

2万

积分

  • TA的每日心情
    奋斗
    2024-6-23 05:14
  • 签到天数: 1043 天

    [LV.10]以坛为家III

    社区QQ达人 新人进步奖 优秀斑竹奖 发帖功臣

    群组万里江山

    群组sas讨论小组

    群组长盛证券理财有限公司

    群组C 语言讨论组

    群组Matlab讨论组

    回复

    使用道具 举报

    sally        

    10

    主题

    1

    听众

    95

    积分

    升级  94.74%

    该用户从未签到

    网络挑战赛参赛者

    新人进步奖

    <>VB做一个课程管理系统</P><>连Access的数据库</P><>运行时</P><>总是无法连接*.mdb文件</P><>弹出窗口<b>Action X部件不能创建对象</b></P><><b>但是在学校机房的机子上运行能连接的</b></P><><b>是不是我的电脑什么程序没安装啊??很迷茫的</b></P><>rivate Sub CmdCancel_Click()
    2 n# h7 x3 L# p+ @/ f7 rUnload Me
    1 D& F6 m1 b! e8 y; J! ]* dEnd Sub
    1 w0 k/ y2 r9 D" TPrivate Sub cmdOK_Click()
    ' M: m  k4 D/ v2 C; EIf Me.User = "111" And Me.Password = "111" Then8 D; `0 M4 B% ]7 i
        Call Login
    3 m: X1 R0 t7 Q+ M    Load FrmCourse* H2 p- ^8 I9 ]0 J
        FrmCourse.Show
    , r, J7 s6 e# u% X/ V" U( G    FrmCourse.Visible = True
    - P- @# n0 w8 Y7 U/ N+ C  j3 U, A    Unload Me
    # J8 M$ s. l9 y2 x5 o    'FlagOpen = True) A% x0 C* S6 `6 A4 x+ P
    Else  N' ?9 S- Y, P- a" c5 Z3 B
        MsgBox "用户名或密码输入不正确!"
    * {2 I. a3 K0 A1 M    'FlagOpen = False
    1 K8 `1 f2 M& q9 xEnd If
    5 c3 |+ f6 b, C* C4 MEnd Sub</P><>rivate Sub Form_Load()6 s3 m; s, F4 v
    'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 &gt; 80") k9 u; Y3 R# F7 e* w& b
    Dim strleft, strsingle, strencycoded As String
    . Y6 W1 z! ^  [1 \; u( @* M- Q, W+ kDim intorigine, intencycoded As Integer- l* F" u9 W5 J* m/ i
    'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE5 m& b9 e! g7 n
    Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1. z6 V3 Y3 U" Q& C$ I" k) Q2 B2 P5 X/ k3 b
    Line Input #1, Xorpwl$
    $ e7 V$ v1 s" E' Q" x, ?Close #1, Z  _9 v: i1 ^9 o5 D/ }
    pwl = ""
    ) I1 o5 W5 G3 F) x2 w7 _For i = 1 To Len(Xorpwl); F8 ]% {; f# ]9 |5 R
        strleft = Left(Xorpwl, i)7 E% h* n4 |( x9 y2 n5 I7 s
        strsingle = Right(strleft, 1)" G2 B( @5 E& j; ~3 C
        intorigine = Asc(strsingle)/ g, G0 I9 w* _, I3 J+ P% a; L: _
        intencycoded = intorigine Xor 7
    8 {5 N  r( a1 c" g    strencycoded = Chr(intencycoded)
    7 m4 n4 Y$ J+ g  v+ J    pwl = pwl + strencycoded- L4 B$ G% m" |& g) W+ Q* j$ X5 d
    Next
      X5 L' L2 N& b1 Q    + {5 S7 G% v* n# {; y& [
    End Sub</P><>ublic Property Get User() As String
    2 n2 X- C, z' p1 [. bUser = Me.TextUser.Text  }5 b2 l! ^1 _6 ~) `
    End Property</P><>ublic Property Let User(ByVal vNewValue As String)7 h0 c# S* `0 [) t0 `; Q& _
    Me.TextUser.Text = vNewValue
    ' C* O1 f% P  L/ E' p2 jEnd Property</P><>ublic Property Get Password() As Variant  _# @0 C2 u$ C; d4 t' }
    Password = Me.TextPassword.Text6 |6 Q/ Q: ~( W$ W
    End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
    + S4 h$ Z' Q+ Q" y2 V& rMe.TextPassword.Text = vNewValue4 r7 b" e: O- f
    End Property</P><>ublic Sub Login()5 O. _' {" N; z
        MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           * P. A; r% ~+ u1 N8 L
        Me.Hide
    . U3 ?/ o( T. Z: e! _  h3 Q0 oEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么???5 P5 D" x- E3 H$ c
    </P>[em06][em06][em06][em06]
    阳光总在风雨后
    回复

    使用道具 举报

    aron        

    13

    主题

    1

    听众

    159

    积分

    升级  29.5%

    该用户从未签到

    网络挑战赛参赛者

    国际赛参赛者

    网络挑战赛参赛者

    国际赛参赛者

    国际赛参赛者

    不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件" K/ |8 q3 U& \5 Z; B
    [此贴子已经被作者于2004-6-3 14:31:15编辑过]
    回复

    使用道具 举报

    sally        

    10

    主题

    1

    听众

    95

    积分

    升级  94.74%

    该用户从未签到

    网络挑战赛参赛者

    新人进步奖

    回复

    使用道具 举报

    ilikenba 实名认证       

    1万

    主题

    49

    听众

    2万

    积分

  • TA的每日心情
    奋斗
    2024-6-23 05:14
  • 签到天数: 1043 天

    [LV.10]以坛为家III

    社区QQ达人 新人进步奖 优秀斑竹奖 发帖功臣

    群组万里江山

    群组sas讨论小组

    群组长盛证券理财有限公司

    群组C 语言讨论组

    群组Matlab讨论组

    上面不是有了吗?凡是ActiveX控件的使用要在开始-〉运行中输入regsvr32.exe x:\控件名.ocx
    回复

    使用道具 举报

    0

    主题

    0

    听众

    4

    积分

    升级  80%

    该用户从未签到

    ..................................
    % x/ O5 d7 H+ b3 J7 ~4 M5 }3 |! d1 a( e: n# Q. }1 N

    & V4 I/ r0 Z- N' e9 E
    ! y5 L7 ^- f) o- r  c5 S' [/ y/ N7 ]) u; ~6 g) T( G) b* y7 R

    & f" j( X! f5 X7 R& r+ O5 }( ~' A6 f# x" A( N) v
    : S, ~0 g3 z/ i! R
    # p& L' Y' M, z' E$ a0 `
    1 I. b5 y9 L8 u3 J

      M6 A* z. v9 o) b( _7 u# V  B0 _7 x( W

    0 s# R3 m3 h  ?5 q8 y51koo.net黑客论坛 soyangsyl.com搜羊娱乐新闻网
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-7-18 12:34 , Processed in 0.541421 second(s), 89 queries .

    回顶部