Programação

 Por: Ogro    10:24  trabalho   Sem Comentarios

Dim cn As OleDbConnection = New OleDbConnection()
Dim cmd As OleDbCommand = New OleDbCommand()
Dim dr As OleDbDataReader

cn.ConnectionString = ConfigurationManager.ConnectionStrings("AC2007").ConnectionString
cmd.Connection = cn

cmd.CommandText = "INSERT INTO [tbl_prod_orc] ( [ORC], [PROD1], [QTDE1], [UNID1], [VLR1]) VALUES (@ORC, @PROD, @QTD, @UNID, @VLR)"

cmd.Parameters.Add(New OleDbParameter("@ORC", LblID.Text))
cmd.Parameters.Add(New OleDbParameter("@PROD", DropDownList5.SelectedItem.Value))
cmd.Parameters.Add(New OleDbParameter("@QTD", TextBox1.Text))
cmd.Parameters.Add(New OleDbParameter("@UNID", DropDownList4.SelectedItem.Value))
cmd.Parameters.Add(New OleDbParameter("@VLR", TextBox3.Text))

dr = cmd.ExecuteReader()

cmd.Parameters.Clear()

dr.Close()

---

Às vezes eu percebo o quão é estranho o que faço pra ganhar a vida...