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