大家来帮个忙呀

[CTSJT210]

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

[蔡健常熟]

CTS_rst.Open Trim(cts_string) 这句中cts_string没有赋值SQL语句或它不是一句Select语句，是其他如Update什么的。
在这句前要确认 cts_string ="select * from ...."

• 打赏
• 举报

回复 赞

[蔡健常熟]

Sorry，我看错了
等等我再看看

• 打赏
• 举报

回复 赞

[CTSJT210]

我在掉用CTS_SELECT函数时把"SELECT * FROM CTS_SELL"传给了CTS_STRING呀.

• 打赏
• 举报

回复 赞

[CTSJT210]

龙兄我刚才说的那个问题
我有一个查询记录集'RST',怎么才能把'RST'的内容显示在DATAGRID控件里呀!
我用你说的方法还是不行呀

• 打赏
• 举报

回复 赞

[蔡健常熟]

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

• 打赏
• 举报

回复 赞

[蔡健常熟]

RST是ADODB.Recordset?

• 打赏
• 举报

回复 赞

[CTSJT210]

龙兄谢谢了这个问题解决了

• 打赏
• 举报

回复 赞

[chinaren502]

Private Sub Command2_Click()
cts_select ("select * from cts_sell")
Text1.Text = cts_select.Fields(0).value '--错在这里
End Sub

• 打赏
• 举报

回复 赞

[CTSJT210]

Private Sub Command2_Click()
CTS_sql = "SELECT * FROM cts_sell"
Set DataGrid1.DataSource = cts_select(CTS_sql) 实事错误:'7004'行集合不能作为标签
这又错在什么地方呀
DataGrid1.Refresh
end
.....(上面那个函数)

• 打赏
• 举报

回复 赞

[CTSJT210]

是ADODB.Recordset

• 打赏
• 举报

回复 赞