Tema: Estresado!
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 01/10/2010, 14:06
valmirion
 
Fecha de Ingreso: septiembre-2010
Mensajes: 6
Antigüedad: 14 años, 5 meses
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.