28/09/2006, 21:07
|
| | | Fecha de Ingreso: septiembre-2006
Mensajes: 64
Antigüedad: 18 años, 7 meses Puntos: 0 | |
 execute Store procedure
Hola soy principiante en el tema y quiero ejecutar el siguiente codigo y me da error de que el objeto esta cerrado cuando me fijo si llego al final del recorset, me dan una mano??
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = "DSN=test;;"
cn.Open
cn.Execute ("test")
If Not rs.EOF Then
nombre = rs.Fields("nombre")
End If
End Sub |