添加变量后,对其进行赋值!
Private Sub Command19_Click()Dim b As Integer
Dim num As Integer
num = 1
Dim a As Integer
Dim sql As New ADODB.Recordset
sql.Open "select name from tbltest", CurrentProject.Connection, adOpenStatic, adLockReadOnly
Do Until sql.EOF
num = num + 1
CurrentDb.Execute "update tbltest set ID ='" & num & "' where name='" & Nz(sql(0)) & "';"
sql.MoveNext
Loop
End Sub
大家好,在附件中的“赋值”按钮里,有位好心人按照我的想法,用指针写了一段代码。
实现了往tbltest表中添加一列ID,并且对ID进行赋值。
我现在的问题是:
1.您赋值按钮里有这样一句CurrentDb.Execute "update tbltest set ID ='" & num & "' where name='" & Nz(sql(0)) & "';"
为什么不能写ID=num,而要写成'" &num&"'?同样后面的name为什么也这么写,而且sql(0)是什么意思?
2.我自把1中语句换成了DoCmd.RunSQL "update tbltest set ID = '" & num & "' where name='" & Nz(sql(0)) & "'"
同样也可以实现,但是还是不明白为什么要写成'" &num&"'而不是直接写成ID=num。
本人刚刚学习ACCESS,可能问题有些低级,还请您见谅。
谢谢!