Tendo o conhecimento para criar e usar uma conexão ADO com SQL Server você pode economizar tempo quando você precisa consultar dados de um banco de dados. SQL Server é um sistema de gerenciamento de banco de dados relacional comumente usado para criar grandes bases de dados disponíveis para múltiplos usuários em vários locais. Você pode usar conexões ADO em várias linguagens de programação , o exemplo usa o Microsoft Visual Basic.NET . VB.NET é uma linguagem de programação orientada a objeto que é relativamente fácil de aprender e usar. Coisas que você precisa
Microsoft Visual Basic Express & Microsoft SQL Server
Show Mais instruções
1

Abra o Microsoft Visual C # Express e selecione " New Project ... " no painel esquerdo da tela. Clique em " Visual Basic " em " Modelos Instalados " duplo clique "Windows Forms Application ".
2

Clique no painel " Ferramentas " e clique duas vezes em "Button" para adicionar um novo botão ao 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 ADODB
4

Digite o seguinte para declarar as variáveis ​​abaixo " Button1_Click " :

Dim con as New ADODB.Connection

Dim rst as New ADODB.Recordset Dim

sXMLResult as String
5

Digite o seguinte para abrir a conexão com o seu banco de dados SQL Server:

con.ConnectionString = "Provider = SQLNCLI10 ; " _

& " server = o nome do servidor ; " _

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

e " Integrated Security = SSPI ; "_

&" DataTypeCompatibility = 80 ; "_

&" MARS Conexão = false; "

con.Open ()
6

Digite o seguinte para consultar uma tabela de banco de dados SQL Server:

rst.ActiveConnection = con

rst = con.Execute ( "SELECT tabela.campo FROM TableName ;")
7

Digite o seguinte para percorrer todos os registros na sua tabela :

Enquanto (Não rst.EOF )

sXMLResult = rst.Fields ( " fieldName " ) . Valor

MsgBox ( sXMLResult )

rst.MoveNext ()

End While
8

Digite o seguinte para fechar conexão e liberar variável da memória :

con.Close ()

con = Nada

Pressione " F5" para executar o programa em seguida, clique em " Button1 ".