Maestros:

Sigo intentando empezar con el Net.... espero su generosa ayuda.

¿Cual sería la forma apropiada de conectar y abrir el recordset del
siguiente ejemplo en el Visual Basic Express 8?

Dim CNk As New ADODB.Connection, CmdStrk As String
CNk.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ATLASvb
\ATLASsys.mdb;Persist Security Info=False"
CmdStrk = "Select NumReci fROM hstPagTra Order by NumReci"
Rsk.LockType = adLockOptimistic
Rsk.CursorLocation = adUseServer
Rsk.Open CmdStrk, CNk
If Not Rsk.EOF Then
Do
Rsk.Fields("NumReci") = xNuRec
...


¿y de este otro...?

Dim CNk As New ADODB.Connection, CmdStrk As String
CNk.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ATLASvb
\ATLASsys.mdb;Persist Security Info=False"
CmdStrk = "DELETE idTrab FROM capNomi WHERE idTrab =" & 145
CNk.Execute CmdStrk

De antemano, gracias.

Daniel Vazquez

"Daniel" preguntó:

> ¿Cual sería la forma apropiada de conectar y abrir el recordset del
> siguiente ejemplo en el Visual Basic Express 8?

Hola, Daniel:

Con el debido respeto te diré que, si vas a continuar utilizando la clásica
biblioteca de ADO con Visual Basic .net, lo mejor que puedes hacer es seguir
desarrollando tus aplicaciones con Visual Basic 6.0, al cual, parece ser que
le van a dar diez años más de "vida" para que las aplicaciones desarrolladas
puedan ejecutarse en Windows Vista y Windows Server 2008.

Si de verdad te quieres iniciar con el desarrollo de aplicaciones de bases
de datos con Visual Basic .NET, me lo dices y encantado de la vida te
explicaré cómo abrir una conexión con una base de datos Access, recuperar un
conjunto de datos y ejecutar una consulta SQL de eliminación, pero todo ello
desde la perspectiva de ADO .NET, no desde la perspectiva de ADO clásico.
¿OK? :-)

Un saludo

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Daniel" preguntó:

> ¿Cual sería la forma apropiada de conectar y abrir el recordset del
> siguiente ejemplo en el Visual Basic Express 8?

Hola, Daniel:

Con el debido respeto te diré que, si vas a continuar utilizando la clásica
biblioteca de ADO con Visual Basic .net, lo mejor que puedes hacer es seguir
desarrollando tus aplicaciones con Visual Basic 6.0, al cual, parece ser que
le van a dar diez años más de "vida" para que las aplicaciones desarrolladas
puedan ejecutarse en Windows Vista y Windows Server 2008.

Si de verdad te quieres iniciar con el desarrollo de aplicaciones de bases
de datos con Visual Basic .NET, me lo dices y encantado de la vida te
explicaré cómo abrir una conexión con una base de datos Access, recuperar un
conjunto de datos y ejecutar una consulta SQL de eliminación, pero todo ello
desde la perspectiva de ADO .NET, no desde la perspectiva de ADO clásico.
¿OK? :-)

Un saludo

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Daniel" preguntó:

> ¿Cual sería la forma apropiada de conectar y abrir el recordset del
> siguiente ejemplo en el Visual Basic Express 8?

Hola, Daniel:

Con el debido respeto te diré que, si vas a continuar utilizando la clásica
biblioteca de ADO con Visual Basic .net, lo mejor que puedes hacer es seguir
desarrollando tus aplicaciones con Visual Basic 6.0, al cual, parece ser que
le van a dar diez años más de "vida" para que las aplicaciones desarrolladas
puedan ejecutarse en Windows Vista y Windows Server 2008.

Si de verdad te quieres iniciar con el desarrollo de aplicaciones de bases
de datos con Visual Basic .NET, me lo dices y encantado de la vida te
explicaré cómo abrir una conexión con una base de datos Access, recuperar un
conjunto de datos y ejecutar una consulta SQL de eliminación, pero todo ello
desde la perspectiva de ADO .NET, no desde la perspectiva de ADO clásico.
¿OK? :-)

Un saludo

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Enrique:

Te ofrezco disculpas por no haberme sabido explicar.

Eso que dices es exactamento lo que deseo hacer.

Una ejemplo de la conexión y recuperación de un conjunto de datos.

Y también ejecutar una consulta SQL; TODO desde la perspectiva de
ADO .NET

