VB:User-defined type not defined错误是什么原因,怎么修改?

在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:我是在一个类里面写的,不知道是不是有影响,不过我也在模块和窗体代码里复制过这段代码,运行时同样会在该模块或是窗体代码的这一句那里出错。

不是initsid.ora文件,而因该是INIT.ORA文件
在Oracle安装目录下的
..\oracle\admin\IKK\pfile

..\oracle\admin\pfile
目录下分别有一个INIT.ORA文件,找到 "utl_file_dir" 参数,如果没有,则添加一行,修改成如下:
utl_file_dir=*
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-07-27
ByVal DefValue As Ineger这一句错了应该是ByVal DefValue As Integer本回答被提问者采纳
第2个回答  2011-07-27
fsdfvsgtfrsd

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网