29/09/2006, 08:42
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 19 años, 3 meses Puntos: 2 | |
| hola beququi
bueno en el codigo no veo donde asignas el recorset devuelto a rs, la forma seria la siguiente
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
dim xSQL as string
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=test;;"
cn.Open
xSQL = "Test"
set rs = cn.execute (xSQL)
If Not rs.EOF Then
nombre = rs.Fields("nombre")
End If
End Sub
de paso te recomiendo poner un Set NoCount ON al inicio de tu procedure Test por que cualquier select print o exec dentro devuelve un registro nulo |