请教这段代码错在哪？引用 Rs.Fields("合同号") 为什么总是空值呢？

liuweisunjing

请教这段代码错在哪？引用  Rs.Fields("合同号") 为什么总是空值呢？

Dim zonghe As String
Dim d As String
Dim Rs As New ADODB.Recordset

z

Rs.Open zonghe, CurrentProject.Connection, adOpenDynamic, adLockOptimistic

Do
    d = Rs.Fields("合同号")
    Debug.Print d

Loop While Not Rs.BOF

“项目查询”是一个基于表的查询，直接打开此查询，数据没有问题。

谢谢了。

liuweisunjing

不行啊，一点反映没有。立即窗口也没有显示出来。
Private Sub Command14_Click()

Dim d As String
Dim zonghe As String
Dim Rs As New ADODB.Recordset

zonghe = "SELECT 项目查询.* FROM 项目查询;"
Rs.Open zonghe, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
While Not Rs.BOF
    d = Rs.Fields("合同号")
    Debug.Print d
    Rs.MoveNext
Wend
End Sub

ptsea

如题

liuweisunjing

Private Sub Command14_Click()

Dim d As String
Dim zonghe As String
Dim Rs As New ADODB.Recordset

zonghe = "SELECT 综合信息.合同号, 综合信息.项目名称, 综合信息.包装尺寸, 综合信息.重量, 综合信息.数量, 综合信息.名称 FROM 综合信息 where 综合信息.名称 like '*曳引机*'"
Rs.Open zonghe, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
While Not Rs.EOF
    d = Rs.Fields("合同号")
    Debug.Print d
    Rs.MoveNext
Wend
End Sub

在 zonghe 里不加条件，可以正常显示所有记录。如果加上条件，就不成。是不是条件格式错误？？请高手指点。谢谢。

Grant

不要用*号 用 % 替换

liuweisunjing

吐血。竟然OK了。我在网上查的，好像ACCESS的通配符是 *，而在VB里才是%啊。感谢版主。

Grant

在ADO中有所不同

chenwm1973

学习[:50] [:50]