Access con .Net

Comprate un libro que hable sobre ado. El 98 % de los
libros te dice eso.


Miao...

Buenas Tardes, amigos soy un novato tratando de generar
aplicaciones en .Net, necesito saber cómo manejar Base

de

Datos de Access desde .Net sin necesidad de un objeto, o
con él.

Le agradecería favor me enviaran un ejemplo a
ya que he revisado todos los
ejemplos expuestos en la página del guille.info pero
siempre me dan error..

Poseo una conexión de la siguiente manera pero no se ver
por ejemplo un registro de una tabla específica:

Public Verificar As Boolean
Public Cnnx As New ADODB.Connection
Public Rst1 As New ADODB.Recordset
Public Conet As String, MvSql1 As String, Sw1 As
Boolean

Function doCnn()
'
On Error Resume Next
'
Cnnx.CursorLocation­ODB.CursorLocationEnum.adUseClient
Cnnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Base de Datos.mdb;Persist Security Info=False")
'
End Function

Function doRst1()
'
On Error GoTo Ver1
'
Rst1.Open(MvSql1, Cnnx,
ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic)
'
Exit Function
'
Ver1:
'
Sw1 = True
MsgBox(err.Description)
'
End Function

Function doRst1C()
'
On Error Resume Next
'
Rst1.Close()
'
End Function
.

NO JODAS CON ESTE TIPO DE MENSAJES
"DJ MIA0" wrote in message
news:7b3f01c49527$52ae14e0$
Comprate un libro que hable sobre ado. El 98 % de los
libros te dice eso.


Miao...

Buenas Tardes, amigos soy un novato tratando de generar
aplicaciones en .Net, necesito saber cómo manejar Base

de

Datos de Access desde .Net sin necesidad de un objeto, o
con él.

Le agradecería favor me enviaran un ejemplo a
ya que he revisado todos los
ejemplos expuestos en la página del guille.info pero
siempre me dan error..

Poseo una conexión de la siguiente manera pero no se ver
por ejemplo un registro de una tabla específica:

Public Verificar As Boolean
Public Cnnx As New ADODB.Connection
Public Rst1 As New ADODB.Recordset
Public Conet As String, MvSql1 As String, Sw1 As
Boolean

Function doCnn()
'
On Error Resume Next
'
Cnnx.CursorLocation­ODB.CursorLocationEnum.adUseClient
Cnnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Base de Datos.mdb;Persist Security Info=False")
'
End Function

Function doRst1()
'
On Error GoTo Ver1
'
Rst1.Open(MvSql1, Cnnx,
ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic)
'
Exit Function
'
Ver1:
'
Sw1 = True
MsgBox(err.Description)
'
End Function

Function doRst1C()
'
On Error Resume Next
'
Rst1.Close()
'
End Function
.

Hola!

Si quieres obtener un DataTable:

Dim dt As New DataTable
Dim da As SqlDataAdapter
Try
da = New SqlDataAdapter(SQL, SConnString)
da.Fill(dt)
da.Dispose()
For Each Dr As DataRow In dt.Rows
'aqui haces lo que quieras con tus dr (DataRow)
Next
Catch ex As Exception
dt = Nothing
MsgBox(ex.ToString())
End Try

Si quieres ejecutar un comando SQL, puedes usar algo asi:

Dim mDC As New SqlCommand
Dim RetVal As Integer = 0 'es un entero que te dice cuantos registros afecto
la consulta
With mDC
Try
.Connection = New SqlConnection(sConnString)
.Connection.Open()
.CommandType = CommandType.Text
.CommandText = SQL
RetVal = .ExecuteNonQuery()
.Connection.Close()
Catch ex As Exception
RetVal = 0
Utilitie.ErrLog("DataManager", "ExecuteSQL", ex, SQL)
Finally
If Not mDC.Connection Is Nothing Then
If mDC.Connection.State = ConnectionState.Open Then
mDC.Connection.Close()
End If
mDC.Connection.Dispose()
mDC.Connection = Nothing
End If
If Not mDC Is Nothing Then
mDC.Dispose()
mDC = Nothing
End If
End Try
End With

