Saber como acessar interfaces OLE e ActiveX pode dar-lhe mais poder sobre como recuperar dados a partir de uma variedade de fontes. Um objeto OLE também é comumente referido como um controle ActiveX. ActiveX é realmente apenas um outro nome para um objeto OLE . Faça uma conexão Microsoft SQL Server usando o ActiveX Data Objects ( ADO ) para consultar uma tabela de banco de dados. Também fazer uma conexão OLEDB para um banco de dados Microsoft Access para criar uma nova tabela. Ambos os objetos podem ser usados em várias linguagens de programação , mas neste exemplo, você vai usar o Visual Basic. NET . Coisas que você precisa
Microsoft Visual Basic Express & banco de dados Microsoft SQL Server
Microsoft Office Access
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 " e dê um duplo clique com o botão "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 ".
3
Clique em " Referências " e selecione " Adicionar ". Selecione "COM" e clique em " Microsoft ActiveX Data Objects 4
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
5
Copie e cole o seguinte em " Button1_Click " para criar uma conexão OLE e criar uma tabela em um banco de dados Access :
Dim OLEConn Como OleDbConnection
Dim OLECmd Como OleDbCommand
Dim strSQL As String < br >
OLEConn = New OleDbConnection _
( "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ Adamastor 2007.accdb ;")
OLEConn.Open ( )
strSQL = " CREATE TABLE ThisTable " _
& " (nome CHAR , Sobrenome CHAR ); "
OLECmd = New OleDbCommand ( strSQL , OLEConn )
OLECmd.ExecuteNonQuery ()
OLEConn.Close ()
Editar " Source = C: \\ Adamastor 2007.accdb " e digite o caminho eo nome para o seu banco de dados Access < br. >
6
Copiar e colar na linha seguinte o seguinte código para criar uma conexão ADO para um SQL Server e consultar uma tabela de banco de dados :
Dim ADOConn as New ADODB.Connection
Dim ADORst As New ADODB.Recordset Dim
ADORslt As String
ADOConn.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; "
ADOConn.Open ()
ADORst.ActiveConnection = ADOConn
ADORst = ADOConn.Execute ( "SELECT tabela.campo FROM TableName ; ")
Enquanto (Não ADORst.EOF )
ADORslt = ADORst.Fields ( " fieldName " ) Valor
MsgBox ( ADORslt )
< . p> ADORst.MoveNext ()
End While
ADOConn.Close ()
ADOConn = Nothing
