QQ登录

只需要一步,快速开始

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

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

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

10

主题

1

听众

95

积分

升级  94.74%

该用户从未签到

网络挑战赛参赛者

新人进步奖

跳转到指定楼层
1#
发表于 2004-6-2 13:10 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>请教各位</P>
" Q1 V+ a& Z5 ~<>郁闷ing</P>
/ ?% H. y) [, D: Z0 y& V[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()+ Q+ U) @# D+ ~, E( u
    Unload Me9 E' H, l9 \7 ~+ h. c7 ~( l
    End Sub! V% x9 p! r% g6 P3 ~
    Private Sub cmdOK_Click()" m) E; c/ K6 ]2 r: p
    If Me.User = "111" And Me.Password = "111" Then8 ]$ \; p# H8 t) T# M2 h6 h
        Call Login
    , H+ ?" x& I  [2 Z7 X; @, s% F    Load FrmCourse( A( @3 G" r+ S, ~
        FrmCourse.Show) l: |$ y* U6 G. r# l
        FrmCourse.Visible = True
    * A. P. L- \4 }, Q" x    Unload Me
    * {3 ~% H* P1 g8 ^    'FlagOpen = True
    ) y. I. A7 a9 A7 X8 cElse
    5 d  o3 }4 h; @/ y% L    MsgBox "用户名或密码输入不正确!"
    / B1 v, A8 R; J9 R    'FlagOpen = False
    ) a; E% Y1 `1 O1 L: O5 mEnd If
    - c1 \" X' y4 ]* x3 AEnd Sub</P><>rivate Sub Form_Load()& S( p5 j5 [/ i& P6 O
    'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 &gt; 80"
    4 G& M+ c/ |. b, ^, eDim strleft, strsingle, strencycoded As String
    7 r, @* ^) a- B* U2 |Dim intorigine, intencycoded As Integer
    7 O. f) b$ D) x1 m'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE/ d5 N; A; \9 w8 n4 L
    Open App.Path &amp; "\" &amp; "pwl.txt" For Input As #1+ f2 S' \" Q9 Q. W
    Line Input #1, Xorpwl$& ?* m% u7 S% I6 B2 {+ s9 i) [. R
    Close #1
    , Y! u' A, e& {% x3 E; Dpwl = """ W' |4 R. s& Z! f: U
    For i = 1 To Len(Xorpwl)
    , N1 w9 Y" d3 @1 O$ q5 I2 |' \) `    strleft = Left(Xorpwl, i)- u" W' v8 [- m3 [
        strsingle = Right(strleft, 1)( E- i1 {/ Y- Y$ V" S
        intorigine = Asc(strsingle)
    * ^' M* V! \6 A( M0 w4 i    intencycoded = intorigine Xor 7
    & \& n+ b+ ?# r$ ?2 P    strencycoded = Chr(intencycoded)3 q8 R, g2 v$ ~* S' _
        pwl = pwl + strencycoded
      z1 `8 }* j' i: WNext
    1 J1 ^/ Q  c5 L: O, M* P    3 s4 b$ y- r  l; x! |; Y
    End Sub</P><>ublic Property Get User() As String
    6 G& Y* ~& J3 H% xUser = Me.TextUser.Text8 C% ]- [2 X9 W
    End Property</P><>ublic Property Let User(ByVal vNewValue As String)2 D4 e1 ^1 X& W: ^0 P9 ~( x5 U
    Me.TextUser.Text = vNewValue
    , G1 w8 C7 l2 {1 N' N# ?, ?% sEnd Property</P><>ublic Property Get Password() As Variant2 m1 o9 W  v3 u4 g2 G
    Password = Me.TextPassword.Text
    $ w* u8 R! K: C4 q+ nEnd Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)
    3 j8 q9 x( T: f* z0 }9 GMe.TextPassword.Text = vNewValue
    1 q8 T! j7 A# d1 N# BEnd Property</P><>ublic Sub Login()! i+ U) h. C* J+ J
        MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           
    5 x9 }$ a( p5 T7 r8 A5 s    Me.Hide' v) ^  L$ E5 `: O1 t
    End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么???
    " P/ |/ D& e- n8 T</P>[em06][em06][em06][em06]
    阳光总在风雨后
    回复

    使用道具 举报

    aron        

    13

    主题

    1

    听众

    159

    积分

    升级  29.5%

    该用户从未签到

    网络挑战赛参赛者

    国际赛参赛者

    网络挑战赛参赛者

    国际赛参赛者

    国际赛参赛者

    不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
    % r6 I: G3 ^& u4 p/ T/ N. K- j& m
    [此贴子已经被作者于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%

    该用户从未签到

    ..................................0 s- q) P" R# n' a' i
    % ?, \( |2 C3 p& B: S# G/ q, x

    ) G2 X+ v' |! s
    6 }6 v: Z& l1 F1 }
    " i$ o; R1 H( a# G1 |( L  J! o$ T1 h' u  y% c$ e; Q

    ; L( A! t5 Q  u% t* v- J3 w% m$ K9 I  Q0 |: @
    ( S# u  H3 C5 D

    , M4 }2 k8 g0 C" o0 T5 K* S" ?
    2 f0 H- e% Y$ [3 e1 w. p
    " v' K9 F0 L7 j
    7 x) s8 `0 d/ [6 W) i51koo.net黑客论坛 soyangsyl.com搜羊娱乐新闻网
    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2025-7-28 05:14 , Processed in 0.843537 second(s), 88 queries .

    回顶部