Deêm uma olhada, lembrando que ainda so meio leigo no assunto, por favor me indiquem o que posso melhorar nessa classe.
classe bancoMSSQL
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Namespace MSSQL
Public Class bancoMSSQL
Public sqlComando As Data.SqlClient.SqlCommand
Public sqlCon As Data.SqlClient.SqlConnection
Public sqlDr As Data.SqlClient.SqlDataReader
'Inicia a Classe com o contrutor New()
Public Sub New()
MyBase.New()
Me.conexao()
End Sub
'Retorna String de Conexao
Public Function conexao() As Data.SqlClient.SqlConnection
sqlCon = New Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.AppSettings("conMSSQL"))
sqlCon.Open()
Return sqlCon
End Function
'Retorna Comando
Public Function comando(ByVal sql As String) As Data.SqlClient.SqlDataReader
sqlComando = New Data.SqlClient.SqlCommand(sql, conexao())
sqlDr = sqlComando.ExecuteReader(Data.CommandBehavior.CloseConnection)
Return sqlDr
End Function
End Class
End NamespaceModo de Uso:
'Conexao em OOP
Dim msSQL As bancoMSSQL = New bancoMSSQL()
Dim sqlDataReader As Data.SqlClient.SqlDataReader
sqlDataReader = msSQL.comando("SELECT * FROM [apoio.estados] ORDER BY estado ASC")
GridView1.DataSource = sqlDataReader
GridView1.DataBind()
Edição feita por: Titicolas, 29/02/2008, 16:05.
