# 有关安装后的问题(为何有些pc可正常执行,有些却不能)

Posted by kevin-tang on October 15, 1999 at 15:41:43:

我在Win95 4.00.950 B版中, 使用 VB 5.0 专业版写了一个程式,只有利用到两个资料库,一个用来查询比对,另一个资料库则存比对到的结果. vu;6程式后,在有些PC可安装,有些PC安装后执行却出现如下的错误讯息,看半天也不知道要如何做 ?烦请您解答说明,小弟感激不尽。

error message:
"当呼叫 Jet VBA 档案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll 用在 32 位元版本) 时，无法起始设定。请重新安装传回错误的应用程式 (错误 3447)"

source code
Private Sub Form_Load()
Dim TextLine
Dim fnum As Integer

*******************************************
******若用F8逐步trace,错误在下一行*******
*******************************************
Data2.Refresh
Data2.Recordset.Index = "STRNO"
fnum = FreeFile
Open "c:\credit\price.txt" For Input As #fnum
Do While Not EOF(fnum)
Line Input #fnum, TextLine
Combo1.AddItem TextLine
Loop

Close #fnum
End Sub

Private Sub Command1_Click()
Dim t As Long
Dim price_no As Integer
Dim price_item As String
Dim isnullok As Boolean
Dim text1string As String * 15

Data2.Recordset.MoveFirst
t = Val(Text1.Text)
Data2.Recordset.Seek "<=", t
If t >= Data2.Recordset("STRNO") And t <= Data2.Recordset("ENDNO") Then
'write data to winner database
Datawinner.Recordset.AddNew
'Field0-WNU
Datawinner.Recordset.Fields(0) = Val(Mid(CStr(Combo1.Text), 1))
'Field1-WIDNO
isnullok = IsNull(Data2.Recordset.Fields(1).Value)
If Data2.Recordset.Fields(1).Value = "" Or isnullok Then
Datawinner.Recordset.Fields(1) = " "
Else
Datawinner.Recordset.Fields(1) = Data2.Recordset.Fields(1).Value
End If
'Field2-WNAME
isnullok = IsNull(Data2.Recordset.Fields(2).Value)
If Data2.Recordset.Fields(2).Value = "" Or isnullok Then
Datawinner.Recordset.Fields(2) = " "
Else
Datawinner.Recordset.Fields(2) = Data2.Recordset.Fields(2).Value
End If
：
：
Datawinner.Recordset.Update
Else
For I = 0 To 11
Text2(I).Text = ""
Next
Beep
Text2(1).Text = "无符合此彩号之资料！！"
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

Follow Ups: