राम जी की आरती

धर्म शास्त्रार्थ तत्वज्ञ ज्ञानविज्ञान पराग

विवितार्थिहरा चिन्तय देवाचार्य नमोस्तुते





आरती की जै राम तुम्हारी | राम दयालु भक्त हितकारी |

जनहित प्रगटे हरि व्रतधारी | जन प्रह्लाद प्रतिज्ञा प्यारी |

द्रुपद्सुता को चीर बढायो | गज के पाद पयादे धायो |

दस सिर छेदि बीस भुज तोरें | तैंतीस कोटि देवि बंदी छोरें |

छत्र लिए सर लक्ष्मण भ्राता | आरती करत कौशल्या माता |

शुक शारद नारद मुनि ध्यावें | भारत शत्रुघन चँवर ढुरावें |

राम के चरण गहे महावीरा | ध्रुव प्रह्लादि बलिसुर वीरा |

रक्षा कर प्रह्लाद बचायो | हृन्याकश को स्वर्ग पठायो |

लंका जीति अवध घरि आए | सब संतन मिलि मंगल गाए |

सीय सहित सिंघासन बैठे रामा | सभी भक्तजन करेँ प्रणामा |

हिन्दी लिखने का अभ्यास

ॐ शान्ति ॐ
आँखों में तेरी अजब सी अजब सी अदाए हें आँखों में तेरी अजब सी अजब सी अदाए हें
हो ! दिल को बनादे जो पतंग सासे जो तेरी वो अदाए हें

तेरे साथ साथ ऐसा कोई नूर आया है चाँद तेरी रोशनी का हल्का सा इक साया है तेरी नजरो ने किया जो असर हश्र ये हुआ अब डूब के हो जाऊ इनमे पार येही येही है दुआ

आँखों में तेरी अजब सी अजब सी अदाए हें आँखों में तेरी अजब सी अजब सी अदाए हें
हो ! दिल को बनादे जो पतंग सासे जो तेरी वो अदाए हें

इस गाने को लिखने के लिए मैंने निम्नलिखित URL का सदुपयोग किया:
http://www.google.com/transliterate/indic

Access VBA Tricks

In one of my projects, I had to build data dictionary from Access Database. All my efforts of trying to copy and paste the column descriptions into excel were fruitless. Based on my previous VB experience, I tried to use VBA to extract the details.

I simply started with trying to get tall table names using simple scripts. After various iterations I was able to get the table names and their descriptions. Here is the script that I used to get the table names and their descriptions from the current database.

Function DisplayTableDescriptions()
On Error GoTo Err_DisplayTableDescriptions

Dim DB As DAO.Database
Dim tbl As DAO.TableDef
Dim prp As DAO.Property
Dim NoDescription As Boolean
Dim DescriptionText As String
Dim TableNameText As String

Set DB = CurrentDb

For Each tbl In DB.TableDefs
NoDescription = False
Set prp = tbl.Properties("description")
If NoDescription Then
Debug.Print "Table: " & tbl.Name
DescriptionText = "No Description"
TableNameText = tbl.Name

Else
Debug.Print "Table: " & tbl.Name & " " & prp.Value
DescriptionText = prp.Value
TableNameText = tbl.Name

End If
Next

Exit_DisplayTableDescriptions:
DB.Close
Exit Function

Err_DisplayTableDescriptions:
If Err.Number = 3270 Then
NoDescription = True
Resume Next
Else
MsgBox Err.Description
Resume Exit_DisplayTableDescriptions
End If
End Function

Now the next task was to get column names of individual tables and extract the column descriptions. I was able to get the column name but the description property was little challenging. Again the following script provided me with the column names and their descriptions. Because of time constraint, I had to execute script for each table in my database. Thanks to copy/paste feature, it was a piece of cake.

Sub DisplayTableColumnDescriptions()

Dim rstCounterparty As Database
Dim rstTables As Recordset
Dim fldTableDef As Field
Dim prpLoop As Property
Dim ColumnDetailsText As String

Set rstCounterparty = OpenDatabase("c:/tablename.mdb")

Debug.Print ""
Debug.Print ""
Debug.Print " TableOne Details:"
Debug.Print ""

