CRIAR BOTAO SALVAR DADOS DO VB NO ACESS

FRAJOLA11 09/06/2010 11:12:08
#344326
bom dia sou novato no vb e seguindo umas tuto consegui comecar um formulario criei os botoe abrir fechar mas não consegui fazer o botao salvar os dados do vb no exel ou acess desde já agradeco qualquer ajuda
WEBSTERGONTIJO 09/06/2010 18:43:49
#344419
caro amigo vo lhe passar um codigo meu para conexao com o banco acsses para vc ter uma ideia!! abraços

conect.ConnectionString = conns
conect.Open()

Try
comando = New OleDb.OleDbCommand([Ô]insert into VENDASM (DATA,CLIENTE,TELEFONE,MIDIA,OBSERVACAO,VENDEDOR,P_CONTATO,modelo,2PARTE) values (?,?,?,?,?,?,?,?,?)[Ô], conect)
comando.Parameters.AddWithValue([Ô]?[Ô], (CDate(DATAF.Text)))
comando.Parameters.AddWithValue([Ô]?[Ô], CLIENTEF.Text)
comando.Parameters.AddWithValue([Ô]?[Ô], TELEFONEF.Text)
comando.Parameters.AddWithValue([Ô]?[Ô], MIDIAF.Text)
comando.Parameters.AddWithValue([Ô]?[Ô], OBSERVACAOF.Text)
comando.Parameters.AddWithValue([Ô]?[Ô], VENDEDORF.Text)
comando.Parameters.AddWithValue([Ô]?[Ô], VALOR)
comando.Parameters.AddWithValue([Ô]?[Ô], MODELOF.Text)
If TextBox1.Text = [Ô][Ô] Then
VALOR1 = [Ô]NAO[Ô]
comando.Parameters.AddWithValue([Ô]?[Ô], VALOR)
Else
VALOR = [Ô]SIM[Ô]
comando.Parameters.AddWithValue([Ô]?[Ô], VALOR)

End If
comando.ExecuteScalar()


tira por base ai abraços
SAFIRI 25/10/2012 13:32:40
#412793
Tópico encerrado , respostas não são mais permitidas
Voltar