dbConn.Open PDBconnectionString
dbCmd.ActiveConnection = dbConn
dbCmd.CommandText = "SELECT * FROM tCodeDetail WHERE fStatus = ?"
dbCmd.CommandType = adCmdText
dbCmd.Parameters.Append dbCmd.CreateParameter("fStatus", adChar, adParamInput, 3)
dbCmd.Parameters.Item("fStatus").Value = "N" Dim dbRs As New ADODB.Recordset
'dbRs.CursorType = adOpenStatic
Set dbRs = dbCmd.Execute
Set grdShowCode.Recordset = dbRs我运行了上面的这些代码,怎么这个表格只显示一条数据?是不是还需要配置什么属性?这个表里面有3条数据.
dbCmd.ActiveConnection = dbConn
dbCmd.CommandText = "SELECT * FROM tCodeDetail WHERE fStatus = ?"
dbCmd.CommandType = adCmdText
dbCmd.Parameters.Append dbCmd.CreateParameter("fStatus", adChar, adParamInput, 3)
dbCmd.Parameters.Item("fStatus").Value = "N" Dim dbRs As New ADODB.Recordset
'dbRs.CursorType = adOpenStatic
Set dbRs = dbCmd.Execute
Set grdShowCode.Recordset = dbRs我运行了上面的这些代码,怎么这个表格只显示一条数据?是不是还需要配置什么属性?这个表里面有3条数据.
嗯,这个?有错误。
debug.Print dbRs!fStatus
dbRs.movenext
wend如果还是一条,说明你参数条件有问题