Usuário com melhor resposta
Alguem me ajuda a converter este codigo de C# para Vb.Net e Linq To Sql?

Pergunta
-
Boa tarde!
Alguem me ajuda a converter este codigo para vb.net e linq to sql? Este é um poste de alguem e eu to com a mesma dificuldade e quero fazer a mesma coisa, mas to a usar Vb.Net e Linq to Sql, alguem me ajuda a fazer a mesma coisa?
Segue abaixo o Código cs do formulário com todas as operações, o mesmo está todo comentado!
using
System;
using
System.Data.SqlServerCe;
using
System.Windows.Forms;
namespace
DataGridViewParaBD
{
public
partial
class
Form1 : Form
{
public
Form1()
{
InitializeComponent();
}
private
void
Form1_Load(
object
sender, EventArgs e)
{
CarregaGrid();
//informo quantas colunas
//o dgvClientes térá
dgvClientes.ColumnCount = 3;
//Informo os nomes das colunas do dgvClientes
dgvClientes.Columns[0].Name =
"Nome"
;
dgvClientes.Columns[1].Name =
"E-mail"
;
dgvClientes.Columns[2].Name =
"Telefone"
;
}
//Clique do botão adicionar
//insiro os itens no dgvclientes
private
void
btnAdicionar_Click(
object
sender, EventArgs e)
{
dgvClientes.Rows.Add(txtNome.Text, txtEmail.Text, txtTelefone.Text);
//limpo os controles
txtNome.Text = String.Empty;
txtEmail.Text = String.Empty;
txtTelefone.Text = String.Empty;
}
//Método para Inserir que
private
void
Inserir()
{
//Instância da conexão onde passo a
//ConnectionString
var
conn =
new
SqlCeConnection(
@"Data Source=|DataDirectory|\Exemplo.sdf"
);
//sql que será executado na tabela cliente
var
sql =
"INSERT INTO Cliente (Nome, Email, Telefone) "
+
"VALUES (@Nome, @Email, @Telefone)"
;
//instância do comando onde passo
//o sql e a conexão como parâmetro
var
cmd =
new
SqlCeCommand(sql, conn);
//abro a conexão
conn.Open();
//percorro o DataGridView
for
(
int
i = 0; i < dgvClientes.Rows.Count - 1; i++)
{
//limpo os parâmetros
cmd.Parameters.Clear();
//crio os parâmetro do comando
//e passo as linhas do dgvClientes para eles
//onde a célula indica a coluna do dgv
cmd.Parameters.AddWithValue(
"@Nome"
,
dgvClientes.Rows[i].Cells[0].Value);
cmd.Parameters.AddWithValue(
"@Email"
,
dgvClientes.Rows[i].Cells[1].Value);
cmd.Parameters.AddWithValue(
"@Telefone"
,
dgvClientes.Rows[i].Cells[2].Value);
//executo o comando
cmd.ExecuteNonQuery();
}
//Fecho conexão
conn.Close();
}
//cçlique do botão Gravar
private
void
btnGravarNoBD_Click(
object
sender, EventArgs e)
{
//Chamo o método
Inserir();
CarregaGrid();
//limpo as linhas no DataGridView
dgvClientes.Rows.Clear();
}
//Método para carregar o dataGridView1
//com os dados persistidos na base
private
void
CarregaGrid()
{
//limpo as linhas
dataGridView1.Rows.Clear();
//indico o número de colunas
dataGridView1.ColumnCount = 4;
//Instância da conexão onde passo a
//ConnectionString você tem que passar a sua
var
conn =
new
SqlCeConnection(
@"Data Source=|DataDirectory|\Exemplo.sdf"
);
//sql que será executado na tabela cliente
var
sql =
"SELECT * FROM Cliente"
;
//instância do comando onde passo
//o sql e a conexão como parâmetro
var
cmd =
new
SqlCeCommand(sql, conn);
//abro a conexão
conn.Open();
//instâncio o leitor
var
leitor = cmd.ExecuteReader();
//enquanto leitor está lendo
while
(leitor.Read())
{
//insiro os dados no dataGridView1
dataGridView1.Rows.Add(leitor[0].ToString(),
leitor[1].ToString(),
leitor[2].ToString(),
leitor[3].ToString());
}
//fecho conexão
conn.Close();
}
}
}
Obrigado e aguardo
Daniel Rosa Iniciante de programação em vb.net, linq sql e Sql server
Respostas
-
Amigo, respondi o seu tópico aqui:
http://social.msdn.microsoft.com/Forums/pt-BR/46189e9b-ac76-4175-b1c3-5e73eb4154ce/como-converter-um-codigo-escrito-em-c-para-vbnet-e-linq-to-sql?forum=linqpt&prof=requiredNão crie tópicos repetidos, por favor ^^
- Marcado como Resposta danielbeneditorosa segunda-feira, 12 de maio de 2014 15:13