大家来帮个忙呀

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
...全文
32 10 打赏 收藏 举报
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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 ...."
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1199

社区成员

VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
申请成为版主
帖子事件
创建了帖子
2004-05-02 10:28
社区公告
暂无公告