急急急!请教一个有关dll文件的问题

sheyanfen 2001-10-16 06:01:09
我自己做了一个dll文件,但老是编译不过,老是在trim()、split()、instr()等函数上出错,请教高手,帮忙解决,不胜感激,能送多少分我会尽量地送,谢谢!
...全文
55 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sheyanfen 2002-01-04
我给你分。
回复
letian 2002-01-04
我也来了:)
回复
sheyanfen 2001-10-17
Imports System
Imports System.Data
Imports System.Data.SQL


Namespace myclass

Public Class Mdb
Private ConnStr As String

Public Sub New ( DBName As String)
ConnStr = "server=new\myserver; uid=sa; pwd=a; database=" &DBName
sqlstring = "select * from "
End Sub

'返回某一字段的顺序号(应用于DataSet对象,field为字段名)
Public Function Field_Id(dt as DataTable,field as string) as integer
for i=0 to dt.columns.count-1
if dt.columns(i).caption=field then
Field_Id=i
end if
next
end function

'传入表名及条件,传回DataSet对象
Public Function GetDataSet(table as string, SelectSQL as string) as DataTable
Dim Cmd as SQLDataSetCommand
Dim ds as DataSet=New DataSet()
Cmd=New SQLDataSetCommand(sqlstring &table &sql_string(SelectSQL), Connstr)
Cmd.FillDataSet(ds,table)
GetDataSet=ds.tables(table)
End Function


'查找符合条件的记录中某字段有多少种值,返回各种值的集合(如:现,银,记)
Public Function count_unsame_value(Table as string,selectSQL as string,field as string)as string
dim i as integer
dim dt as datatable=GetDataSet(table,selectsql)
dim n as integer=field_ID(dt,field)
dim str1,str2 as string
if dt.rows.count>0 then
str1=trim(dt.rows(0).item(n)).tostring
for i=1 to dt.rows.count-1
str2=trim(dt.rows(i).item(n)).tostring
if not instr(str1,str2) then
str1 &= "," &str2
end if
next
else
str1=""
end if
count_unsame_value=str1
End Function

以上是我vb源文件的一部分代码,编译语名运行以后老在trim()函数上出错。
我的编译命令是:vbc /t:library /r:system.cll /r:system.data.dll 文件名.vb
回复
acsu 2001-10-16
详细一点或把源代码铁出来看看
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-10-16 06:01
社区公告
暂无公告