QQ登录

只需要一步,快速开始

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

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

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

10

主题

1

听众

95

积分

升级  94.74%

该用户从未签到

网络挑战赛参赛者

新人进步奖

跳转到指定楼层
1#
发表于 2004-6-2 13:10 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>请教各位</P>1 O9 `9 D1 |9 G9 [$ d
<>郁闷ing</P>
, q! I2 V$ D/ g* a# U+ N- ?) K4 R[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()
    5 e% H4 S  z( R: A' T! jUnload Me/ {( a5 T. ^4 _* f+ T: E
    End Sub: c- t3 C8 C  H" b( b
    Private Sub cmdOK_Click()4 K- K! Z' r4 y& I6 W9 b( ^
    If Me.User = "111" And Me.Password = "111" Then1 d3 I& `  B- G
        Call Login/ f! A" `% t) u) h
        Load FrmCourse
    * _) g5 N( Y6 y! R) [    FrmCourse.Show6 i% l  f& `% u+ Q/ G
        FrmCourse.Visible = True
    % {0 `8 X+ w8 p    Unload Me$ t8 h" o/ r1 I# Q
        'FlagOpen = True  V0 t- F5 j+ m4 N
    Else7 O6 f+ S' W$ V- L! ]
        MsgBox "用户名或密码输入不正确!"
    - ^' _: J( t, H  ]+ Q- J/ m    'FlagOpen = False
    9 _9 m. t8 Z3 qEnd If; X+ C. X/ b; k  T9 ~, U
    End Sub</P><>rivate Sub Form_Load(), T( |& n/ T, H+ m; @
    'MsgBox "SELECT 学生姓名 FROM 学生和课程 WHERE 学生成绩 &gt; 80"
    ! d" D; J6 ^- r+ W9 i; bDim strleft, strsingle, strencycoded As String2 d% C4 z. I& A
    Dim intorigine, intencycoded As Integer* t+ S; Y9 ^9 x% R
    'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    * `7 u& `+ [  W# n% LOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1" r2 L! j' c: a  o$ W6 \
    Line Input #1, Xorpwl$: o, G# q- E1 o5 j
    Close #1, G& Q) V* s, [5 K# M8 P
    pwl = ""4 |! O. T1 s, J, S6 \6 e) w( A
    For i = 1 To Len(Xorpwl)
    5 g( i' F7 Z) M( X    strleft = Left(Xorpwl, i)( m1 T$ X; @5 R6 \' M7 d$ D' i
        strsingle = Right(strleft, 1)
    6 V2 ?3 B) F% w( E# Q2 V0 O    intorigine = Asc(strsingle)) R" O5 b' U9 K" o
        intencycoded = intorigine Xor 7
    ( W  ?. u! H% M; R    strencycoded = Chr(intencycoded)
    / u8 G/ a( C1 t0 ^    pwl = pwl + strencycoded: `2 \! u) y( C! c# U
    Next3 Y4 ?. S$ [4 @* C, y* u: h
        8 G! i1 V1 ~' W! }' q! \. m
    End Sub</P><>ublic Property Get User() As String
    0 @3 c- X. t( A6 a. N/ ]User = Me.TextUser.Text
    7 Y7 }  V8 N6 t0 Z. U; PEnd Property</P><>ublic Property Let User(ByVal vNewValue As String)5 C  v, }9 e, s$ \) I
    Me.TextUser.Text = vNewValue
      O& D* `/ D: c  ZEnd Property</P><>ublic Property Get Password() As Variant8 L3 u! V8 A& H
    Password = Me.TextPassword.Text$ p$ w- |0 Z" x3 O/ W0 _
    End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)1 V, E! z" a  r' M) _/ {% X
    Me.TextPassword.Text = vNewValue/ l) M5 F( v  n# `8 j
    End Property</P><>ublic Sub Login()  |  @$ H- d6 O' S6 Y
        MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           / G% A8 C2 M% Z! d$ F5 L" o
        Me.Hide7 O  X" X  a  q. h
    End Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么???1 p6 \! K/ w( T" w2 F/ E- H' x
    </P>[em06][em06][em06][em06]
    阳光总在风雨后
    回复

    使用道具 举报

    aron        

    13

    主题

    1

    听众

    159

    积分

    升级  29.5%

    该用户从未签到

    网络挑战赛参赛者

    国际赛参赛者

    网络挑战赛参赛者

    国际赛参赛者

    国际赛参赛者

    不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件' v' X/ E8 Y% f" N. f
    [此贴子已经被作者于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%

    该用户从未签到

    ..................................% R" `# h& W) M
    $ Q: L6 `, ]$ H, i% ^

    " e2 j2 w' t! F' O/ d. o( L# M
    7 R: E1 b) A* Y  s( E6 e' I# k
      A! T6 V9 U' A1 k8 p+ r* U2 I4 h) L) c& D
    & |* S) x9 O- D9 W1 P6 W

    ) a) Y) f" b& l- K/ {6 D
    % c5 i2 F7 W) G+ K9 ?# W8 `/ Q. p/ ^/ Y6 e  C" n

    / D9 k6 |3 H; n1 ?- F7 a* i5 |7 i/ ?' v6 u; Q1 E

    + s+ D7 M* T, w( }( t8 f$ Z51koo.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-27 12:01 , Processed in 0.812919 second(s), 88 queries .

    回顶部