STRING COM APOSTROFO

ALTAIR148 17/11/2011 21:13:25
#389332
Cara o correto mesmo é passar por parâmetros.
DANLEONHART 18/11/2011 08:16:23
#389351
Beleza ALTAIR148...

Só me mostra um exemplo de como posso fazer um SELECT WHERE comparando uma variável com um Campo da Tabela...
Tipo: [txt-color=#0000f0]SELECT CAMPO FROM TABELA WHERE CAMPO=variavel[/txt-color]

Dessa maneira que você explicou (com parâmetros)...
ALTAIR148 18/11/2011 08:37:48
#389352
Bom fica quase da mesma forma que lhe passei para o insert. Não testei aqui mas fica +/- assim. 

Dim Select As New OleDbCommand([Ô]Select * from tb_cliente where Clien_ID = @Cliente_ID)
        Select.Parameters.AddWithValue([Ô]@Cliente_ID[Ô], txtID_Cliente.Text)
DANLEONHART 20/11/2011 18:37:28
#389531
ALTAIR...
Citação:



Dim Inserir As New OleDbCommand([Ô]INSERT INTO CLIENTES(NOME,ENDERECO,CIDADE)[Ô] & _
[Ô]VALUES(@Nome, @Endereco, @Cidade[Ô])
Inserir.Parameters.AddWithValue([Ô]@Nome[Ô], TxtNome.Text)
Inserir.Parameters.AddWithValue([Ô]@Endereco[Ô], txtEnd.text)
Inserir.Parameters.AddWithValue([Ô]@Cidade[Ô], txtCidade.text)

Dim Con2 As New OleDbConnection(Scon)
Con2.Open()
Dim Cmd2 As New OleDbCommand(Inserir, Con2)
Cmd2.ExecuteNonQuery()

MessageBox.Show([Ô]Dados Salvos com Sucesso ![Ô], [Ô]VB.NET 2010[Ô], 0, MessageBoxIcon.Information)


Altair Pereira



Não foi não cara... quando vou declarar o 2º Command o VS diz que não pode converter um Comando OleDB para String...
é com dois OleDBCommand mesmo ???
bem, nunca fiz assim...por isso pergunto...
ALTAIR148 20/11/2011 21:26:08
#389542
Amigo agora tem que fazer umas modificações, vc tem que chamar a conexao no final da SQL. 

Con2.Open()
  Dim Inserir As New OleDbCommand([Ô]INSERT INTO CLIENTES(NOME,ENDERECO,CIDADE)[Ô] & _
                                [Ô]VALUES(@Nome, @Endereco, @Cidade)[Ô], Con2)
        Inserir.Parameters.AddWithValue([Ô]@Nome[Ô], TxtNome.Text)
        Inserir.Parameters.AddWithValue([Ô]@Endereco[Ô], txtEnd.text)
        Inserir.Parameters.AddWithValue([Ô]@Cidade[Ô], txtCidade.text)
             inserir..ExecuteNonQuery()
Con2.close



O codigo abaixo foi um que fiz um teste aqui e funcionou perfeitamente.


 Dim Con2 As New OleDb.OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\exemplo.mdb;[Ô])
        Con2.Open()
        Dim Inserir As New OleDbCommand([Ô]INSERT INTO tb_contas(descricao)[Ô] & _
                                [Ô]VALUES(@Nome)[Ô], Con2)
        Inserir.Parameters.AddWithValue([Ô]@Nome[Ô], [Ô]44[Ô])
        Inserir.ExecuteNonQuery()
        Con2.Close()
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar