hewei2003()你能不能说详细点呀 我都快疯了呀(在线)
hewei2003()你说详细点好吗?我把游标改了也出错了呀
Private Sub Command7_Click()
CTS_sql = "SELECT * FROM cts_sell"
MSFlexGrid1.DataSource = cts_select(CTS_sql) 提示:实时错误'13'类型不匹配.这是为什么呀!大家都来帮我瞧下呀
MSFlexGrid1.Refresh
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.CursorLocation = adUseClient
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
问题点数：0、回复次数：4Top
1 楼CTSJT210（小傲）回复于 2004-05-03 22:12:11 得分 0
大家都帮我说下呀.我真的没分了Top
2 楼hewei2003（为为）回复于 2004-05-03 22:45:43 得分 0
帮你改了
Private Sub Command1_Click()
CTS_sql = "SELECT * FROM ticket"
Set DataGrid1.DataSource = cts_select(CTS_sql)
End Sub
Public Function cts_select(ByVal 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=MSDAORA.1;Password=test;User ID=test;Data Source=hw;Persist Security Info=True"
CTS_cn.Open
CTS_rst.ActiveConnection = CTS_cn
CTS_rst.CursorLocation = adUseClient
CTS_rst.LockType = adLockOptimistic
CTS_rst.CursorType = adOpenDynamic
CTS_rst.Open Trim(cts_string)
Set cts_select = CTS_rst
'Set CTS_rst = Nothing
'Set CTS_cn = Nothing
Exit Function
cts_error:
If Err.Description Then
Resume
Else
End
End If
End Function
测试通过Top
3 楼hewei2003（为为）回复于 2004-05-03 22:46:10 得分 0
表名和连接字符串你自己改一下，我是用的OracleTop
4 楼CTSJT210（小傲）回复于 2004-05-03 23:06:34 得分 0
谢谢你了Top
