Pesquisa

Pesquisa personalizada

quinta-feira, 31 de março de 2011

Executando um Comando SQL em VB.NET - Compact Framework

Banco  , Variável,  Comando SQL, Conexão,  Read, SqlCeCommand, Compact Framework,  VB.NET
Como executar um comando SQL em VB.NET Compact Framework

Primeiro passo é incluiar a biblioteca
  • Imports System.Data.SqlServerCe
Após dentro do procedimento que deseja executar o comando SQL;

Declare uma variável responsável pelo caminho do BANCO;

  • Dim dir As String = ""
Inicia a variável com o caminho onde esta o banco (neste caso o banco esta no mesmo diretório que a aplicação)
  • dir = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
Declare a variável de conexão com o banco, com o caminho completo;
  • Dim string_conexao As String = "Persist Security Info=False; datasource=" & dir & "\NomeDoBanco.sdf"
Declare a variável responsável por abrir e fechar a conexão com o Banco;
  • Dim conexao_db As New SqlCeConnection(string_conexao)
Abra a conexão
  • conexao_db.Open()
Declare a variável responsável por receber o comando SQL;
  • Dim Sql As String = ""
Abra um bloco try para executar o comando SQL;
  • Try
Inicie a variável com o comando SQL desejável;
  • Sql = "SELECT campo1 FROM tabela"
Declare a variável que fará a execução do comando;
  • Dim comando_sql As New SqlCeCommand(Sql.ToString, conexao_db)
Execute o comando de leitura e guarde em uma variável resutado
  • Dim resultado As SqlCeDataReader = comando_sql.ExecuteReader()
Execute a leitura do resultado do SQL;
  • While resultado.Read()
Declare auma variável que receberá o resultado do campo;
  • Dim campo As Integer = 0
Atribua ao campo o valor do resultado ( verifique o indice, e o tipo do campo do banco de dados que dever o mesmo da variável que irá receber )
  • campo = resultado.GetValue(0)
Finaliza o laço de leitura
  • End While
Finaliza o bloco try
  • Catch ex As Exception
  • MsgBox("Erro ao executar o comando! " + ex.Message, MsgBoxStyle.Critical, "Erro")
  • End Try
Finaliza a conexão com o banco
  • conexao_db.Close()

Com esse passo a passo é possivel executar qualquer comando SQL e jogar os valores nas variáveis;