Visual Basic - Sql en VBA

Life is soft - evento anual de software empresarial
   
Vista:

Sql en VBA

Publicado por RafaCM (10 intervenciones) el 12/02/2009 14:20:18
Buenas tardes gente del foro. Que raro otra vez por aki jejeje. Se nota que soy nuevo en esto jejejeje. Bueno he aqui mi nueva duda. Mirar el siguiente modulo:

Private Sub Cuadro_combinado24_BeforeUpdate(Cancel As Integer)
Dim tipo As String
Dim numexp As Integer
Dim ide As Integer
tipo = [TipoExperiencia]
numexp = [Nº Expte]
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:Documents and SettingsProfesorMis documentosd2.mdb"
Dim rs As New ADODB.Recordset
rs.Source = "CV_ExpLaboral"

rs.Open "Select IdeExp from CV_ExpLaboral where TipoExperiencia="&tipo&"and NºExpete ="&numexp&,cn

Creo que el proceso para hacer una consulta en un evento es así. PEro m da un error en la ultima linea, en la de la consulta sql. Que error estoi cometiendo¿?¿? Otra de mis dudas es ¿Como cogo el valor de la consulta y lo introduzcico en la variable ide?
Si ven mas errores me los podeis comentar, para así subsanarlos

Gracias a todos y saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sql en VBA

Publicado por quique (34 intervenciones) el 12/02/2009 15:45:31
jejeje lo k tenes kaser es un jejeje es k a lo mejor no le estas poniendo jejeje los separadores correctos jejeje a tu consulta jejeje

el error k'estoi kometiendo el como coges el valor de la consultas y lo introduzcices en la variable ide.

xDxDXd
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sql en VBA

Publicado por P3L30N2009 (701 intervenciones) el 12/02/2009 18:54:06
Asumiendo que la tabla se llama "CV_ExpLaboral" y que solamente quieres mostrar el campo "IdeExp" y que los campos "TipoExperiencia" y "NºExpete" de dicha tabla son de tipo numérico, la consulta sería así:

"Select IdeExp from CV_ExpLaboral where TipoExperiencia= " & tipo & " and NºExpete =" & numexp, cn
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sql en VBA

Publicado por Gmike (7 intervenciones) el 16/02/2009 18:50:32
Rafa: Intenta de esta forma ....
rs.Open "Select IdeExp from CV_ExpLaboral where TipoExperiencia=' " & tipo & " ' and NºExpete =' " & numexp & " ' ",cn

pon atencion en donde se abren y cierran las comillas ( " ) y te faltan apostrofos ( ' ). Para pasar el resultado a una variable usa esto .. ide= rs.fields("IdeExp").

Me cuentas como te fue.
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Sql en VBA

Publicado por gmike (7 intervenciones) el 16/02/2009 19:12:46
Otra cosa que se me paso observar es en la declaracion del recordset
para declararlo se hace asi: Dim rs As ADODB.Recordset.
Luego tienes que inicializarlo, lo haces asi: Set rs = New ADODB.Recordset
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar