|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: ADO .Net, efetuando consultas no Banco de dados com DataSet
|
 |
|
|
|
Postada em 20/4/2007 por Marco de A. F.
marco_mw@hotmail.com
'Referencia a classe de manipulação de dados SQL Server
Imports System.Data.SqlClient
'Função para retornar o data set
Public sub Consulta()
Dim ds As New DataSet 'Instancie o DataSet
Dim daClientes As SQLDataAdapter 'Instacie um objeto DataAdapter
Dim intCodigo As Integer, strNome As String
daClientes = New SqlDataAdapter("SELECT cd_cliente, nm_cliente FROM tbClientes ORDER BY 1", StringConexao)
daClientes.Fill(ds) 'Populando o DataSet
intCodigo = ds.Tables(0)!cd_cliente
strNome = ds.Tables(0)!nm_cliente
End Function
|
|
|
|
|
