在VB6.0 中,使用API函数:
Option Explicit
Private Filename As String
Declare Function GetPrivateProfileInt Lib "kernel32" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Integer
Public Sub Main()
Filename = ".\data.ini"
End Sub
Public Function GetValueN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Ineger) As Integer
GetValueN = GetPrivateProfileInt(SectionName, KeyWord, DefValue, Filename)
End Function
以上是代码段。运行时在“Public Function GetValueN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Ineger) As Integer”这一行标示出错,错误内容如题,请问是什么地方写错了?应该怎么修改呢?
谢谢!
PS:我是在一个类里面写的,不知道是不是有影响,不过我也在模块和窗体代码里复制过这段代码,运行时同样会在该模块或是窗体代码的这一句那里出错。
在Oracle安装目录下的
..\oracle\admin\IKK\pfile
和
..\oracle\admin\pfile
目录下分别有一个INIT.ORA文件,找到 "utl_file_dir" 参数,如果没有,则添加一行,修改成如下:
utl_file_dir=*