Gracias.

Enrique:

Te ofrezco disculpas por no haberme sabido explicar.

Eso que dices es exactamento lo que deseo hacer.

Una ejemplo de la conexión y recuperación de un conjunto de datos.

Y también ejecutar una consulta SQL; TODO desde la perspectiva de
ADO .NET

Gracias.

Enrique:

Te ofrezco disculpas por no haberme sabido explicar.

Eso que dices es exactamento lo que deseo hacer.

Una ejemplo de la conexión y recuperación de un conjunto de datos.

Y también ejecutar una consulta SQL; TODO desde la perspectiva de
ADO .NET

Gracias.

"Daniel" escribió:

> Eso que dices es exactamento lo que deseo hacer.
>
> Una ejemplo de la conexión y recuperación de un conjunto de datos.
>
> Y también ejecutar una consulta SQL; TODO desde la perspectiva de
> ADO .NET

Como vas a trabajar con bases de datos Access, lo primero que tienes que
hacer es importar el espacio de nombres «System.Data.OleDb». Para ello, al
COMIENZO del formulario escribirías la siguiente instrucción «Imports»:

Imports System.Data.OleDb

Al igual que sucede con la biblioteca de ADO clásica, con ADO .NET también
necesitamos una cadena de conexión para conectarnos con el origen de datos,
cadena que se construye de la misma manera. Por ejemplo, a nivel de tu
formulario declararías una constante alfanumérica cuyo valor será la propia
cadena de conexión:

Const CONNSTRING As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ATLASvb\ATLASsys.mdb;" & _
"Persist Security Info=False"

Ahora vamos a recuperar un conjunto de datos ejecutando una consulta SQL de
selección, y con los datos recuperados vamos a crear un objeto DataTable,
que posteriormente se lo asignaremos a un control DataGridView para que los
puedas observar bien, por lo que tendrás que añadir dicho control a tu
formulario:

' Con la instrucción «Using» declaramos e inicializamos una variable
' objeto del tipo OleDbConnection, pasándole a su constructor
' la constante que contiene la cadena de conexión.
'
Using cnn As New OleDbConnection(CONNSTRING)

' Encerramos todo el código entre un bloque «Try ... End Try» a fin
' de capturar las posibles excepciones (errores) que se puedan
' producir.
'
Try

' Construimos la consulta SQL de selección.
'
Dim sql As String = _
"SELECT NumReci FROM hstPagTra ORDER BY NumReci"

' Creamos un adaptador de datos para poder rellenar el
' objeto DataTable, al cual le pasaremos la consulta SQL
' y el objeto Connection que vamos a utilizar.
'
Dim da As New OleDbDataAdapter(sql, cnn)

' Creamos un nuevo objeto DataTable, el cual se llamará
' igual que el nombre de la tabla de la base de datos.
'
Dim dt As DataTable = New DataTable("hstPagTra")

' Rellenamos el objeto DataTable.
'
da.Fill(dt)

' Mostramos los datos en el control DataGridView.
'
DataGridView1.DataSource = dt

Catch ex As Exception
' Si se ha producido una excepción (error), mostramos
' su descripción.
'
MessageBox.Show(ex.Message)

End Try

' Como hemos utilizado una instrucción «Using», automáticamente
' se destruirá el objeto OleDbConnection utilizado.
'
End Using

Todo eso es lo que necesitas ejecutar para recuperar un conjunto de datos y
mostrar el resultado en un control DataGridView.

Ahora, cuando necesites ejecutar una consulta SQL de acción (INSERT INTO,
UPDATE o DELETE), ejecutarías lo siguiente:

Using cnn As New OleDbConnection(CONNSTRING)

Try
' Construimos la consulta SQL de acción.
'
Dim sql As String = _
"DELETE * FROM capNomi WHERE idTrab = 145"

' Creamos un objeto Command adecuado.
'
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos explícitamente la conexión.
'
cnn.Open()

' Ejecutamos la consulta.
'
Dim n As Integer = cmd.ExecuteNonQuery

' Mostramos el número de registros afectados.
'
MessageBox.Show("Nº de registros afectados: " & CStr(n))

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Using

¡Eso es todo!

Desde luego, en Internet encontrarás multitud de ejemplos para establecer
una conexión, recuperar una serie de datos, o ejecutar una consulta SQL de
acción. No obstante, incluye en tus «Favoritos» el enlace al índice de
ejemplos de ADO .NET que aparece en la web de «El Guille»:

