Sunday, July 20, 2014

పిల్ల జమిందార్, జ్యాదా జులుందార్

పిల్ల జమిందార్, జ్యాదా జులుందార్

అవసారలకడిగే ఆనవాయితీలేదు
అరుపులతో అన్నీ అమరవలసిందే
ఏడ్పుతో ఎడారిలో నీరయినా పుట్టు
నవ్వుతో నాల్గులోకాలనొక్కమారు మోహించు
పిల్ల జమిందార్, జ్యాదా జులుందార్

నిద్దురలేస్తూనే నరవాహనం
పరిచర్యలు చేసే పలు దాసీ జనం
అనుక్షణం వెంటుండే ఆంతరంగిక రక్షాదళం
కాలు కందకుండా ఇల్లంతా మెత్తలు
పిల్ల జమిందార్, జ్యాదా జులుందార్

మొహమైనా కడగడు మొదట పాలు తాగాలి
నలుగు పెట్టకుండా స్నానమేమొ చెయ్యడు
అగులు బొట్టు పెట్టాలి రాత్రి దిష్టి తియ్యాలి
అంతా రాజసమే అన్నిటా తన ఇష్టమే
పిల్ల జమిందార్, జ్యాదా జులుందార్

బంగారు కడియాలా? వెండి మొలతాడా?
ఏది లెక్కచెయ్యని జల్సారాయుడు
ఆడుకోడానికి అక్కరలేనిదేమీలేదు
నిజంగా కావాల్సినదేదిలేదు
పిల్ల జమిందార్, జ్యాదా జులుందార్

కాలి బొటనివేలు అలవోకగా నోటిలోకి చేర్చే
ఆసనాలు నేర్చిన బాలయోగి
ఆకలికి తప్ప అన్య సమయాలలో
ఆనందమే తప్ప వేరు యెరుగని ఆనంద యోగి
పిల్ల జమిందార్, జ్యాదా జులుందార్

ఆ బాలక్రిష్ణుని నోటిలో ఆనంత విశ్వం
అందుకే కాబోలు 
ఆన్నీ నోట్లోపెట్టే విశ్వ ప్రయత్నం

అమ్మ చీర కొంగు, అత్త చీర కుచ్చు
నాన్న టీ షర్టు, మామ్మ జాకెట్టు
ఆడుకునే బొమ్మ ఉయ్యాల కమ్మ
ఏదైనా నోట్లోకే 
పిల్ల జమిందార్, జ్యాదా జులుందార్

ఆస్తులందరికీ అబ్బు అవేమి లెక్క?
అడకుండానే
అమ్మ అమ్మమ్మ నాన్న నానమ్మ
ఎన్ని ముద్దులో ... లెక్కలేని సిరి
బుగ్గ గిల్లి ముద్దివ్వని కన్నెలుండునా?
18000 గోపికల కొదువ ఉండునా?
పిల్ల జమిందార్, జ్యాదా జులుందార్

నీ భాష ఏదైనా నీ దేశమేదైనా
వాడి భాషేకాని నిను లెక్కచేయడు
పుట్టుకతోనే ప్రముఖుడు (సెలబ్రిటీ)
పిల్ల జమిందార్, జ్యాదా జులుందార్





Saturday, June 21, 2014

VB Scirpt || ADODB Connection Code

PUBLIC Records_Count
PUBLIC Ret_Val

DB_ServerConn_String = "HOST=< Server IP addr or name>;PORT=<server prot num>;SERVICE_NAME=<servicename or sid>;uid=<Username>;pwd=<password>"
OR
DB_ServerConn_String = "DSN=<predefinedDSNCOnnectionName>;USERID=<Username>;Password='<password>'"
Click here To find Examples for Connection string

Function Execute_Query(DB_ServerConn_String ,QueryString)
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
'Const adOpenStatic = 3
'Const adLockOptimistic = 1 ''adLockReadOnly
'Const adUseClient = 2 ''adUseServer

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

objConnection.Open DB_ServerConn_String
If objConnection.state=1 Then
objConnection.CommandTimeout=0
objRecordset.CursorLocation = adUseClient
objRecordset.Open QueryString , objConnection, adOpenStatic, adLockOptimistic
If objRecordset.BOF<>true and objRecordset.EOF<>true Then
If objRecordset.RecordCount<>0 Then
                                                Records_Count=objRecordset.RecordCount
Ret_Val=objRecordset.GetRows
else
Ret_Val="No Records Found"
End If
else
Ret_Val="No Records Found"
End If
objRecordset.Close
else
Ret_Val="Not Connected"
End If

objConnection.Close
Execute_Query= Ret_Val
       
End Function