Tendo o conhecimento sobre a forma de acessar múltiplas fontes de dados usando o Microsoft Visual Basic.NET pode fazer sua aplicação mais dinâmica. Você pode abrir várias conexões de banco de dados para enviar comandos ou consultar dados de uma tabela do banco de dados . Neste exemplo , você criará uma conexão com o Microsoft SQL Server usando o ActiveX Data Objects ( ADO ) para consultar uma tabela de banco de dados. Você também vai fazer uma conexão OLEDB para um banco de dados Microsoft Access para criar uma nova tabela. Você pode usar ADO e Object Linking and Embedding ( OLE DB ) conexões em várias linguagens de programação . Neste exemplo, você irá usar o Microsoft Visual Basic.NET . Coisas que você precisa
Microsoft Visual Basic Express & Microsoft SQL Server Northwind banco de dados

Show Mais instruções
1

Abra o Microsoft Visual Basic Express e selecione " New Project ... " no painel esquerdo da tela. Clique em " Visual Basic " em " Modelos instalados ", clique duas vezes em "Windows Forms Application ".
2

Clique no painel " Ferramentas " e clique duas vezes em "Button" para adicionar um novo botão para seu formulário. Clique no menu " Project" e selecione "Propriedades ". Clique em " Referências" , em seguida, selecione "Adicionar ". Selecione "COM" e clique em " Microsoft ActiveX Data Objects 3

Clique duas vezes em "Button1 " para abrir o módulo " Form1.vb " . Digite o seguinte na primeira linha acima " Public Class Form1 " :

Imports System.Data.OleDb

Imports ADODB
4

Digite o seguinte sob o título " Button1_Click "para declarar as variáveis ​​de conexão OLEDB :

Dim oleDBConn Como OleDbConnection

Dim oleDBComm Como OleDbCommand

Dim sqlstr as String
5

Tipo o seguinte em " Button1_Click " para declarar as variáveis ​​de conexão ADO :

Dim adoCon como nova ADODB.Connection

Dim AdoRst as New ADODB.Recordset Dim

adoResult as String

6

Digite o seguinte para criar uma nova conexão com o banco de dados Northwind :

oleDBConn = New OleDbConnection _

( "Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C: \\ Adamastor 2007.accdb ; ") oleDBConn.Open ()

Editar" Source = C: \\ Adamastor 2007.accdb "e digite o caminho para o banco de dados Access
< . br> 7

Digite o seguinte para criar uma nova conexão ADO para o seu banco de dados SQL Server:

AdoCon.ConnectionString = "Provider = SQLNCLI10 ; " _

& " server = seu servidor nome; "_

&" banco de dados = seu nome de banco de dados; "_

e " Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; " _

& " MARS Conexão = false; "

AdoCon.Open ()
8

Digite o seguinte para criar uma nova tabela no banco de dados Northwind :

sqlstr = " CREATE TABLE ThisTable " _

& " (nome CHAR , Sobrenome CHAR ); "

oleDBComm = New OleDbCommand ( sqlstr , oleDBConn )

oleDBComm . ExecuteNonQuery ()

oleDBConn.Close ()
9

Digite o seguinte para consultar uma tabela em seu servidor SQL:

AdoRst.ActiveConnection = adoCon < br >

AdoRst = AdoCon.Execute ( "SELECT tabela.campo FROM TableName ;")

Digite o seguinte para percorrer os resultados da consulta e exibi-las através de uma caixa de mensagem :

Enquanto (Não AdoRst.EOF )

adoResult = AdoRst.Fields ( " fieldName " ) . Valor

MsgBox ( adoResult )

AdoRst.MoveNext ()

Fim Enquanto

AdoCon.Close ()

adoCon = Nothing

Pressione " F5" para executar o programa e clique em " Button1 ".