大家来帮个忙呀

CTSJT210 2004-05-02 10:28:11
Private Sub Command2_Click()
cts_select ("select * from cts_sell")
Text1.Text = cts_select.Fields(0) "执行时提示:编译错误:参数不可选"大家说下呀错在什么地方
End Sub
Public Function cts_select(cts_string As String) As ADODB.Recordset
On Error GoTo cts_error
Set CTS_cn = New ADODB.Connection
Set CTS_rst = New ADODB.Recordset
CTS_cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CTS_vendition;Data Source=cts-t"
CTS_cn.Open
Set CTS_rst.ActiveConnection = CTS_cn
CTS_rst.LockType = adLockOptimistic
CTS_rst.CursorType = adOpenKeyset
CTS_rst.Open Trim(cts_string)
Set cts_select = CTS_rst
Set CTS_rst = Nothing
Set CTS_cn = Nothing
Exit Function
cts_error:
If cts_error(Err.Description) Then
Resume
Else
End
End If
End Function
...全文
65 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
CTSJT210 2004-05-02
  • 打赏
  • 举报
回复
是ADODB.Recordset
CTSJT210 2004-05-02
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
CTS_sql = "SELECT * FROM cts_sell"
Set DataGrid1.DataSource = cts_select(CTS_sql) 实事错误:'7004'行集合不能作为标签
这又错在什么地方呀
DataGrid1.Refresh
end
.....(上面那个函数)
chinaren502 2004-05-02
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
cts_select ("select * from cts_sell")
Text1.Text = cts_select.Fields(0).value '--错在这里
End Sub
CTSJT210 2004-05-02
  • 打赏
  • 举报
回复
龙兄谢谢了这个问题解决了
蔡健常熟 2004-05-02
  • 打赏
  • 举报
回复
RST是ADODB.Recordset?
蔡健常熟 2004-05-02
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
cts_select ("select * from cts_sell")
Text1.Text = cts_select.Fields(0) "执行时提示:编译错误:参数不可选"大家说下呀错在什么地方
End Sub
'==================
改为:
Private Sub Command2_Click()
Text1.Text = ts_select ("select * from cts_sell").Fields(0)
End Sub
CTSJT210 2004-05-02
  • 打赏
  • 举报
回复
龙兄我刚才说的那个问题
我有一个查询记录集'RST',怎么才能把'RST'的内容显示在DATAGRID控件里呀!
我用你说的方法还是不行呀
CTSJT210 2004-05-02
  • 打赏
  • 举报
回复
我在掉用CTS_SELECT函数时把"SELECT * FROM CTS_SELL"传给了CTS_STRING呀.
蔡健常熟 2004-05-02
  • 打赏
  • 举报
回复
Sorry,我看错了
等等我再看看
蔡健常熟 2004-05-02
  • 打赏
  • 举报
回复
CTS_rst.Open Trim(cts_string) 这句中cts_string没有赋值SQL语句或它不是一句Select语句,是其他如Update什么的。
在这句前要确认 cts_string ="select * from ...."

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