debes sustituir SQLClient y SQL por OLEDB si trabajas con algo diferente a
SQL server, y debes colocar en la primera linea de tu clase imports
System.data.oledb o sqlclient dependiendo lo que uses.

Saludos
Luis Cisneros

"Alexcar Borges" wrote in message
news:02ac01c4951a$2f7aecd0$
Buenas Tardes, amigos soy un novato tratando de generar
aplicaciones en .Net, necesito saber cómo manejar Base de
Datos de Access desde .Net sin necesidad de un objeto, o
con él.

Le agradecería favor me enviaran un ejemplo a
ya que he revisado todos los
ejemplos expuestos en la página del guille.info pero
siempre me dan error..

Poseo una conexión de la siguiente manera pero no se ver
por ejemplo un registro de una tabla específica:

Public Verificar As Boolean
Public Cnnx As New ADODB.Connection
Public Rst1 As New ADODB.Recordset
Public Conet As String, MvSql1 As String, Sw1 As
Boolean

Function doCnn()
'
On Error Resume Next
'
Cnnx.CursorLocation­ODB.CursorLocationEnum.adUseClient
Cnnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Base de Datos.mdb;Persist Security Info=False")
'
End Function

Function doRst1()
'
On Error GoTo Ver1
'
Rst1.Open(MvSql1, Cnnx,
ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic)
'
Exit Function
'
Ver1:
'
Sw1 = True
MsgBox(err.Description)
'
End Function

Function doRst1C()
'
On Error Resume Next
'
Rst1.Close()
'
End Function

Flaco y ese codigo no lo esplica cualquier capitulo en
cualquier libro en ado.net?


Deja que la gente pase trabajo tambien tu lo ves como un
bien pero lo que estas es jodiendo su proseso de
desarollar su logica.

Dejen que tambien se quemen las pestanas como muchos los
hacemos.




Miao.

Comprate un libro

Hola!

Si quieres obtener un DataTable:

Dim dt As New DataTable
Dim da As SqlDataAdapter
Try
da = New SqlDataAdapter(SQL, SConnString)
da.Fill(dt)
da.Dispose()
For Each Dr As DataRow In dt.Rows
'aqui haces lo que quieras con tus dr (DataRow)
Next
Catch ex As Exception
dt = Nothing
MsgBox(ex.ToString())
End Try

Si quieres ejecutar un comando SQL, puedes usar algo asi:

Dim mDC As New SqlCommand
Dim RetVal As Integer = 0 'es un entero que te dice

cuantos registros afecto

la consulta
With mDC
Try
..Connection = New SqlConnection(sConnString)
..Connection.Open()
..CommandType = CommandType.Text
..CommandText = SQL
RetVal = .ExecuteNonQuery()
..Connection.Close()
Catch ex As Exception
RetVal = 0
Utilitie.ErrLog("DataManager", "ExecuteSQL", ex, SQL)
Finally
If Not mDC.Connection Is Nothing Then
If mDC.Connection.State = ConnectionState.Open Then
mDC.Connection.Close()
End If
mDC.Connection.Dispose()
mDC.Connection = Nothing
End If
If Not mDC Is Nothing Then
mDC.Dispose()
mDC = Nothing
End If
End Try
End With

debes sustituir SQLClient y SQL por OLEDB si trabajas

con algo diferente a

SQL server, y debes colocar en la primera linea de tu

clase imports

System.data.oledb o sqlclient dependiendo lo que uses.

Saludos
Luis Cisneros

"Alexcar Borges" wrote in

message

news:02ac01c4951a$2f7aecd0$
Buenas Tardes, amigos soy un novato tratando de generar
aplicaciones en .Net, necesito saber cómo manejar Base de
Datos de Access desde .Net sin necesidad de un objeto, o
con él.

Le agradecería favor me enviaran un ejemplo a
ya que he revisado todos los
ejemplos expuestos en la página del guille.info pero
siempre me dan error..

Poseo una conexión de la siguiente manera pero no se ver
por ejemplo un registro de una tabla específica:

Public Verificar As Boolean
Public Cnnx As New ADODB.Connection
Public Rst1 As New ADODB.Recordset
Public Conet As String, MvSql1 As String, Sw1 As
Boolean

