Jump to content

Conectar a un libro mediante SQL


Muscaria

Recommended Posts

Holas a todos, veran tengo este problemita. secede que tengo un libro llamado bitacora y este funciona con un form que se conecta mediante SQL todo esto en el mismo libro y funciona perfectamente.

Ahora quise pasar el formulario y el modulo donde esta la conexion sql a mi otro proyecto osea tengo ahora una carpeta llamada prueba dentro de esta el archivo bitacoras y el otro akelos es te ultimo el principal, a este le agregue el form de bitacoras y el modulo de la conexion. pero l ejecutarlo no funciona el form de la bitacora no se conecta.

me pueden ayudar a conectar a este libro de bitacoras .

Option ExplicitPublic Cnx As New ADODB.ConnectionPublic Rst As New ADODB.RecordsetPublic Cnx1 As New ADODB.ConnectionPublic Rst1 As New ADODB.RecordsetPublic elegida As StringSub Conectar()Application.ScreenUpdating = FalseDim UltFila As Long, NombreHoja As String, Maq As StringDim Fila As Long, Columna As Long
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & _ ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Datos.SelectNombreHoja = Datos.NameUltFila = Datos.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).RowSet Rst = New ADODB.RecordsetWith Rst .ActiveConnection = Cnx .CursorType = adOpenStatic .CursorLocation = adUseClient .LockType = 3 'adLockBatchOptimisticEnd WithEnd Sub[/HTML]

ese codigo funciona perfectamente en el mismo libro, ayudenme a conectarme desde akelos a bitacoras mediante sql.

Agradesco su ayuda .

Saludos

Muscaria

Link to comment
Share on other sites

Hize un formulario d prueba ya que el original pesa demasiado como ara subirlo, igual este archivo de prueba pesa un poquito de lo permitido asi que lo subi a Skydrive para que lo puedan descargar.

Clic en Akelos

la ubicación en el disco D:\

si ejecutan solo bitácora verán que funciona bien ahora si abren el archivo akelos y llaman al formulario de bitácoras verán que no funciona la conexión.

espero que me puedan ayudar. :tan:

Gracias

Saludos

Muscaria

Link to comment
Share on other sites

Holas a todos, hize algunos cambios al codigo de conexion pero ahora me dice que se requiere un objecto y me llama marca al Userform1.show

Ahora puse este codigo.

Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pruebasql\Bitacora.xlsm " & _
";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"[/PHP]

por favor alguna sugerencia.

Saludos

Muscaria

post-69778-145877004327_thumb.jpg

post-69778-145877004328_thumb.jpg

Link to comment
Share on other sites

Hola siguiendo con el tema, use otro tipo de conexión.


Option Explicit
Public Cnx As New ADODB.ConnectionPublic Rst As New ADODB.RecordsetPublic elegida As StringSub Conectar()Application.ScreenUpdating = FalseDim UltFila As Long, NombreHoja As String, Maq As StringDim Fila As Long, Columna As LongCnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\BITACORA.xlsx" & _ ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"Datos.SelectNombreHoja = Datos.NameUltFila = Datos.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).RowSet Rst = New ADODB.RecordsetWith Rst .ActiveConnection = Cnx .CursorType = adOpenStatic .CursorLocation = adUseClient .LockType = 3 'adLockBatchOptimisticEnd With End Sub[/PHP]

como dije en otro tema, me dice que el formulario no existe. alguna ayuda por favor.

Saludos

Muscaria

Link to comment
Share on other sites

Saludos.

Por lo poco que pude ver no es en si el formulario si no el objeto Datos que hace referencia a una hoja, no puedo trabajar con tu archivo ya que tiene controles no muy comunes y que son de licencia como el Flexgrid basicamente no se pueden hacer las pruebas pertinentes espero haberte ayudado en algo.

Atte.

joshua

Link to comment
Share on other sites

Saludos Muscaria.

Primera y única advertencia estas infrigiendo la siguiente norma.

[info]

  • * 2.3 Nunca utilices el tema de otro usuario para tus consultas, aunque sea similar. Crea tu propio tema.

[/info]

Por favor sigue y respeta las normas del foro, no nos obligues a tomar otras medidas.

Atte.

joshua

Link to comment
Share on other sites

hola a todos, sigo con mi problema de poder conectarme a otro libro desde un formulario usando usando conexion Ado

en resumen.

1.- antes tenia el libro bitacora y programado en el mismo libro, todo funciona perfectamnete .

2.- ahora trato de conectarme desde un formulario que pertenece a otro libro

3.- cuando lo llama me dice que falta objecto y me marca el Userform1que es el formulario de para ingresar datos a la bitacora y aveces me marca Datos.select que es una hoja que esta en el libro bitacora.

4.- yo yengo todos los controles instalados como les dije en el archivo original que todo funciona desde le mismo libro no hay problemas, por eso descarto que se por controles.

5.- pienso que tal vez la conexión este mal ?¡

he subidos algunos ejemplo esperando le echen un vistazo y me ayuden a ver el problema.

espero su apoyo.

Gracias

Muscaria

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy