private function gettables(byref mydatareader as oledbdatareder) as boolean '定义取得表单FUNCTION
DIM mylocaldatareader AS OLEDBDATAREADER=NOTHING‘定义数据读取对象
DIM mySuccessFlag as boolean=False'定义连接标志
'尝试进行读取数据
Try if(myConnectFlag) then'如果连接成功 mysql="select name from sysobjects where type='u' " '设置查询语句 dim mycommand as oledbcommand =new oledbcommand(mysql,myconnection) '定义命令对象 ntkicakdatareader=mycommand.executereader()'执行数据读取 mysuccessFlag=true'标志读取成功
end if
catch e as exception'出现异常，反馈信息 console.writeline(e.tostring())
end try
mydatareader=mylocaldatareader'取得数据读取对象
return mysuccessFlag'返回读取标志
end function