VB.NET 三种读SQL数据库命令实例二OLEDB

Dim   myCon   As   New   OleDbConnection

          Dim   ds   As   New   DataSet

          Dim   mycmd   As   New   OleDbCommand

          Dim   myada   As   New   OleDbDataAdapter

        myCon.ConnectionString = ConfigurationManager.ConnectionStrings( "wb2012ConnectionString" ).ToString()

        myCon.Open()

          Dim   dsql   As   String   =   "delete from wbInventory where wb_cInvCode='"   + DataGridView1.CurrentRow.Cells(2).Value.ToString() +   "'"

          Dim   scmd   As   New   OleDbCommand(dsql, myCon)

        scmd.ExecuteNonQuery()

        MsgBox( " 成功删除！ " )

          Dim   sql   As   String   =   "Select top 500 * from wbInventory order by addtime desc"

        myada =   New   OleDbDataAdapter(sql, myCon)

        myada.Fill(ds)

        DataGridView1.DataSource = ds.Tables(0)

        myCon.Close()