Programación de bases de datos con Visual Basic .NET

Listado 13.1

Creación de un RecordSet ADODB.

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

conn = New ADODB.Connection 'objecto de la conexión

rs = New ADODB.Recordset 'objecto del RecordSet

conn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=RHPC; " _

& " Initial Catalog=ClientesWindows;User ID=sa;Password="

conn.Open

rs.Open("SELECT * FROM Clientes", conn, " _

& " ADODB.CursorTypeEnum.adOpenDynamic, " _

& " ADODB.LockTypeEnum.adLockBatchOptimistic)

rs.Close

Conn.Close