Foros del Web » Programación para mayores de 30 ;) » .NET »

Estresado!

Estas en el tema de Estresado! en el foro de .NET en Foros del Web. Hola, estoy empezando con esto del .net, antes era vb6.0, pero no logro hacer para guardar registros en una bd de access, hice la conexion, ...
  #1 (permalink)  
Antiguo 01/10/2010, 11:57
 
Fecha de Ingreso: agosto-2008
Mensajes: 108
Antigüedad: 16 años, 3 meses
Puntos: 0
Estresado!

Hola, estoy empezando con esto del .net, antes era vb6.0, pero no logro hacer para guardar registros en una bd de access, hice la conexion, pero para agregar/modificar/eliminar registros pues nada, alguien me podria ayudar, se lo agradeceria mucho, gracias.
  #2 (permalink)  
Antiguo 01/10/2010, 14:06
 
Fecha de Ingreso: septiembre-2010
Mensajes: 6
Antigüedad: 14 años, 1 mes
Puntos: 0
Respuesta: Estresado!

Hola pues dices que ya tienes tu conexion no? bueno te recomiendo realizar un modulo al cual apuntes para no tener que estar abriendo y cerrando conexiones (o mas bien andarlas escribiendo a cada rato). Seria algo asi

en el modulo:

Module Module1
Public conexion As ADODB.Connection
Public UsuarioEE As String
Public Cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub conectar()
conexion = New ADODB.Connection
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Windows.Forms.Application.StartupPath & "\AccesAct.accdb"
conexion.Open()
End Sub


Public Sub Conectamee(ByVal rstEjecutar As ADODB.Recordset, ByVal strSQL As String)

'En Caso La conexion Este Abierta La Cierra Para Nuevas Consultas
If Cn.State = 1 Then
Cn.Close()
' rstEjecutar = Nothing
' rstEjecutar = New ADODB.Recordset
End If
'Abre la Conexion a la base de datos Acces 2007
Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & System.Windows.Forms.Application.StartupPath & "\AccesAct.accdb"
Cn.Open()
rstEjecutar.Open(strSQL, Cn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
End Sub
End Module

Y ya con esto en cualquier forma seria algo asi:

Dim prueba As New ADODB.Recordset
Dim prueba2 As New ADODB.Recordset

Conectamee(prueba, ("select * from Un_ejemplo where Un_ejemplo.alguna_columna = 'ejemplo'"))
If prueba.RecordCount > 0 Then
Conectamee(prueba, ("select * from otro_ejemplo"))
End If

Creo que con esto te sera mas facil hacer lo demas que pides, ya que solo tienes que poner lo que quieras realizar: select,insert,update, etc saludos y me platicas como te fue bye.
  #3 (permalink)  
Antiguo 01/10/2010, 15:11
 
Fecha de Ingreso: agosto-2008
Mensajes: 108
Antigüedad: 16 años, 3 meses
Puntos: 0
Respuesta: Estresado!

Muy bueno, se te agredece mucho.
Si no es mucha la molestia, sabes hacerlo con oledb, y eso del dataset, datarow, etc.

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:04.