|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Banco de Dados)
|
|
 |
Título da Dica: Efetuar leitura no banco de dados com OLEDBDataReader
|
 |
|
|
|
Postada em 3/4/2006 por Marco de A. F.
marco_mw@hotmail.com
'Código simples para efetuar leitura em um banco de dados usando OLEDBDataReader
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cn As New OleDbConnection
Dim codigo As String
Dim nome As String
Dim conn As New OleDbConnection()
Dim cmd As OleDbCommand = conn.CreateCommand
conn.ConnectionString = "Provider=SQLOLEDB;Password=TIGRE177;Persist Security Info=false;User ID=sa;Initial Catalog=bdTeste;Data Source=192.168.0.2"
cmd.CommandText = "Select * from clientes"
conn.Open()
Dim leitor As OleDbDataReader = cmd.ExecuteReader
leitor.Read()
codigo = leitor("Cod_cli")
nome = leitor("Nome_Cli")
leitor.Close()
conn.Close()
End Sub
End Class
|
|
|
|
|