http://www.elguille.info/NET/ADONET/Default.aspx

También en la ayuda de Visual Studio encontrarás amplia información sobre
los objetos de ADO .NET.

Y cuando tengas una duda en concreto, recurres al grupo de noticias para ver
si alguien te la puede resolver. :-)

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Daniel" escribió:

> Eso que dices es exactamento lo que deseo hacer.
>
> Una ejemplo de la conexión y recuperación de un conjunto de datos.
>
> Y también ejecutar una consulta SQL; TODO desde la perspectiva de
> ADO .NET

Como vas a trabajar con bases de datos Access, lo primero que tienes que
hacer es importar el espacio de nombres «System.Data.OleDb». Para ello, al
COMIENZO del formulario escribirías la siguiente instrucción «Imports»:

Imports System.Data.OleDb

Al igual que sucede con la biblioteca de ADO clásica, con ADO .NET también
necesitamos una cadena de conexión para conectarnos con el origen de datos,
cadena que se construye de la misma manera. Por ejemplo, a nivel de tu
formulario declararías una constante alfanumérica cuyo valor será la propia
cadena de conexión:

Const CONNSTRING As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ATLASvb\ATLASsys.mdb;" & _
"Persist Security Info=False"

Ahora vamos a recuperar un conjunto de datos ejecutando una consulta SQL de
selección, y con los datos recuperados vamos a crear un objeto DataTable,
que posteriormente se lo asignaremos a un control DataGridView para que los
puedas observar bien, por lo que tendrás que añadir dicho control a tu
formulario:

' Con la instrucción «Using» declaramos e inicializamos una variable
' objeto del tipo OleDbConnection, pasándole a su constructor
' la constante que contiene la cadena de conexión.
'
Using cnn As New OleDbConnection(CONNSTRING)

' Encerramos todo el código entre un bloque «Try ... End Try» a fin
' de capturar las posibles excepciones (errores) que se puedan
' producir.
'
Try

' Construimos la consulta SQL de selección.
'
Dim sql As String = _
"SELECT NumReci FROM hstPagTra ORDER BY NumReci"

' Creamos un adaptador de datos para poder rellenar el
' objeto DataTable, al cual le pasaremos la consulta SQL
' y el objeto Connection que vamos a utilizar.
'
Dim da As New OleDbDataAdapter(sql, cnn)

' Creamos un nuevo objeto DataTable, el cual se llamará
' igual que el nombre de la tabla de la base de datos.
'
Dim dt As DataTable = New DataTable("hstPagTra")

' Rellenamos el objeto DataTable.
'
da.Fill(dt)

' Mostramos los datos en el control DataGridView.
'
DataGridView1.DataSource = dt

Catch ex As Exception
' Si se ha producido una excepción (error), mostramos
' su descripción.
'
MessageBox.Show(ex.Message)

End Try

' Como hemos utilizado una instrucción «Using», automáticamente
' se destruirá el objeto OleDbConnection utilizado.
'
End Using

Todo eso es lo que necesitas ejecutar para recuperar un conjunto de datos y
mostrar el resultado en un control DataGridView.

Ahora, cuando necesites ejecutar una consulta SQL de acción (INSERT INTO,
UPDATE o DELETE), ejecutarías lo siguiente:

Using cnn As New OleDbConnection(CONNSTRING)

Try
' Construimos la consulta SQL de acción.
'
Dim sql As String = _
"DELETE * FROM capNomi WHERE idTrab = 145"

' Creamos un objeto Command adecuado.
'
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos explícitamente la conexión.
'
cnn.Open()

' Ejecutamos la consulta.
'
Dim n As Integer = cmd.ExecuteNonQuery

' Mostramos el número de registros afectados.
'
MessageBox.Show("Nº de registros afectados: " & CStr(n))

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Using

¡Eso es todo!

Desde luego, en Internet encontrarás multitud de ejemplos para establecer
una conexión, recuperar una serie de datos, o ejecutar una consulta SQL de
acción. No obstante, incluye en tus «Favoritos» el enlace al índice de
ejemplos de ADO .NET que aparece en la web de «El Guille»:

http://www.elguille.info/NET/ADONET/Default.aspx

También en la ayuda de Visual Studio encontrarás amplia información sobre
los objetos de ADO .NET.

