datos stored procedure en grid
Publicado por bsin (23 intervenciones) el 17/04/2011 04:31:25
Este es un tema de vb6 pero como es de una bd de sql server y no recibo respuestas en el foro de vb6, talvez Ustedes me pueden ayudar. Necesito mostrar los datos entre dos fechas en un datagrid desde una tabla en Sql Server 2005 mediante un Stored Procedure que se llama "customtrb". Aqui les envío el código a ver en que estoy fallando. Me produce un error "El conjunto de filas no admite marcadores". Muchas gracias.
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
Call databaseconnecta12
cmd.ActiveConnection = cxRegData12
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Customtrb"
Dim dt3 As String
dt3 = (Text6.Text)
Dim dt4 As String
dt4 = (Text7.Text)
cmd.Parameters.Append cmd.CreateParameter("@Startdate", adVarChar, adParamInput, 8, dt3)
cmd.Parameters.Append cmd.CreateParameter("@Enddate", adVarChar, adParamInput, 8, dt4)
Set rst = cmd.Execute
Set DataGrid1.DataSource = rst
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Set rst = New ADODB.Recordset
Set cmd = New ADODB.Command
Call databaseconnecta12
cmd.ActiveConnection = cxRegData12
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Customtrb"
Dim dt3 As String
dt3 = (Text6.Text)
Dim dt4 As String
dt4 = (Text7.Text)
cmd.Parameters.Append cmd.CreateParameter("@Startdate", adVarChar, adParamInput, 8, dt3)
cmd.Parameters.Append cmd.CreateParameter("@Enddate", adVarChar, adParamInput, 8, dt4)
Set rst = cmd.Execute
Set DataGrid1.DataSource = rst
Valora esta pregunta


0