Visual Basic - ADO y consultas almacenadas

Life is soft - evento anual de software empresarial
 
Vista:

ADO y consultas almacenadas

Publicado por Sergio Liuzzi (1 intervención) el 14/05/2001 21:46:23
Teniendo una consulta en Access 97, mi duda es como ejecuto una consulta con parametros utilizando los objetos de ADO, es decir pasar los valores de el o los parametros.
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:ADO y consultas almacenadas

Publicado por Norberto (16 intervenciones) el 24/05/2001 21:23:59
checate este codigo, a ver si te sirve
Set cnnCli = New ADODB.Connection
Set rstCli = New ADODB.Recordset

xnombre = "'" & cadena & "'"
rstCli.CursorLocation = adUseClient
Pon_espera (True)

cnnCli.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ruta_base & Nombre_BD & ";Persist Security Info=False"
cnnCli.Open
strConsulta = "SELECT TRAMITES.NumPer, TRAMITES.folio, TRAMITES.NumRel, TRAMITES.Fch_Rcb, TRAMITES.ULT_UBIC, TRAMITES.NumCuad, TRAM_MOTIVO.descripcion, PLAZAS.CvePlz, SINDICATOS.nombre FROM (((TRAMITES INNER JOIN TRAM_MOTIVO ON (TRAMITES.Motivo = TRAM_MOTIVO.motivo) AND (TRAMITES.Tramite = TRAM_MOTIVO.tramite)) INNER JOIN PLAZAS ON (TRAMITES.NumPlz = PLAZAS.NumPlz) AND (TRAMITES.NumPer = PLAZAS.NumPer)) INNER JOIN SINDICATOS ON PLAZAS.Sindicato = SINDICATOS.sindicato) INNER JOIN PERSONAL ON TRAMITES.NumPer = PERSONAL.numper WHERE (((PERSONAL.nomper)= " & xnombre & "))"
rstCli.Open strConsulta, cnnCli, adOpenDynamic, adLockReadOnly

Set DataGrid1.DataSource = rstCli
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