ravot19
01 de Abril del 2005

Estoy tratando de obtener una consulta a través de ADO pero no se que pasa, seguramente es muy fácil pero no me queda, alguien me puede ayudar?
el código completo es:

Dim conDatabase As ADODB.Connection
Dim mpio_Recordset As ADODB.Recordset

Dim SQL_Str As String

SQL_Str = "SELECT * FROM tmpio WHERE [tmpio].[clave]= " + nombreMpio.Column(0) + ""

Set conDatabase = CurrentProject.Connection
Set Mpio_Recordset = New Recordset
Mpio_Recordset.Open SQL_Str, conDatabase, , , adCmdTable

With Mpio_Recordset
While Not .EOF
abrevMpio = !abrev
Wend
End With

Mpio_Recordset.Close
conDatabase.Close
Marca el siguiente error
Error de sintaxis en la cláusula FROM

clasico_28
01 de Abril del 2005

'" + txtfields(Index) + "'

Alejandro Tello
01 de Abril del 2005

Hola, así a simple vista no veo el error, pero te invito a visitar mi página, hay varios ejemplos donde se ocupan conexiones y otros objetos, estoy a punto de subir un manual, te invito a visitarla.

Saludos.
www.kognos.com.mx/foro

Max
01 de Abril del 2005

Te faltan las comillas simples antes y despues del igual. y los corchetes te sobran. No molestan pero en realidad no son necesarios.

Quedaría tal que así

SQL_Str = "SELECT * FROM tmpio WHERE tmpio.clave= ='" & nombreMpio.Column(0) & "'"

lorrich
01 de Abril del 2005

Dependiendo del tipo que sea clave, no necesita las comillas, si es numerico, no las necesitaria.

Yo creo que lo que le falta es en NEW en la declaracion de las varialbles Connection y RecordSet.

Algo asi:

Dim con As NEW ADODBC.Connection
Dim rst As NEW ADODBC.RecordSet

Un saludo.

nosotr@s :)
01 de Abril del 2005

SQL_Str = "SELECT * FROM tmpio WHERE tmpio.clave=" & nombreMpio.Column(0)

prueba con esto, si no te funciona pon el nombre de los campos y el resto como te he puesto