data.vb

在线SQL数据库企业管理器在线SQL数据库企业管理器

Imports System
Imports System.Collections
Imports System.Data
Imports System.Web
Imports System.Data.SQLClient

Namespace MLP.Data


    Public Class Data
    
    
    dim _Sqlstmt as string
    Dim _context As HttpContext = HttpContext.Current
    dim _ConString as string = _Context.session("MyConString")  
   


    
	Public Readonly Property ConString as string
	    	Get
	    		Return (_Constring)
	    	End Get
	End Property
	    
	Public Readonly Property Sqlstmt as string
	    	Get
	    		Return (_Sqlstmt)
	    	End Get
	End Property

	
  	Public Function GetData(s as string) As SqlDataReader
  	         Dim _con As sqlconnection = new SQLConnection(_ConString)
            Dim DR as sqlDataReader
	         _con.open()
	      	Dim myCommand As sqlCommand = New sqlcommand(s, _con)
          	DR = myCommand.ExecuteReader()
          	Return DR
         	_con.close()
         	dr.close
         	
     	End Function

	Public Function Parse(S)
		If s <> "" Then 
      			Return s.replace("'", "''")
      		End If 
   	End Function
   	
   Public Function GetDataSP(s as string) as SqlDataReader
      Dim _con As sqlconnection = new SQLConnection(_ConString)
		_con.open()
		dim cmd as sqlCommand = New sqlCommand(s, _con)
		cmd.CommandType = CommandType.StoredProcedure
      return cmd.ExecuteReader()
   	_con.close
  	   _con = Nothing	
	   
	        
	end function	
	
	Public Function GetDataSPA(s as string) as SqlDataReader
	   Dim _con As sqlconnection = new SQLConnection(_ConString)
		_con.open()
		dim cmd as sqlCommand = New sqlCommand(s, _con)
		Return cmd.ExecuteReader()
 	   _con.close
		_con = Nothing	  

	        
	end function	
	
	Public Function ExecuteCmd(s as string) as String
	   Dim _con As sqlconnection = new SQLConnection(_ConString)
		_con.open()
		dim cmd as sqlCommand = New sqlCommand(s, _con)
	        return cmd.ExecuteNonQuery()
	        _con.close
	        
	end function
	
	Public Function Execute(s as string) as String
	   Dim _con As sqlconnection = new SQLConnection(_ConString)
		_con.Open()
		dim cmd as sqlCommand = New sqlCommand(s, _con)
	        return cmd.ExecuteNonQuery()
	        _con.Close
	end Function
	
	'Public Function Execute(sql as string) as sqldatareader
'		dim cmd as sqlCommand = New sqlCommand(s, _con)
'	        return cmd.ExecuteReader()
	'End function
	
	Public Function ExecuteCmdRtn(s as string) as string
		  Dim _con As sqlconnection = new SQLConnection(_ConString)
		  dim sqlstmt as String
		
		  _con.open()
		  Dim cmd as sqlCommand = New sqlCommand(s, _con)
        cmd.ExecuteNonQuery()
            
        SqlStmt = "SELECT @@IDENTITY AS IDVal"
        cmd = New SQLCommand(SqlStmt, _Con)
            
        return  cmd.ExecuteScalar()
        _con.close()
 	end function
	
   Public Function EOF(r as sqldatareader) as boolean
        	Dim f as boolean = true
        	
        	If r.fieldcount > 0 Then 
        		f = false
        	Else
        		f = true
        	End If 
        	'While r.read()
        	'	f = false
        	'End While
        	
        	Return f
        	
   End Function
        	
    
	Public Sub New()
	    _sqlstmt = ""
	   
	End Sub
	
	Public Sub Destruct()

	end sub 
    end class
  


End Namespace