Function doCnn()
'
On Error Resume Next
'
Cnnx.CursorLocation­ODB.CursorLocationEnum.adUseClient
Cnnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Base de Datos.mdb;Persist Security Info=False")
'
End Function

Function doRst1()
'
On Error GoTo Ver1
'
Rst1.Open(MvSql1, Cnnx,
ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic)
'
Exit Function
'
Ver1:
'
Sw1 = True
MsgBox(err.Description)
'
End Function

Function doRst1C()
'
On Error Resume Next
'
Rst1.Close()
'
End Function


.

OK, en parte, es verdad.
hagamos algo. en vez de responder como respondimos, vamos a responder con un
link a un tutorial o a la pagina de Guille o a tantas otras.

de acuerdo?

Luis Cisneros
"DJ MIAU" wrote in message
news:7c7401c4956a$8d88eed0$
Flaco y ese codigo no lo esplica cualquier capitulo en
cualquier libro en ado.net?


Deja que la gente pase trabajo tambien tu lo ves como un
bien pero lo que estas es jodiendo su proseso de
desarollar su logica.

Dejen que tambien se quemen las pestanas como muchos los
hacemos.




Miao.

Comprate un libro

Hola!

Si quieres obtener un DataTable:

Dim dt As New DataTable
Dim da As SqlDataAdapter
Try
da = New SqlDataAdapter(SQL, SConnString)
da.Fill(dt)
da.Dispose()
For Each Dr As DataRow In dt.Rows
'aqui haces lo que quieras con tus dr (DataRow)
Next
Catch ex As Exception
dt = Nothing
MsgBox(ex.ToString())
End Try

Si quieres ejecutar un comando SQL, puedes usar algo asi:

Dim mDC As New SqlCommand
Dim RetVal As Integer = 0 'es un entero que te dice

cuantos registros afecto

la consulta
With mDC
Try
..Connection = New SqlConnection(sConnString)
..Connection.Open()
..CommandType = CommandType.Text
..CommandText = SQL
RetVal = .ExecuteNonQuery()
..Connection.Close()
Catch ex As Exception
RetVal = 0
Utilitie.ErrLog("DataManager", "ExecuteSQL", ex, SQL)
Finally
If Not mDC.Connection Is Nothing Then
If mDC.Connection.State = ConnectionState.Open Then
mDC.Connection.Close()
End If
mDC.Connection.Dispose()
mDC.Connection = Nothing
End If
If Not mDC Is Nothing Then
mDC.Dispose()
mDC = Nothing
End If
End Try
End With

debes sustituir SQLClient y SQL por OLEDB si trabajas

con algo diferente a

SQL server, y debes colocar en la primera linea de tu

clase imports

System.data.oledb o sqlclient dependiendo lo que uses.

Saludos
Luis Cisneros

"Alexcar Borges" wrote in

message

news:02ac01c4951a$2f7aecd0$
Buenas Tardes, amigos soy un novato tratando de generar
aplicaciones en .Net, necesito saber cómo manejar Base de
Datos de Access desde .Net sin necesidad de un objeto, o
con él.

Le agradecería favor me enviaran un ejemplo a
ya que he revisado todos los
ejemplos expuestos en la página del guille.info pero
siempre me dan error..

Poseo una conexión de la siguiente manera pero no se ver
por ejemplo un registro de una tabla específica:

Public Verificar As Boolean
Public Cnnx As New ADODB.Connection
Public Rst1 As New ADODB.Recordset
Public Conet As String, MvSql1 As String, Sw1 As
Boolean

Function doCnn()
'
On Error Resume Next
'
Cnnx.CursorLocation­ODB.CursorLocationEnum.adUseClient
Cnnx.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=Base de Datos.mdb;Persist Security Info=False")
'
End Function

Function doRst1()
'
On Error GoTo Ver1
'
Rst1.Open(MvSql1, Cnnx,
ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockBatchOptimistic)
'
Exit Function
'
Ver1:
'
Sw1 = True
MsgBox(err.Description)
'
End Function

Function doRst1C()
'
On Error Resume Next
'
Rst1.Close()
'
End Function


.