| |||
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. |
| |||
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. |
Etiquetas: Ninguno |