VB update where更新Access

来源：百度知道 编辑：UC知道 时间：2024/07/04 01:41:28
表：发行控制，只有2个元素：发行最大和票种。我用COMBOBOX确定已有的票种（文本），然后更新该票种的发行最大（数字）
我的代码如下：
OleDbConnection1.Open()
Dim str1 As String = "Update 发行控制 Set 发行最大=" & Tmax.Text & "where 票种='" & ComboBox1.Text & "'"
Dim com As OleDbCommand = New OleDbCommand(str1, OleDbConnection1)
OleDbConnection1.Close()

更新没有成功。。。
看不懂。没有学Oracle。我现在是用Access做数据库来连的，而需要更新的这个部分是该数据库的第2张表。

"Update 发行控制 Set 发行最大=" & Tmax.Text & "(这有一个空格)where 票种='" & ComboBox1.Text & "'"

而且你的sql没有执行啊
你贴的代码太少了 所以我写的例子你看看
Public Function Update(ByVal ds As Data.DataSet) As Data.DataSet
Dim con As New OracleConnection("user id=KUMAMOTO;password=kumakuma;Data Source=dldb02")
Dim daCust As New OracleDataAdapter("Select * From MAST0000", con)
Dim cbCust As New OracleCommandBuilder(daCust)
daCust.Update(ds, "MAST0000")
Return ds
End Function