Y cuando tengas una duda en concreto, recurres al grupo de noticias para ver
si alguien te la puede resolver. :-)

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Daniel" escribió:

> Eso que dices es exactamento lo que deseo hacer.
>
> Una ejemplo de la conexión y recuperación de un conjunto de datos.
>
> Y también ejecutar una consulta SQL; TODO desde la perspectiva de
> ADO .NET

Como vas a trabajar con bases de datos Access, lo primero que tienes que
hacer es importar el espacio de nombres «System.Data.OleDb». Para ello, al
COMIENZO del formulario escribirías la siguiente instrucción «Imports»:

Imports System.Data.OleDb

Al igual que sucede con la biblioteca de ADO clásica, con ADO .NET también
necesitamos una cadena de conexión para conectarnos con el origen de datos,
cadena que se construye de la misma manera. Por ejemplo, a nivel de tu
formulario declararías una constante alfanumérica cuyo valor será la propia
cadena de conexión:

Const CONNSTRING As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ATLASvb\ATLASsys.mdb;" & _
"Persist Security Info=False"

Ahora vamos a recuperar un conjunto de datos ejecutando una consulta SQL de
selección, y con los datos recuperados vamos a crear un objeto DataTable,
que posteriormente se lo asignaremos a un control DataGridView para que los
puedas observar bien, por lo que tendrás que añadir dicho control a tu
formulario:

' Con la instrucción «Using» declaramos e inicializamos una variable
' objeto del tipo OleDbConnection, pasándole a su constructor
' la constante que contiene la cadena de conexión.
'
Using cnn As New OleDbConnection(CONNSTRING)

' Encerramos todo el código entre un bloque «Try ... End Try» a fin
' de capturar las posibles excepciones (errores) que se puedan
' producir.
'
Try

' Construimos la consulta SQL de selección.
'
Dim sql As String = _
"SELECT NumReci FROM hstPagTra ORDER BY NumReci"

' Creamos un adaptador de datos para poder rellenar el
' objeto DataTable, al cual le pasaremos la consulta SQL
' y el objeto Connection que vamos a utilizar.
'
Dim da As New OleDbDataAdapter(sql, cnn)

' Creamos un nuevo objeto DataTable, el cual se llamará
' igual que el nombre de la tabla de la base de datos.
'
Dim dt As DataTable = New DataTable("hstPagTra")

' Rellenamos el objeto DataTable.
'
da.Fill(dt)

' Mostramos los datos en el control DataGridView.
'
DataGridView1.DataSource = dt

Catch ex As Exception
' Si se ha producido una excepción (error), mostramos
' su descripción.
'
MessageBox.Show(ex.Message)

End Try

' Como hemos utilizado una instrucción «Using», automáticamente
' se destruirá el objeto OleDbConnection utilizado.
'
End Using

Todo eso es lo que necesitas ejecutar para recuperar un conjunto de datos y
mostrar el resultado en un control DataGridView.

Ahora, cuando necesites ejecutar una consulta SQL de acción (INSERT INTO,
UPDATE o DELETE), ejecutarías lo siguiente:

Using cnn As New OleDbConnection(CONNSTRING)

Try
' Construimos la consulta SQL de acción.
'
Dim sql As String = _
"DELETE * FROM capNomi WHERE idTrab = 145"

' Creamos un objeto Command adecuado.
'
Dim cmd As New OleDbCommand(sql, cnn)

' Abrimos explícitamente la conexión.
'
cnn.Open()

' Ejecutamos la consulta.
'
Dim n As Integer = cmd.ExecuteNonQuery

' Mostramos el número de registros afectados.
'
MessageBox.Show("Nº de registros afectados: " & CStr(n))

Catch ex As Exception
MessageBox.Show(ex.Message)

End Try

End Using

¡Eso es todo!

Desde luego, en Internet encontrarás multitud de ejemplos para establecer
una conexión, recuperar una serie de datos, o ejecutar una consulta SQL de
acción. No obstante, incluye en tus «Favoritos» el enlace al índice de
ejemplos de ADO .NET que aparece en la web de «El Guille»:

http://www.elguille.info/NET/ADONET/Default.aspx

También en la ayuda de Visual Studio encontrarás amplia información sobre
los objetos de ADO .NET.

Y cuando tengas una duda en concreto, recurres al grupo de noticias para ver
si alguien te la puede resolver. :-)

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.