📄 20196.html
字号:
<html> <head> <title>有关安装后的问题(为何有些pc可正常执行,有些却不能)</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>有关安装后的问题(为何有些pc可正常执行,有些却不能)</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:kevin-tang@ms1.ccb.com.tw">kevin-tang</a> on October 15, 1999 at 15:46:18:<p><br> 我在Win95 4.00.950 B版中, 使用 VB 5.0 专业版写了一个程式,只有利用到两个资料库,一个用来查询比对,另一个资料库则存比对到的结果. vu;6程式后,在有些PC可安装,有些PC安装后执行却出现如下的错误讯息,看半天也不知道要如何做 ?烦请您解答说明,小弟感激不尽。<p>error message:<br>"当呼叫 Jet VBA 档案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll 用在 32 位元版本) 时，无法起始设定。请重新安装传回错误的应用程式 (错误 3447)"<p>source code<br>Private Sub Form_Load()<br>Dim TextLine<br>Dim fnum As Integer<p>********************************************************<br>******若用F8逐步trace,错误在下一行,无法开启资料库*******<br>********************************************************<br>Data2.Refresh<br>Data2.Recordset.Index = "STRNO"<br> <br>fnum = FreeFile<br>Open "c:\credit\price.txt" For Input As #fnum<br>Do While Not EOF(fnum)<br> Line Input #fnum, TextLine<br> Combo1.AddItem TextLine<br>Loop<p>Close #fnum<br>End Sub<p>Private Sub Command1_Click()<br>Dim t As Long<br>Dim price_no As Integer<br>Dim price_item As String<br>Dim isnullok As Boolean<br>Dim text1string As String * 15<p>Data2.Recordset.MoveFirst<br>t = Val(Text1.Text)<br>Data2.Recordset.Seek "<=", t<br>If t >= Data2.Recordset("STRNO") And t <= Data2.Recordset("ENDNO") Then<br> <br> <br> 'write data to winner database<br> Datawinner.Recordset.AddNew<br> <br> 'Field0-WNU<br> Datawinner.Recordset.Fields(0) = Val(Mid(CStr(Combo1.Text), 1))<br> <br> 'Field1-WIDNO<br> isnullok = IsNull(Data2.Recordset.Fields(1).Value)<br> If Data2.Recordset.Fields(1).Value = "" Or isnullok Then<br> Datawinner.Recordset.Fields(1) = " "<br> Else<br> Datawinner.Recordset.Fields(1) = Data2.Recordset.Fields(1).Value<br> End If<br> <br> 'Field2-WNAME<br> isnullok = IsNull(Data2.Recordset.Fields(2).Value)<br> If Data2.Recordset.Fields(2).Value = "" Or isnullok Then<br> Datawinner.Recordset.Fields(2) = " "<br> Else<br> Datawinner.Recordset.Fields(2) = Data2.Recordset.Fields(2).Value<br> End If<br> ：<br> ：<br> <br> Datawinner.Recordset.Update<br>Else<br> For I = 0 To 11<br> Text2(I).Text = ""<br> Next<br> Beep<br> Text2(1).Text = "无符合此彩号之资料！！"<br>End If<br>End Sub<p>Private Sub Text1_KeyPress(KeyAscii As Integer)<br>If KeyAscii = 13 Then<br> Command1_Click<br>End If<br>End Sub<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20196--><!--top: 20233--><li><a href="20233.html">Re: 有关安装后的问题(为何有些pc可正常执行,有些却不能)</a> <b>阿雄</b> <i>11:42:28 10/16/99</i>(<!--responses: 20233-->3)<ul><!--insert: 20233--><!--top: 20319--><li><a href="20319.html">谢谢阿雄!!，但我是用ＶＢ５封装精灵安装后，产生的问题．．．</a> <b>kevin-tang</b> <i>14:09:33 10/18/99</i>(<!--responses: 20319-->2)<ul><!--insert: 20319--><!--top: 20324--><li><a href="20324.html">Re: 谢谢阿雄!!，但我是用ＶＢ５封装精灵安装后，产生的问题．．．</a> <b>阿雄</b> <i>16:29:42 10/18/99</i>(<!--responses: 20324-->1)<ul><!--insert: 20324--><!--top: 20479--><li><a href="20479.html">Re: 再次感谢阿雄!!，但是．．．</a> <b>kevin-tang</b> <i>13:15:47 10/21/99</i>(<!--responses: 20479-->0)<ul><!--insert: 20479--></ul><!--end: 20479--></ul><!--end: 20324--></ul><!--end: 20319--></ul><!--end: 20233--></ul><!--end: 20196--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -