数学建模社区-数学中国

标题: 用VB连Access做的数据库，Action X部件不能创建对象 [打印本页]
作者: sally    时间: 2004-6-2 13:10
标题: 用VB连Access做的数据库，Action X部件不能创建对象
<>请教各位</P>
2 `) T3 R: ]) Z9 u/ a: B<>郁闷ing</P>. f+ g* ?! o5 G! b3 I
[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()+ I* @* w3 r  |, ^6 Y, p: ~( l$ g" \
Unload Me8 Y! m7 Y" q& v* V
End Sub$ K2 Z9 E! I' I' J; V) U- c
Private Sub cmdOK_Click()/ \+ U* K2 }+ q
If Me.User = "111" And Me.Password = "111" Then
5 f& y! l: H6 ^. K    Call Login8 r0 Q: ?/ b& ]5 {( w5 G2 p! P
    Load FrmCourse# |: Z- ]" R( z, o5 l
    FrmCourse.Show) a( s8 N) l3 B2 F; V# }& f: p2 ^
    FrmCourse.Visible = True, w  |8 w4 S- ?% n8 l2 W
    Unload Me
* A0 I. }4 R7 F+ ^  B    'FlagOpen = True
2 i+ c8 p6 j/ k* NElse) {1 |, |' _' E# J  [" W; `
    MsgBox "用户名或密码输入不正确!"
6 f, ]7 O/ y! c8 \4 G. o    'FlagOpen = False
& ^  K, B6 U: q4 p! T+ y  d. GEnd If
- O0 p3 \% d# xEnd Sub</P><>rivate Sub Form_Load()
2 E5 {6 S# Z( l' B& p4 _0 a'MsgBox "SELECT 学生姓名 FROM　学生和课程 WHERE 学生成绩 &gt; 80"1 T- D* [4 q) I8 x* U# j* Q
Dim strleft, strsingle, strencycoded As String
. V- I- F2 M7 v6 i6 p5 VDim intorigine, intencycoded As Integer
# K$ x! u  u( _) p3 H'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
1 m& Q" ?- `  X' s, k8 GOpen App.Path &amp; "\" &amp; "pwl.txt" For Input As #1
3 L0 t0 Q9 j' N# V) a" \7 gLine Input #1, Xorpwl$3 M: h/ w6 F# T+ P
Close #1
% j% i$ E& K# U# {8 P; upwl = """ p, {2 @& u* ^2 @$ @6 e3 @
For i = 1 To Len(Xorpwl)3 s. [& x$ ~& A: H* K
    strleft = Left(Xorpwl, i)" D5 M$ ]1 j- q5 o. y4 i
    strsingle = Right(strleft, 1)9 |7 G3 @& ?/ f; @% v$ C, n, X
    intorigine = Asc(strsingle)
( L# u  x8 d7 B0 W/ v    intencycoded = intorigine Xor 7/ c3 @" X, T5 t+ K. `
    strencycoded = Chr(intencycoded); R2 i6 V/ A' X3 D. ~2 n
    pwl = pwl + strencycoded
( c7 {$ b! P2 I" ]- Q  t) UNext
- G4 [( t% L+ l; `) Q0 s" G   
7 O$ w5 o: G' y5 t/ FEnd Sub</P><>ublic Property Get User() As String% ?5 z" G' b# W# O; |- H
User = Me.TextUser.Text  w1 q2 [% D$ k3 V; ^1 u7 o7 K: s
End Property</P><>ublic Property Let User(ByVal vNewValue As String)5 h/ i  l" v. J! J) P1 q! u1 ^
Me.TextUser.Text = vNewValue& d5 f( |+ N8 v$ P9 O# b
End Property</P><>ublic Property Get Password() As Variant$ J4 [: W; @( O5 y& |8 p+ ]
Password = Me.TextPassword.Text$ q- P- ]$ ?- s. y3 B' W
End Property</P><>ublic Property Let Password(ByVal vNewValue As Variant)$ v1 O" k: {% l9 q! f
Me.TextPassword.Text = vNewValue
# a6 k. i5 X1 K8 L3 L: `' YEnd Property</P><>ublic Sub Login()
, W+ M( k& ^0 A4 Y$ u4 L- t3 a    MsgBox "<FONT color=#ff0000>登录成功!请指定数据库文件</FONT>。"           $ a- J  u  R" J3 X% G. G
    Me.Hide
$ h5 W( p: Q* O0 d0 P, ~2 UEnd Sub</P><>这是login.frm的程序</P><>制定的数据库就是连不上</P><>不知道怎么？？？
: Y3 F# _9 |- S" B$ ^7 f- Y</P>[em06][em06][em06][em06]
作者: aron    时间: 2004-6-3 14:29
不关程序的事,是你的dao或ado控件在系统里没注册,你把程序做成安装程序或手工regsvr32.exe c:\XXXXXXXXXXx 注册这个控件
8 C% ]: m7 q; L7 J4 \
[此贴子已经被作者于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
..................................! s3 y( C1 {* n5 D

) U* j( s+ X) H; [$ ?- ]
" {! ?( q: S% N  ?( b; R9 l1 n: |" f9 ?# ~
8 ~8 }( p7 x6 }# O; c$ m
2 W& z2 r5 @5 M! _: h$ a# u6 P

6 y! n9 v2 y% n1 ?& n2 C0 J) |9 j1 a
6 b' e1 `/ u5 m' }' s' T7 z8 p3 i+ r- |

3 B8 {- o; }7 _* |$ m9 E% r
% f, U6 e/ x; i/ w% m8 T; D+ `* g: d7 z! U+ _
9 J- Q; Y4 }1 V- e3 U  \8 z
51koo.net黑客论坛　soyangsyl.com搜羊娱乐新闻网



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