Set rstTables = rstCounterparty.OpenRecordset("TableOne")
ProcessTable rstTables

Debug.Print ""
Debug.Print " TableTwo:"
Debug.Print ""

Set rstTables = rstCounterparty.OpenRecordset("TableTwo")
ProcessTable rstTables

Debug.Print ""
Debug.Print "tdCPInfo_UParents Details:"
Debug.Print ""

rstCounterparty.Close

End Sub


Sub ProcessTable(rstTables As Recordset)

Dim fldRecordset As Field

' Function to process the passed table

' Assign a Field object from different Fields
' collections to object variables.
For field_count = 0 To rstTables.Fields.Count - 1
'Set fldTableDef = _
'rstCounterparty.TableDefs(0).Fields(field_count)
Set fldRecordset = rstTables.Fields(field_count)

' Print report.
FieldOutput "Recordset", fldRecordset
Next field_count

rstTables.Close

End Sub


Sub FieldOutput(strTemp As String, fldTemp As Field)
' Report function for FieldX.

Dim prpLoop As Property

'Debug.Print "Valid Field properties in " & strTemp

' Enumerate Properties collection of passed Field
' object.
For Each prpLoop In fldTemp.Properties
' Some properties are invalid in certain
' contexts (the Value property in the Fields
' collection of a TableDef for example). Any
' attempt to use an invalid property will
' trigger an error.
On Error Resume Next
If prpLoop.Name = "Name" Then
ColumnDetailsText = prpLoop.Value
'Debug.Print " " & prpLoop.Name & " = " & prpLoop.Value
End If
If prpLoop.Name = "Description" Then
ColumnDetailsText = ColumnDetailsText & " " & prpLoop.Value

'Debug.Print " " & prpLoop.Name & " = " & prpLoop.Value
Debug.Print ColumnDetailsText
'ColumnDetailsText = "\n"
End If
On Error GoTo 0
Next prpLoop

End Sub


Happy Learning

Ruby East - 28th September 2007

http://www.ruby-east.com/rubyeast/

Attended Ruby East on 28th September 2007. Ruby East is organized by Chariot Solutions.

There is an interesting story behind my attending Ruby-East. Recently I started visiting the NJ Java User group. In my first visit, there was a raffle for Ruby-East which was won by James Guistwite [jguistwite@gmail.com]. He was unable to attend the seminar so he passed his offer to me.

Personally I found it as an interesting experience. I am a newbie to Ruby. This seminar gave me an opportunity to learn and get up to speed with Ruby. I reviewed all basic concepts of Ruby using some tutorials in two days before the seminar. This gave me a foundation to attend the Track 2 of the seminar where some of the advanced concepts were covered.



Big Day



I started at sharp 6.00 A.M. from my home. The morning was little drizzly but the traffic was smooth. Reached the Penn State - Great Valley Campus exactly at 7.30 A.M. My opinion is it is always good to reach early than late. Registration process was fine. Did a quick break fast and headed to the Musser Auditorium. Grabbed a seat close to the podium. Turned on my laptop and got the Internet connection setup.



Track 1: 9.00 A.M. - 10 A.M. Keynote: Hal Fulton - TheFuture of Ruby.



http://rubyhacker.com/



Hal Fulton is a Wizard of Ruby in his own terms.



Here are the abstracts of his presentation:



It has been 14 years since the earliest beginnings of Ruby, and at least seven years since it was introduced to the US. The past history is interesting, but the future is more so. What changes can we expect to see in the language, in its environment, and in its community? No one has a crystal ball, but these are the opinions of one Ruby expert.



Hal talked about Ruby 1.9 and Ruby 2.0. Ruby 1.9 is anticipated by Christmas 2007. During his talk he mentioned about Rubinius (http://rubini.us/) as the future version of Ruby.



Other interesting topics he talked about JRuby, Ruby.NET, Cardinal, YARV and Rubinius.



Groovy, Python and Peal 6 has borrowed many features from Ruby.



Some googling on Hal Fulton gave me interesting links:

http://www.infoq.com/articles/what-is-the-ruby-way