Jump to content


Photo

Primeira Classe Em Vb.net (avaliem)


  • Faça o login para participar
4 replies to this topic

#1 Titicolas

Titicolas

    Normal

  • Usuários
  • 78 posts
  • Sexo:Não informado

Posted 29/02/2008, 15:29

Pessoal, comecei a mexer com classes em VB.net e crei uma classe pra faciliar na hora de fazer uma pesquisa no banxo SQL SERVER.

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 Namespace

Modo 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.


#2 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 04/11/2017, 21:56

Zithromax Boots cialis levitra sales viagra Find Cialis Without Prescription Products For Longer Lasting Erections

#3 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 04/11/2017, 23:57

Soft Viagra Propecia Irreversible Side Effects viagra Generique Baclofen En Canada Can I Take Tylenol With Amoxicillin
Discount Coupon For Celebrex Cialis 5 Mg Confezione vardenafil online pharmacy Uso Del Viagra En Jovenes Revatio Order Tadafalil Jelly Uk

#4 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 27/11/2017, 14:24

Dutasteride No Doctor Buy Alli Diet Pills Online viagra Cybalta Overnight Forum Viagra Moins Cher
Cialis Vente Suisse Viagra Scaduto Conseguenze Mediche Buy Tamoxifen In Australia viagra online prescription Farmaco Equivalente Priligy Achat Sildenafil 25 Mg Amoxicillin And Probiotics

#5 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 02/12/2017, 02:04

Cialis Temoignage Propecia Cost Rite Aid cialis Zithromax Sales Prix Du Kamagra Cialis Levitra
Generic Propecia Safe Buy Qsymia Without A Prescription low cost levitra Amoxicillin And Bleeding




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq