carlos
27 de Octubre del 2005

Estoy realizando una aplicación en Access y necesito un poco de código Visual Basic, solo se realizar cosas básicas en Basic y necesito conexión con SQL, la verdad es que no me apaño muy bien, os explico un poco, necesito conexión a una base de datos de SQL a una tabla en concreto, y realizo la consulta con el siguiente código:



‘ Parte del código del formulario







Dim cadena1 As String

Dim cadena2 As String





cadena1 = "select raiz from dbo_trazabilidad_art where barras like \'" & subcadena3 & "\'"



AnyadirDatosHoja cadena1, cadena2



Texto26.Value = cadena2







End Sub











‘ Todo el código del modulo









Option Compare Database



Dim Conexion As ADODB.Connection

Const BaseDatosSQL = "pedidos"



Sub ConexionSQL(Optional strCVIEU As String)



Set Conexion = New ADODB.Connection

Conexion.Provider = "SQLOLEDB.1"

Conexion.Properties("Data Source").Value = "ESSQL03"

Conexion.Properties("Initial Catalog").Value = BaseDatosSQL

Conexion.Properties("Integrated Security").Value = "SSPI"

Conexion.CommandTimeout = 600

Conexion.Open



End Sub



Public Sub AnyadirDatosHoja(consultaSQL As String, texto As String)



Dim cadena As String

Dim BaseDatos As Database



Dim recEmpleados As Recordset



Set BaseDatos = OpenDatabase("C:\trazabilidad.mdb")

Set recEmpleados = BaseDatos.OpenRecordset(consultaSQL)

texto = ?????? ¿Aquí que va?





End Sub





Lo que quiero es devolver el valor de la consulta sobre la variable texto, es que no sé mucho y a ver si me podeis echar una mano, a lo mejor pido demasiado, no?

violeta01
27 de Octubre del 2005

mira tu codigo esta un poco raro pero si quieres devolver el valor de la consulta lo que puedes hacer es por ejemplo si quieres mandar un campo en especifico seria asi

texto=recEmpleados!nombre
y asi sucesivamente todos los campos que ocupes

espero que te sirva