{"id":8145,"date":"2015-07-07T10:39:29","date_gmt":"2015-07-07T08:39:29","guid":{"rendered":"http:\/\/www.palentino.es\/blog\/?p=8145"},"modified":"2015-07-07T10:49:37","modified_gmt":"2015-07-07T08:49:37","slug":"ejemplos-de-consultas-sql-empleando-visual-access","status":"publish","type":"post","link":"https:\/\/www.palentino.es\/blog\/ejemplos-de-consultas-sql-empleando-visual-access\/","title":{"rendered":"Ejemplos de consultas SQL empleando Visual Access"},"content":{"rendered":"<p>Os dejo 2 ejemplos algo complejos, pero que permiten conocer de primera mano, c\u00f3mo emplear el sistema de consultas en <strong>Microsoft Access <\/strong>desde el editor, para crear programaciones a medida. Son 2 consultas tipo <strong>SQL<\/strong>.<\/p>\n<p>La primera de ellas es la\u00a0siguiente:<\/p>\n<p><!--more--><\/p>\n<p>Ejemplo para realizar una consulta de actualizaci\u00f3n param\u00e9trica con acceso a un array de controles de un formulario.<\/p>\n<pre class=\"lang:vbnet decode:true\">DoCmd.SetWarnings False\r\nFor i = 1 To 11\r\ncadena = \"UPDATE articulos set NumeroUnidadesAlmacen = NumeroUnidadesAlmacen -\" &amp; Str(Me.Controls(\"u\" &amp; i)) &amp; \" WHERE id_referencia = '\" &amp; Me.Controls(\"a\" &amp; i) &amp; \"' and NumeroUnidadesAlmacen &gt;= \" &amp; Str(Me.Controls(\"u\" &amp; i))\r\nDoCmd.RunSQL cadena\r\nNext\r\n\r\nDoCmd.SetWarnings True<\/pre>\n<p style=\"text-align: justify;\">Es necesario observar una funci\u00f3n interesante en el ejemplo superior para\u00a0desactivar\u00a0los mensajes de <strong>alerta<\/strong>\u00a0(<strong>SetWarnings<\/strong>) que el propio Microsoft Access realiza cuando se realizan modificaciones sobre los registros.<\/p>\n<p>Podremos usar cualquier tipo de operaci\u00f3n SQL <a href=\"https:\/\/es.wikipedia.org\/wiki\/Lenguaje_de_manipulaci%C3%B3n_de_datos\" target=\"_blank\"><strong>DML<\/strong> <\/a>o de manipulaci\u00f3n. La operaci\u00f3n sobre la base de datos se realiza s\u00f3lamente con 1\u00a0sentencia <strong>RunSQL<\/strong><\/p>\n<p>En este otro ejemplo, la operaci\u00f3n de <strong>a\u00f1adir un registro a la base de datos<\/strong> se efect\u00faa de\u00a0la siguiente manera:<\/p>\n<pre class=\"lang:vbnet decode:true\">Set transaccion = DBEngine.Workspaces(0)\r\nSet base = CurrentDb()\r\ntransaccion.BeginTrans\r\n\r\nSet factura = base.OpenRecordset(\"facturas\")\r\nWith factura\r\n.AddNew\r\n\r\n!id_cliente = ncliente\r\n!numero_factura = facturaactual\r\n!fecha_emision = fecha\r\n!realizada_por = realizadapor\r\n!estado_de_cobro = estado_de_cobro\r\n\r\n.Update\r\nEnd With\r\n\r\n\r\nfactura.Close\r\n\r\ntransaccion.Close\r\nbase.close\r\nSet base = Nothing\r\n<\/pre>\n<p>En este otro ejemplo accedemos a los registros de forma individual. Se emplean\u00a0transacciones.<\/p>\n<p>Funciona para cualquier versi\u00f3n Access.<\/p>\n<p>Eso es todo.<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Os dejo 2 ejemplos algo complejos, pero que permiten conocer de primera mano, c\u00f3mo emplear el sistema de consultas en Microsoft Access desde el editor, para crear programaciones a medida. Son 2 consultas tipo SQL. La primera de ellas es la\u00a0siguiente:<\/p>\n","protected":false},"author":1,"featured_media":7088,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[612,102,560],"tags":[101,671,39],"class_list":["post-8145","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-access","category-microsoft","category-microsoft-access","tag-access","tag-microsoft","tag-sql"],"_links":{"self":[{"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/posts\/8145","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/comments?post=8145"}],"version-history":[{"count":8,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/posts\/8145\/revisions"}],"predecessor-version":[{"id":8153,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/posts\/8145\/revisions\/8153"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/media\/7088"}],"wp:attachment":[{"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/media?parent=8145"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/categories?post=8145"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.palentino.es\/blog\/wp-json\/wp\/v2\/tags?post=8145"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}