标题: 求助：代码错在什么地方？ [打印本页] 作者: youchytan 时间: 2009-5-7 12:16 标题: 求助：代码错在什么地方？ 建有一个表tblCure：ID（文本型）、Cure（文本型）、Type（文本型），一个未绑定窗体用于对表中的数据进行修改。代码“Select * From tblCure where ID='" & txtID & "'"(txtID——窗体控件）用于数据源。不知道为何不能找到数据？各位给个提示？作者: Henry D. Sy 时间: 2009-5-7 12:25
什么意思
具体您要达到什么目的作者: youchytan 时间: 2009-5-7 12:29
我想用代码更新表数据值。代码用于查找对应的数据。可能是我对文本型数据类型作主键没有理解透，总是找不到要找的数据。作者: Henry D. Sy 时间: 2009-5-7 12:31
直接绑定表不是很好吗作者: youchytan 时间: 2009-5-7 12:33
dim strSQL as string
dim rst as adodb.recordset
strsql="select * from tblcure where id='" & txtid & "'"
set rst=new adodb.recordset
rst.open strsql .............
如上代码建立的记录集为空记录集。不知道为何？作者: Henry D. Sy 时间: 2009-5-7 12:35
把例子传上看看吧作者: youchytan 时间: 2009-5-7 13:32
[attach]37883[/attach]作者: youchytan 时间: 2009-5-7 13:32
谢了.作者: kangking 时间: 2009-5-7 13:54
想看看，可是ACC2007看都不能看。
估计是联接方式有问题。作者: youchytan 时间: 2009-5-7 14:13
[attach]37885[/attach]作者: youchytan 时间: 2009-5-7 14:14
我传了个03版的.那位给看看作者: youchytan 时间: 2009-5-7 14:28
在保存按钮中有相关代码作者: kangking 时间: 2009-5-7 14:39
估计是这句有问题了：strSQL = "select * from tblCureStep where Type ='" & Trim(txtID) & "'"
应该是下面的样子：
strSQL = "select * from tblCureStep where id ='" & Trim(txtID) & "'"作者: youchytan 时间: 2009-5-7 15:57
谢谢.估计是它了作者: youchytan 时间: 2009-5-7 16:16
是它.我糊了.再次谢谢.作者: Henry D. Sy 时间: 2009-5-7 16:46
Private Sub cmdOK_Click()
Dim strSQL As String
Dim rst As ADODB.Recordset
If IsNull(txtCureStep) Then
MsgBox "治疗步骤没有填写！"
txtCureStep.SetFocus
Exit Sub
End If
If IsNull(cboType) Then
MsgBox "类别必须选择！"
cboType.SetFocus
Exit Sub
End If
strSQL = "select * from tblCureStep where Type ='" & Trim(txtID) & "'"
Set rst = New ADODB.Recordset
rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
With rst
If Not .EOF Then
![CureStep] = txtCureStep
![Type] = cboType
.Update
End If
End With
rst.Close
Set rst = Nothing
' Forms("frmCureStep")!subCureStep.Form.Requery
DoCmd.Close acForm, Me.Name
End Sub