'**********************************************************
'以下为vb类的代码,实现获取记录集、执行SQL语句、记录读取(可以作为登录验证用)
Imports Microsoft.VisualBasic
Imports System.Data
Public Class readdata
Public conn As SqlClient.SqlConnection
Public Function data()
conn = New SqlClient.SqlConnection("Data Source=(local);Initial Catalog=test;Persist Security Info=false;integrated security=sspi")
If conn.State = ConnectionState.Open Then
conn.Close()
End If
End Function
'------------------------------------------------------------------------------
Public Function getdataset(ByVal sql As String) As System.Data.DataSet
Dim sl As New Data.DataSet
Try
Call data()
conn.Open()
Dim sda As New SqlClient.SqlDataAdapter(sql, conn)
sda.Fill(sl)
Return sl
Catch ex As Exception
MsgBox("Error")
End Try
'conn.Close()
End Function
'-----------------------------------------------------------------------------------
Public Function execsql(ByVal sql As String) As Integer
Try
Call data()
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
conn.Open()
Return sqlcmd.ExecuteNonQuery
Catch ex As Exception
MsgBox("Error_ExEc")
End Try
'conn.Close()
End Function
'---------------------------------------------------------------------------------
Public Function readsql(ByVal sql As String) As SqlClient.SqlDataReader
Try
Call data()
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
conn.Open()
Return sqlcmd.ExecuteReader
Catch ex As Exception
MsgBox("Error_ExEc")
End Try
'conn.Close()
End Function