dijous, 20 de gener del 2011

Informes en Access amb VBA

Es tracta de fer un informe que reflecteixi el resultat de dues consultes a partir d'un taula:


Pas 1) Creem les dues consultes:
Consulta que comptabilitza els cognoms: Simplement agrupem i fem servir la opció cuenta. El camp es diu, directament, CuentaDeApellido. La consulta es diu QryNumeroAlumnos

Consulta que comptabilitza els alumnes de Barcelona. S'ha modificat el nom del camp que ara es diu TotalBarcelona. La consulta es diu QryBarcelona

Pas 2) Creem l'informe. Les txtbox es diuen, respectivament, txtAlumnos y txtBarcelona
Finalment apliquem el codi que conté un recordset. Atenció: Report Activate

Per si no es veu bé:

Option Compare Database
Option Explicit
Dim rs As Recordset, dbs As Database

Private Sub Report_Activate()

'Es declara una variable pel recordset i una per la base de dades

'S'assigna a la variable base de dades la base activa
Set dbs = CurrentDb

'S'obre el recordset pel objecte database des
'del objecte (consulta) "QryNumeroAlumnos"
Set rs = dbs.OpenRecordset("QryNumeroAlumnos")

'Es situa en una posició del recordset
rs.MoveFirst
Me!txtAlumnos = rs![CuentadeApellido]

Set rs = dbs.OpenRecordset("QryBarcelona")

'rs.MoveFirst
Me!txtBarcelona = rs![TotalBarcelona]

End Sub

dimecres, 12 de gener del 2011

Modificar un text amb EDG de MicroStation

Si volem modificar, per exemple, un element de text 02299 a 022991 és tan simple com:

EdG> set search /char="02299"
EdG> MODIFY CHAR="022991" TOP TO END

Ja està. L'ajuda parla de modify character=substitute i no se quins rollos més. Però es tan fàcil com això.

Si ho volem fer per bastants fitxers, sols cal obrir un edg (amb un fitxer qualsevol) i des d'alli invocar a un txt amb un contingut similar a aquest:

edg c:\barcelona\Alfag.dgn
set search /char="002"
modify char="0021" top to end
edg c:\barcelona\Betag.dgn
set search /char="004"
modify char="0041" top to end
edg c:\barcelona\Betag.dgn
set search /char="006"
modify char="0061" top to end
edg c:\barcelona\Gammag.dgn
set search /char="007"
modify char="0071" top to end
edg c:\barcelona\Gammag.dgn
set search /char="00793"
modify char="007931" top to end
edg c:\barcelona\Deltag.dgn
set search /char="00798"
modify char="007981" top to end
exit


Si aquest fitxer, es digués, per exemple, "CanviarCodis.txt", i estigues ubicat a c:\temp, des del EDG obert ho invocariem amb l'arroba:

Edg> @c:\Temp\CanviarCodis.txt

Atenció que no cal possar cap cometa ni res semblant...

Precaució: Cal tenir present que canviarà TOTS els txt que coincideixin amb la cadena solicitada. Es a dir, no podem modificar sols el primer text que aparegui..

Tags:
EDG
MICROSTATION
MODIFY CHARACTERS
SUBSTITUTE
Cambiar una cadena de texto con edg
How to change a string with edg

divendres, 31 de desembre del 2010

Connexió PC amb TV mitjançant RJ45

L'objectiu era poder veure contingut multimèdia del disc dur del PC en una TV en una habitació diferent. La distància linial -passant un cable per la paret- es situa en torn a 7 metres.

La TV és una Philips TV LCD 32PFL8605H amb 4 connexions HDMI, una RJ45, un parell d'euroconnectors, 4 USB, una VGA i una connexió Pr/Pb/Y entre d'altres. veiu la foto )

La primera opció fou la recomanada per Philips: un PTA01 inalàmbric (en torn a 60 €). En teoria ha der ser una alternativa directa al HDMI, es a dir, la TV es converteix en una segona pantalla.

Com a segona opció un cable HDMI. El cost d'un HDMI d'uns 7 metres en una gran superficie es situa en torn als 30 €. En botigues especialitzades del C/ Casanova es pot trobar per molt menys. Les mateixes botigues, però, no recomanen l'utilització de HDMI tan llargs. A banda, el PC sols té una sortida HDMI. Per tant calia un bifurcador de HDMI (en torn a uns 11 €). Aquesta peça senzilla, resulta que a data d'avui no es pot trobar a Barcelona fins que els senyors xinesos es decideixen a fer-ne unes quantes.

Descartada la primera opció (encara no entenc la causa) i la segona per raons tècniques va apareixer una tercera idea de la que no tenia constància: connexió mitjançat un cable de xarxa de tipus RJ45.

La connexió es bastant simple:

