Título: una ayudita chiquita Publicado por: choquito en 12 Abril 2007, 23:45 pm hola amigos disculpen que insista con una pregunta que puse en otro post... mi intencion es conectar un dataenviroment en un Hierarchical FlexGrid Control
Dim rs As New ADODB.Recordset Private Sub Form_Load() DataZaga.rsCmdclientes1.Open rs.Source = "Select * From CLIENTE" * Set rs.ActiveConnection = DataZaga.rsCmdclientes1 rs.Open Set Grid1.DataSource = rs DataZaga.rsCmdClientes1.Close End Sub sucede que me muestra un error en: en la linea que esta el * error 3001 en tiempo de ejecucion argumentos incorrectos, fuera del intervalo permitido o en conflictos con otros endonde esta mi error ayudenme porfavor. Título: Re: una ayudita chiquita Publicado por: ::: Devil ::: en 17 Abril 2007, 00:29 am <%@Language="VBScript"%>
<!-- Include file for VBScript ADO Constants --> <!--#include File="adovbs.inc"--> <% ' Connection string. strCon = "Provider=sqloledb;Data Source=myServer;Initial Catalog=Northwind;User Id=myUser;Password=myPassword" ' Create the required ADO objects. Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.recordset") ' Open the connection. conn.Open strCon ' Retrieve some records. strSQL = "Select * from Shippers" rs.CursorLocation = adUseClient rs.Open strSQL, conn, adOpenStatic, adLockOptimistic ' Disconnect the recordset. Set rs.ActiveConnection = Nothing ' Release the connection. conn.Close ' Check the status of the connection. Response.Write("<BR> Connection.State = " & conn.State) Set conn = Nothing ' Use the diconnected recordset here. ' Release the recordset. rs.Close Set rs = Nothing %> --------------------------------------------------------- DisconnectRecordset(rs); --------------------------------------------------------- rs.ActiveConnection = null; ---------------------------------------------------------- var oUtil = Server.CreateObject("Torrboy.JArgUtility"); rs.ActiveConnection = oUtil.Nothing; ---------------------------------------------------------- |