A última versão do Visual Basic fornece uma camada de acesso a dados ricos que permite abstração orientada a objetos dos dados utilizados em um aplicativo. Às vezes, no entanto, é mais eficiente, mais rápido ou mais prático simplesmente executar um script SQL no banco de dados subjacente diretamente. Um script SQL pode conter várias instruções que devem ser executadas em conjunto ou pode ter SQL dinâmico que é gerado pela aplicação. Independentemente do motivo , a execução de scripts SQL a partir do Visual Basic não é muito difícil. Coisas que você precisa
Visual Studio 2008
Show Mais instruções
1

Crie um novo projeto Visual Basic Windows Forms no Visual Studio , selecionando New Project no menu Arquivo e selecionar o tipo de projeto apropriado. No formulário padrão que é criado , form1 , coloque um botão chamado Button1. Dê um duplo clique no controle para criar um manipulador de eventos Button1_Click .
2

No topo da listagem de código para Form1 ( acima da linha " Public Class Form1 " ) , adicione uma instrução importações para importar o arquivo. biblioteca de acesso a dados NET . A declaração deve ser semelhante a este :

Imports System.Data.SqlClient

Neste exemplo, o banco de dados é considerado um banco de dados SQL Server. Existem outras bibliotecas para bancos de dados ODBC e OLEDB .
3

Dentro da função manipulador de eventos Button1_Click, dimensionar uma variável chamada db como novo SqlConnection . Defina a propriedade seqüência de conexão para ser a string de conexão para o banco de dados e abrir a conexão de banco de dados com o método Open. O código deve ser semelhante a este :

Dim db As New SqlConnectiondb.ConnectionString = " Data Source = servername ; Initial Catalog = dbname ; Usuário Id = user ; Password = senha" db.Open ()

4

Dimensione uma variável chamada cmd como um novo SqlCommand . Defina a propriedade CommandText para ser o script SQL que está a ser executado. Finalmente , chame o método ExecuteNonQuery do objeto SqlCommand para executar o script SQL. O código deve ser semelhante a este :

Dim cmd As New SqlCommandcmd.Connection = dbcmd.CommandText = "update nome_da_tabela set campo1 = 2 onde field3 = 4 " cmd.ExecuteNonQuery ()
< br >