El router (un xavi típic de Telefònica) té quatre entrades. Una d'elles l'ocupa el cable RJ45 que es connecta a la tarja de xarxa del PC. Queden tres lliures. En una d'elles es connecta el nou cable RJ45. L'altre extrem es connecta al TV.

Ara comença la part una mica més complicada. Cal un servidor de medios (segons indica l'ajuda del TV). Qué és això?. Doncs un programa que permeti que l'ordinador i la TV s'entenguin. Es la diferència respecte al HDMI que ho fa tot sol.

El primer servidor de medios que vaig provar (o tastar) era el Tversity. Les primeres impressions foren molt bones, però presentava dos problemes: no es podia fer avançar la pel·lícula a un punt concret i de vegades es perdia la senyal i calia tornar a veure la pel·lícula des del principi.

Vaig consultar novament l'ajuda i entre els diferents "servidores de medios" que proposava vaig escollir el Windows Media Player v11 o superior. Per configurar-ho vaig tenir que crear un compte Windows Live -que no penso fer servir- i fer uns quants canvis que -si ho he conseguit- deu voler dir que una mica intuitiu ha de ser.

I ja està.

Consideracions evidents:
Primer cal engegar router i ordinador.
Desprès la TV. Si ho fem al revés, la TV no reconneixerà l'ordinador i no funcionarà.

Si alguna vegada no es troba la connexió, es canvia el cable del router a un altre forat i llestos.

Aquesta connexió serveix per veure les imatges, música o pel·lícules que tinguem en una o unes carpetes del disc dur o perifèric que indiquem al Windows Media Player. No serveix (o encara no ho he sabut configurar) per veure en el TV videos de internet com ara Youtube o pel·licules on-line.






TAGS:
¿Cómo conectar el PC a la TV mediante RJ45?
Com connectar el PC a la TV mitjançant RJ45?
How connect PC with TV by RJ45?

divendres, 24 de desembre del 2010

Sobre Winlite.iso

Avui he trobat un analitzador d'espai en disc dur -Scanner 2.10- que trobo que és fantàstic. Hi ha referències a http://scanner.softonic.com/ Tan fantàstic és que tenia aigua al foc i quasi em quedo sense...

La qüestió es que analitzant l'ocupació de disc m'he trobat amb un fitxer de 619 Mb anomenat Winlite.Iso.

Prudentment, abans d'esborrar-ho he indagat una mica i, ...pot ser es millor, de moment, no esborrar-ho:

http://es.kioskea.net/faq/175-windows-xp-crear-un-cd-original-pc-de-marca

dimarts, 21 de desembre del 2010

Tornem a estar pletòrics


A banda del Trofeu Nadal 2010....

Vba de Eduardo Olaz

Un fantàstic curs sobre vba creat per Eduardo Olaz

http://www.mvp-access.com/foro/forum_topics.asp?FID=19

diumenge, 19 de desembre del 2010

Capitals d'Europa 2



Antiga URSS



Les Repúbliques Bàltiques. 1990-1991:

Estonia: Tallin (1991)
Letonia: Riga (1991)
Lituania: Vilnius (1990)


Russia: Moscou

1991
Bielorússia: Minsk
Ucraïna: Kiev
Moldàvia: Chisinau

Kazakhastan: Astanà

Geòrgia: Tblisi
Armènia: Erevan
Azerbaidjan: Bakú


























En el mapa de sota podem veure un munt de coses que hem estat tractant darrerament:

El riu Volga desembocnta en el Mar Caspi just desprès d'Astracan.
El riu Ural marcant la frontera entre Europa i Asia juntament amb els Monts Urals
El Dvina septentrional desembocant al Mar Blanc.
Helsinki i Tallin una davan de l'altra.
La ciutat costera de Riga, on desemboca el Dvina occidental o Daugava.
Vilnius, la única capital bàltica que no toca el mar
Kaliningrad, un petit bocí de Russia on encara queda l'enigma de Koningsberg sobre la laguna del Vístula.
Minsk, on la democràcia és poc més que formal.
Kiev, vorejada pel Dnieper
Kazan, conegut pels aficionats del Barça a la riba del Volga
Volgograd, l'antiga Stalingrad en la cruïlla entre el Don i el Volga
Chisinau, molt aprop del Port d'Odesa a la riba del Mar Negre
El Mar de Aral, quasi bé desaparegut entre Kazahistan i Uzbejistan -amb la mítica Samarcanda-.
El Mar Caspi, que banya Baku, la capital de Azerbaiyan.
Erevan, al bell mig de les montanyes d'Armenia
Tblisi, capital de Georgia als peus del Caucas.

I del punt més alt d'Europa (Gora Elbrus amb 5633 metres) en el Caucas al punt més baix amb -28 metres en el Mar Caspi.