Question

vb使用update更新access数据问题，求大神

Public Sub Command1_Click()
Dim skey As String
Dim id As Integer
Dim x As Integer
skey = Form1.ListView_dt.SelectedItem.Key
If Form1.ListView_dt.SelectedItem Is Nothing Then
Exit Sub
End If
id = Mid(skey, 3, Len(skey) - 2)
x = MsgBox("你确定要删除此行记录吗", vbYesNo, "提示")
If x = 6 Then
gcncon.Execute ("update studinfor set id=" & Textid.Text)
Form1.loaddate1
End If
End Sub
这是我的代码，运行后系统说不能更新“id”，字段不可更新，图是我的VB界面

Answer 1

你的数据库里面的ID如果是自动编号的话,那当然是无法更新的!
程序并没有问题,你的ID字段肯定是自动编号造成的!

从你的图片中可以看出，你的学号字段为文本型的，所以得用以下语句来更新！
更新学号如下:
sql = "UPDATE studinfor set xh = '" & 学号文本框.Text & "'"

如果你要加上条件判断的话，得这样处理！

sql = "UPDATE studinfor set xh = '" &学号文本框.Text & "' where id="&Textid.Text

Answer 2

不理解的是为什么你要update，不是直接使用delete操作数据库。

gcncon.Execute ("DELETE studinfor.* FROM studifor WHERE studinfor.id='" & textid.text & "';")

另外，操作时确认你的数据库是open的。

追问

不是，我想实现用SQL语句来更新access中的数据，而不是删除数据，

追答

你用SQL操作完数据库类型后，直接使用

gcncon.update
就可以了

追问

它又提示EXECYTE后需要查询名称，，囧了，，求大神帮助，

追答

是这样的，我不太了解你的程序要干什么，方便的化可以把代码发到我的GMAIL邮箱，我可以帮你调试一下。

追问

行，我给你发过去，给个邮箱吧。谢啦，，

追答

发信息给你了gmail的

追问

为什么我的邮件被你评为垃圾邮件给退回来了？》？

追答

你是不是在包中包含了已经编译的EXE文件？删掉EXE试试，不行发hotmail，其他一样

Answer 3

确认数据库id不是自动编号

追问

Public Sub Command1_Click()
Dim skey As String
Dim sql As String
Dim id As Integer
Dim x As Integer
skey = Form1.ListView_dt.SelectedItem.Key
If Form1.ListView_dt.SelectedItem Is Nothing Then
Exit Sub
End If
sql = "UPDATE studinfor SET xh = " & Textid.Text
End Sub
那这个代码没错，为什么运行后改不了呢？没有任何的变化