【IT168 技术资源】

        有时候，我们需要在程序中执行SQL语句，例如在一个按钮的CLICK事件中需要完成更新数据库中某个记录的某个列的值。
假设表名为A，列名Enter_Sign，需要执行的SQL语句为：Update A set Enter_Sign=1 Where Project_id=proid（假定该语句中proid是一个string类型变量），我们可以采用如下方式实现，代码如下：

Dim adpt As OleDb.OleDbDataAdapter
Dim strsql As String
Dim strLinkoracle As String

‘连数据库语句
strLinkoracle = "Provider=" & """" & "OraOLEDB.Oracle.1" & """" & ";User ID=system;Data Source=mi;Extended Properties=;Persist Security Info=True;Password=wonton"
’sql
strsql= "Update A set Enter_Sign=1 Where Project_id="
strsql= strsql + “‘”+proid+“’”
adpt = New OleDb.OleDbDataAdapter(strSelect, strLinkoracle)
adpt.Fill(dtset, "aa")