Evento con sql
Publicado por RafaCM (34 intervenciones) el 12/02/2009 13:57:31
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
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
0