Imports System.Linq
Imports System.Net
Imports System.Net.Mail
Imports System.Data
Imports System.Data.Linq
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Globalization
''' <summary>
''' یک کلاس مفید برای کار با پایگاه داده
''' </summary>
Public Class FirstClass
Private con As SqlConnection
Public cmd As SqlCommand
Private dt As DataTable
Private da As SqlDataAdapter
Public Sub New()
con = New SqlConnection(ConfigurationManager.ConnectionStrings("WebSiteConnectionString").ConnectionString)
cmd = New SqlCommand()
dt = New DataTable()
cmd.Connection = con
da = New SqlDataAdapter(cmd)
End Sub
Public Function dbSelect(sql As String) As DataTable
Dim dttt As New DataTable()
Try
cmd.CommandText = sql
con.Open()
da.Fill(dt)
con.Close()
Return dt
Catch
con.Close()
Return dttt
Finally
con.Close()
End Try
End Function
Public Sub exeSp(spName As String)
con.Open()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = spName
cmd.ExecuteNonQuery()
con.Close()
End Sub
Public Sub exeSqlCmd(sql As String)
Try
cmd.CommandText = sql
con.Open()
cmd.ExecuteNonQuery()
Catch
Finally
con.Close()
End Try
End Sub
End Class