terça-feira, 25 de outubro de 2011

on

Imports System.Data.SqlClient

    Dim dt As DataTable
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim conBD As SqlConnection
    Dim cn As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Northwind\Northwind.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
   
Dim sSQL As String = "Select * From Customers"
conBD = New SqlConnection(cn)
ds = New DataSet

'O SqlDataAdapter preenche (popula) o DataSet, permitindo inserir, atualizar, excluir registros da tabela
'Através do método Fill, preenche ou exibe os registros por exemplo em um grid, listbox

da = New SqlDataAdapter(sSQL, cn)
da.Fill(ds, "Customers")
dt = dsVendedor.Tables("Customers")
cn.Open()

0 comentários:

Postar um comentário