Jump to content

VB6.0 கணிணியளர்கள் யாராவது உதவி செய்வீர்களா நன்றி..


Recommended Posts

  • கருத்துக்கள உறவுகள்
பதியப்பட்டது

VB6.0 யாராவது உதவமுடியுமா?

கல்லூரி காலத்திலேயே இந்த VB6.0 ஏறக்கட்டியாகிவிட்டது... பழைய மென் பொருள் ஒன்று இடபற்றாக்குறையினால் (msaccess-database) மாறுதலுக்காக(mysql) என்னிடம் வந்துள்ளது... சிக்கல் என்ன வென்றால் ADODB முறையில் இவ்வாறு query எழுதியே database table

rs.Open "insert into independent values( '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & Text28.Text & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

திறக்க முடிகிறது...

DAO இதில் நேரடியாக இந்த முறையினாலே database table திறக்க முடிகிறது ...

Set DB = OpenDatabase("C:\xx.mdb")

Set rs = DB.OpenRecordset("independent", dbOpenDynaset)

query எழுதாமல் ADODB முறையினாலும் நேரடியாக இவ்வாறு database table திறக்க முடியுமா? ஏதாவது வழி உள்ளதா?

VB6.0 கணிணியளர்கள் யாராவது உதவி செய்வீர்களா நன்றி..

நன்றி...

  • 2 weeks later...
  • கருத்துக்கள உறுப்பினர்கள்
Posted

VB6.0 யாராவது உதவமுடியுமா?

கல்லூரி காலத்திலேயே இந்த VB6.0 ஏறக்கட்டியாகிவிட்டது... பழைய மென் பொருள் ஒன்று இடபற்றாக்குறையினால் (msaccess-database) மாறுதலுக்காக(mysql) என்னிடம் வந்துள்ளது... சிக்கல் என்ன வென்றால் ADODB முறையில் இவ்வாறு query எழுதியே database table

rs.Open "insert into independent values( '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & Text28.Text & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

திறக்க முடிகிறது...

DAO இதில் நேரடியாக இந்த முறையினாலே database table திறக்க முடிகிறது ...

Set DB = OpenDatabase("C:\xx.mdb")

Set rs = DB.OpenRecordset("independent", dbOpenDynaset)

query எழுதாமல் ADODB முறையினாலும் நேரடியாக இவ்வாறு database table திறக்க முடியுமா? ஏதாவது வழி உள்ளதா?

VB6.0 கணிணியளர்கள் யாராவது உதவி செய்வீர்களா நன்றி..

நன்றி...

Try This

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "Path/database name"

If not working, please explain a bit more what you actually trying to do.

More explanation can be found at, http://msdn.microsoft.com/en-us/library/aa141406(office.10).aspx

  • கருத்துக்கள உறவுகள்
Posted

ஆம் உதவிக்கு நன்றி தோழர் பாண்டியன்... தாங்கள் இணைத்ததில் பார்த்தீர்கள் என்றால் bold செய்யப்பட்டுள்ளது... அதில்

your code:

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "Path/database name"

ex:

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:\Nwind.mdb""

நேரடியாக கணிணியில் c: drive இருக்கும் c:\Nwind.mdb எனும் database access செய்யமுடிகிறது... அதே போல் நேரடியாக ... sql server... mysql.. *.mdf database திறக்கவேண்டும்.....Not by ODBC connection..... அதுவே தோழர்.எனது தேவை... sql query எழுதி திறக்க கூடாது..

as your code its possible to open ms server path of mdf files ???

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open c:\program files\mssqlserver\data\xx.mdf

This is my code:

இது ADODB முறையினால் database table திறந்து textbox value க்களை உள்ளே தள்ளும் முறை...

Dim CN As ADODB.Connection

Dim rs As ADODB.Recordset

Set CN = New ADODB.Connection

Set rs = New ADODB.Recordset

CN.Open "driver={SQL Server};server=(local);uid=;pwd=;database=xx;"

rs.Open "insert into commercial values( '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & "','" & Combo2.Text & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

MsgBox"Datas updated"

இது DAO முறையினால் database table திறந்து textbox value க்களை உள்ளே தள்ளும் முறை...

Dim DB As DAO.Database, rs As DAO.Recordset

Set DB = OpenDatabase("C:\xx.mdb")

Set rs = DB.OpenRecordset("independent", dbOpenDynaset)

rs.MoveLast

rs.AddNew

rs.Fields(0) = Trim(Text1.Text)

rs.Fields(1) = Trim(Text2.Text)

rs.Fields(2) = Combo1.Text

rs.Fields(3) = Combo2.Text

rs.Update

MsgBox"Datas updated"

சுருங்க கூறின் எனக்கு ADODB முறையில் if rs=recordset....... then... rs.edit ... rs.addnew... rs.update உபயோகிக்க வேணும் அப்படி ஒரு code இருந்தால் அதை பதியுங்கள் தோழர் பாண்டியன் ..

mt2ip3.jpg

எனெனில் என்னிடம் upgrade வந்துள்ள இந்த RealEstateமென்பொருள் எல்லாம் DAO ... rs.addnew.. rs.edit.. rs..update முறையில் உள்ளன அதை மாற்றாமல்... அப்படியே வைத்து எதாவது செய்யவேண்டும் என நினைக்கிறேன்... ஒவ்வொரு ADDNEW.. EDIT.. DELETE ...BUTTON க்கும் insert into ... delete from.. என sql query எழுதி கொண்டிருந்தால் நேரம் அதிகமாகும்...

மிக்க நன்றி...

  • கருத்துக்கள உறுப்பினர்கள்
Posted

ஆம் உதவிக்கு நன்றி தோழர் பாண்டியன்... தாங்கள் இணைத்ததில் பார்த்தீர்கள் என்றால் bold செய்யப்பட்டுள்ளது... அதில்

your code:

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "Path/database name"

ex:

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open "c:\Nwind.mdb""

நேரடியாக கணிணியில் c: drive இருக்கும் c:\Nwind.mdb எனும் database access செய்யமுடிகிறது... அதே போல் நேரடியாக ... sql server... mysql.. *.mdf database திறக்கவேண்டும்.....Not by ODBC connection..... அதுவே தோழர்.எனது தேவை... sql query எழுதி திறக்க கூடாது..

as your code its possible to open ms server path of mdf files ???

set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open c:\program files\mssqlserver\data\xx.mdf

This is my code:

இது ADODB முறையினால் database table திறந்து textbox value க்களை உள்ளே தள்ளும் முறை...

Dim CN As ADODB.Connection

Dim rs As ADODB.Recordset

Set CN = New ADODB.Connection

Set rs = New ADODB.Recordset

CN.Open "driver={SQL Server};server=(local);uid=;pwd=;database=xx;"

rs.Open "insert into commercial values( '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & "','" & Combo2.Text & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

MsgBox"Datas updated"

இது DAO முறையினால் database table திறந்து textbox value க்களை உள்ளே தள்ளும் முறை...

Dim DB As DAO.Database, rs As DAO.Recordset

Set DB = OpenDatabase("C:\xx.mdb")

Set rs = DB.OpenRecordset("independent", dbOpenDynaset)

rs.MoveLast

rs.AddNew

rs.Fields(0) = Trim(Text1.Text)

rs.Fields(1) = Trim(Text2.Text)

rs.Fields(2) = Combo1.Text

rs.Fields(3) = Combo2.Text

rs.Update

MsgBox"Datas updated"

சுருங்க கூறின் எனக்கு ADODB முறையில் if rs=recordset....... then... rs.edit ... rs.addnew... rs.update உபயோகிக்க வேணும் அப்படி ஒரு code இருந்தால் அதை பதியுங்கள் தோழர் பாண்டியன் ..

mt2ip3.jpg

எனெனில் என்னிடம் upgrade வந்துள்ள இந்த RealEstateமென்பொருள் எல்லாம் DAO ... rs.addnew.. rs.edit.. rs..update முறையில் உள்ளன அதை மாற்றாமல்... அப்படியே வைத்து எதாவது செய்யவேண்டும் என நினைக்கிறேன்... ஒவ்வொரு ADDNEW.. EDIT.. DELETE ...BUTTON க்கும் insert into ... delete from.. என sql query எழுதி கொண்டிருந்தால் நேரம் அதிகமாகும்...

மிக்க நன்றி...

====================================================================================================

Here is the sample code I worked around for you.

Under SQL SERVER ---> NorthWind Database --> create a table called --> tblTest and add fields called, RecID, Name, NumberID (I have made all fields to nvarchar) -- just for testing purpose.

Dim CN As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Command1_Click()

Set CN = New ADODB.Connection

Set rs = New ADODB.Recordset

CN.ConnectionString = "driver={SQL Server};server=server name;uid=;pwd=;database=NorthWind;"

CN.Open

''''''''''''''''''The commented code below also works OK '''''''''''''''''''''

'strRs = "select * From tblTest"

'

'

' rs.CursorType = adOpenDynamic

' rs.CursorLocation = adUseClient

' rs.LockType = adLockPessimistic

' rs.Open strRs, CN

'

'rs.AddNew

'rs.Fields("RecID") = "00022"

'rs.Fields("Name") = "TEST22"

'rs.Fields("NumberID") = "022"

'rs.Update

rs.Open "select * From tblTest", CN, adOpenDynamic, adLockOptimistic

rs.AddNew

rs("RecID").Value = "00033"

rs("Name").Value = "test33"

rs("NumberID").Value = "33"

rs.Update

MsgBox "Record has been added successfully"

rs.Close

CN.Close

End Sub

Sorry, I am not bothered to write in tamil as I am busy with other stuff.

  • கருத்துக்கள உறவுகள்
Posted

====================================================================================================

Here is the sample code I worked around for you.

Under SQL SERVER ---> NorthWind Database --> create a table called --> tblTest and add fields called, RecID, Name, NumberID (I have made all fields to nvarchar) -- just for testing purpose.

Dim CN As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Command1_Click()

Set CN = New ADODB.Connection

Set rs = New ADODB.Recordset

CN.ConnectionString = "driver={SQL Server};server=server name;uid=;pwd=;database=NorthWind;"

CN.Open

''''''''''''''''''The commented code below also works OK '''''''''''''''''''''

'strRs = "select * From tblTest"

'

'

' rs.CursorType = adOpenDynamic

' rs.CursorLocation = adUseClient

' rs.LockType = adLockPessimistic

' rs.Open strRs, CN

'

'rs.AddNew

'rs.Fields("RecID") = "00022"

'rs.Fields("Name") = "TEST22"

'rs.Fields("NumberID") = "022"

'rs.Update

rs.Open "select * From tblTest", CN, adOpenDynamic, adLockOptimistic

rs.AddNew

rs("RecID").Value = "00033"

rs("Name").Value = "test33"

rs("NumberID").Value = "33"

rs.Update

MsgBox "Record has been added successfully"

rs.Close

CN.Close

End Sub

Sorry, I am not bothered to write in tamil as I am busy with other stuff.

நன்றி தோழர் பாண்டியன் தங்கள் உதவிக்கு பார்த்தீர்கள் என்றால் எனக்கு இந்த rs.Open "select * From tblTest", query ல் rs.AddNew வேலை செய்யவில்லை... அதாவது database table இன் உள்ளே values செல்லவில்லைஆயினும் MsgBox "Record has been added successfully" மாத்திரம் வேலை செய்யுது... போகட்டும் நான் அனைத்து codes மாற்றிவிட்டேன் ..தங்களின் சிரத்தைக்கு நன்றி...நன்றி தோழர் பாண்டியன்....

Posted

வீபி எனக்கு இப்போது டச்சப்பில் இல்லை. பு.த.தே, பாண்டியன் இருவரும் இணைத்த குறியீடுகளை கிரகித்துக்கொள்ள முயற்சித்தேன். பயனுள்ள பதிவு. வாழ்த்துகள்.

  • கருத்துக்கள உறுப்பினர்கள்
Posted

நன்றி தோழர் பாண்டியன் தங்கள் உதவிக்கு பார்த்தீர்கள் என்றால் எனக்கு இந்த rs.Open "select * From tblTest", query ல் rs.AddNew வேலை செய்யவில்லை... அதாவது database table இன் உள்ளே values செல்லவில்லைஆயினும் MsgBox "Record has been added successfully" மாத்திரம் வேலை செய்யுது... போகட்டும் நான் அனைத்து codes மாற்றிவிட்டேன் ..தங்களின் சிரத்தைக்கு நன்றி...நன்றி தோழர் பாண்டியன்....

You are always welcome, புரட்சிகர தமிழ்தேசியன்'

  • கருத்துக்கள உறவுகள்
Posted

நன்றி தோழர் பாண்டியன்.. இந்த code ....நானாக முயற்சித்தது... நன்றாகவே வேலை செய்யுது தோழர்... நன்றி... :)

Option Explicit

Dim CN As ADODB.Connection

Dim rs As ADODB.Recordset

Dim rs1 As ADODB.Recordset

Private Sub Command1_Click()

Dim a As String

rs.Open "insert into commercial values( '" & Text1.Text & "','" & Text2.Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Trim(Text5.Text) & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Combo3.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & RichTextBox1.Text & "','" & RichTextBox2.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text31.Text & "','" & Text25.Text & "','" & Text26.Text & "','" & Text27.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text30.Text & "','" & RichTextBox3.Text & "','" & Text32.Text & "','" & Text33.Text & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

a = "-Nil-"

rs1.Open "insert into pfeedback values( '" & Text25.Text & "' ,'" & Text27.Text & "','" & Text28.Text & "','" & Text32.Text & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Text2.Text & "','" & a & "','" & a & "','" & a & "','" & a & "','" & a & "') ", CN, adOpenStatic, adLockBatchOptimistic, ADODB.CommandTypeEnum.adCmdText

MsgBox "successfully updated"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

Text17.Text = ""

Text18.Text = ""

Text19.Text = ""

RichTextBox1.Text = ""

RichTextBox2.Text = ""

Text20.Text = ""

Text21.Text = ""

Text22.Text = ""

Text23.Text = ""

Text24.Text = ""

Text31.Text = ""

Text25.Text = ""

Text26.Text = ""

Text27.Text = ""

Text28.Text = ""

Text29.Text = ""

Text30.Text = ""

RichTextBox3.Text = ""

Text32.Text = ""

Text33.Text = ""

End Sub

Private Sub Command2_Click()

Form5.Hide

MDIForm1.Show

End Sub

Private Sub Command3_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text14.Text = ""

Text15.Text = ""

Text16.Text = ""

Text17.Text = ""

Text18.Text = ""

Text19.Text = ""

RichTextBox1.Text = ""

RichTextBox2.Text = ""

Text20.Text = ""

Text21.Text = ""

Text22.Text = ""

Text23.Text = ""

Text24.Text = ""

Text31.Text = ""

Text25.Text = ""

Text26.Text = ""

Text27.Text = ""

Text28.Text = ""

Text29.Text = ""

Text30.Text = ""

RichTextBox3.Text = ""

Text32.Text = ""

Text33.Text = ""

End Sub

Private Sub Form_Load()

Combo1.AddItem ("Flat")

Combo1.AddItem ("PenHouse")

Combo1.AddItem ("BuilderFloor")

Combo2.AddItem ("Rent")

Combo2.AddItem ("Sale")

Combo2.AddItem ("Lease")

Combo3.AddItem ("Full")

Combo3.AddItem ("Semi")

Combo3.AddItem ("Un")

Set CN = New ADODB.Connection

Set rs = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

CN.Open "driver={SQL Server};server=(local);uid=;pwd=;database=xxx;"

End Sub

Archived

This topic is now archived and is closed to further replies.



  • Tell a friend

    Love கருத்துக்களம்? Tell a friend!
  • Topics

  • Posts

    • தென்னிலங்கை செய்திகள் 36 நிமிடம் நேரம் முன் வயோதிப தம்பதியினர் உட்பட 6 பேர் போதைப்பொருளுடன் கைது!   நான்கு கோடி ரூபா பெறுமதியான போதைப்பொருளுடன் வயோதிப தம்பதியினர் உட்பட 6 பேரை கஹதுடுவ பொலிஸார் கைது செய்துள்ளனர். சந்தேக நபர்களுடன், 1 கிலோ 50 கிராம் ஐஸ் போதைப்பொருள் மற்றும் 835 கிராம் ஹெரோயினுடன் முச்சக்கர வண்டி ஒன்றும் பொலிஸாரால் கைப்பற்றப்பட்டுள்ளது. மூன்று பேர் பயணித்த சந்தேகத்திற்குரிய முச்சக்கரவண்டியில் ஒருவர் வைத்திருந்த 5,140 மில்லிகிராம் ஐஸ் போதைப்பொருளை கஹதுடுவ பொலிஸ் அதிகாரிகள் குழு கைப்பற்றியது. சந்தேகநபர்கள் கைது செய்யப்பட்டு சந்தேகநபர் ஒருவரின் கைப்பேசியில் பதிவான இணைய வரைபடத்தின் ஊடாக கிரிவத்துடுவ முனமலேவத்தை 16ஆம் லேனில் அமைந்திருந்த சந்தேகத்திற்கிடமான வீடொன்றில் சோதனையிட்ட போது அங்கிருந்த வயோதிப தம்பதியினர் வீட்டினுள் இருந்த நாள் ஒன்றை அவிழ்த்து விட்டு பொலிஸ் அதிகாரிகளை விரட்ட நடவடிக்கை எடுத்திருந்தனர். இதற்கிடையில், மற்றுமொரு நபர் வீட்டின் பின் கதவின் வழியாக  பொதி ஒன்றை எடுத்துக்கொண்டு தப்பிச் செல்ல முயற்சித்த போது அவரை கைது செய்து குறித்த பொதியை சோதனையிட்ட போது அதில் ஹெரோயின் மற்றும் ஐஸ் போதைப்பொருள் காணப்பட்டதாகவும் பொலிஸார் தெரிவிக்கின்றனர். சந்தேகநபரை விசாரித்த போது முச்சக்கரவண்டி சாரதியான தனது மாமாவிற்கு இந்த வாடகை வீடு சொந்தம் எனவும், அவர் கொழும்பு பிரதேசத்தில் வேலை செய்வதாகவும் தான் கிருலப்பனை பிரதேசத்தில் வசிப்பவர் எனவும் கடந்த சில நாட்களுக்கு முன்னர் இந்த வீட்டிற்கு வந்ததாகவும் தெரிவித்தார். கைது செய்யப்பட்ட சந்தேகநபரிடம் இரண்டு நாள் தடுப்புப் காவல் உத்தரவின் பேரில் விசாரணைகள் முன்னெடுக்கப்பட்டு வருகின்றன.    https://newuthayan.com/article/வயோதிப_தம்பதியினர்_உட்பட_6_பேர்_போதைப்பொருளுடன்_கைது!  
    • மாவீரர்களுக்கு வீரவணக்கங்கள்
    • குரங்குகளை பிடித்து சைனாவுக்கு அனுப்புற கையோட என்கடைவெத்து வேட்டு தமிழ் அரசியல்வாதி கள் எனும் குரங்கு கூட்டத்தையும் முக்கியமாய் சுமத்திரன் என்ற குரங்கையும் அனுப்பினால் புண்ணியமாய் போகும் .😄
    • மர்ம காய்ச்சல் காரணமாக 44 பேர் வைத்தியசாலைகளில் அனுமதி Digital News Team     யாழ்ப்பாண மாவட்டத்தில் தற்போது பரவிவரும் ஒருவிதமான காய்ச்சல் காரணமாக இதுவரை 44 பேர் வைத்தியசாலைகளில் அனுமதிக்கப்பட்டுள்ளனர். தற்போது இக்காய்ச்சல் காரணமாக பருத்தித்துறை ஆதார வைத்தியசாலையிலும் யாழ். போதனா வைத்தியசாலயிலும் 32 பேர் சிகிச்சைபெற்று வருகின்றனர் என யாழ். பிராந்திய சுகாதார சேவைகள் பணிப்பாளர் மற்றும் வைத்தியகலாநிதி. ஆ.கேதீஸ்வரன் தெரிவித்தார். இது தொடர்பில் அவர் மேலும் தெரிவிக்கையில், மேலும் இக்காய்ச்சல் காரணமாக இதுவரை 7 இறப்புக்கள் ஏற்பட்டுள்ளன. நோயாளர்களிடமிருந்து கொழும்பு மருத்துவ ஆராய்ச்சி நிறுவனத்திற்கு அனுப்பப்பட்ட மாதிரிகளில் இருவருக்கு எலிக்காய்ச்சல் (Leptospirosis) இருப்பது உறுதிப்படுத்தப்பட்டுள்ளது. எனவே தற்போது மேற்படி காய்ச்சலை எலிக்காய்ச்சலாக கருதி சிகிச்சைகளும் தடுப்பு நடவடிக்கைகளும் முன்னெடுக்கப்பட்டு வருகின்றன. இக்காய்ச்சல் தற்போது பரவிவரும் பருத்தித்துறை, கரவெட்டி, சாவகச்சேரி சுகாதார வைத்திய அதிகாரி பிரிவுகளில் ஒருநாள் காய்ச்சலாக இருந்தாலும் உடனடியாக அருகிலுள்ள அரச வைத்தியசாலையை நாடும்படி அறிவுறுத்தப்பட்டுள்ளது. இப்பிரதேசத்திலுள்ள வைத்தியசாலைகளில் இந்நோய்க்கு சிகிச்சை வழங்குவதற்கான மருந்துகள் வழங்கப்பட்டுள்ளன. இவ்விடயம் சம்பந்தமாக சுகாதார வைத்திய அதிகாரிகளால் ஒலிபெருக்கி மூலம் பொதுமக்களுக்கு அறிவிக்கப்படுகின்றது. மேலும் பிரதேச செயலாளர்களின் உதவியுடன் கிராமமட்ட உத்தியோகத்தர்கள் மூலமாக பொதுமக்களுக்கு இவ்விடயம் சம்பந்தமாக விழிப்புணர்வு ஏற்படுத்தப்படுகின்றது. எலிக்காய்ச்சல் நோய் ஏற்படக்கூடிய ஆபத்து இலக்கினர்களான விவசாயிகள், மீன்பிடித் தொழிலாளர்கள், துப்பரவுப் பணியாளர்கள் போன்றவர்களுக்கு இந்நோய்க்கான தடுப்பு மருந்து வழங்குவதற்கு ஏற்பாடு செய்யப்பட்டுள்ளது. விவசாயத் திணைக்களத்தின் பிரதேசமட்ட உத்தியோகத்தர்களின் உதவியுடன் கிராமமட்டத்தில் விவசாயிகளுக்கு தடுப்பு மருந்துகளை வழங்க ஏற்பாடு செய்யப்பட்டுள்ளது. இந்நோய்ப்பரம்பலை ஆய்வுசெய்து ஆலோசனை வழங்குவதற்காக மத்திய சுகாதார அமைச்சின் தொற்றுநோய்த் தடுப்பு பிரிவிலிருந்து வைத்திய நிபுணர்கள் குழுவொன்று யாழ்ப்பாண மாவட்டத்திற்கு வருகைதந்துள்ளது. அவர்கள் வைத்தியசாலைகளிலும் சுகாதார வைத்திய அதிகாரி பணிமனைகளிலும் களத்திலும் ஆய்வுகளை மேற்கொண்டு உரிய ஆலோசனைகளை வழங்கவுள்ளனர். மேலும் இந்நோய்க்கு சிகிச்சை அளிப்பதற்கான ஒருதொகுதி மருந்துகள் சுகாதார அமைச்சின் மருத்துவ வழங்கல் பிரிவினால் யாழ்ப்பாணம் மாவட்டத்திற்கு அனுப்பி வைக்கப்பட்டுள்ளது என தெரிவித்தார். https://thinakkural.lk/article/313646  
  • Our picks

    • "முதுமையில் தனிமை [Senior Isolation]"/பகுதி: 01
      உலகத்தின் சனத்தொகை ஒவ்வொரு ஆண்டும் கூடிக் கொண்டு போகிறது. இத்தகைய சனத்தொகை அதிகரிப்பில் முதியோரின் அதிகரிப்பு வேகமானதாக உள்ளது என்பதை புள்ளி விபரங்கள் எடுத்தியம்புகின்றன. 2021 ம் ஆண்டளவில் உலக சனத் தொகையில் ஏறத்தாள கால் பங்கினர் (23%) 60 வயதிற்கு மேற்பட்டோராய் இருப்பர் என எதிர்வு கூறப்பட்டுள்ளது. ஆனால் முதியோர் என்றால் என்ன ? மக்களில் வயதில் மூத்த, நீண்ட நாள் வாழுபவரையும் [elderly people] மற்றும் நல்ல உலக அனுபவம், பலவகைக் கல்வி முதலான தகுதிகளைக் கொண்ட அறிவில் பெரியவர்களையும் [persons of ripe wisdom] முதியோர் என பொதுவாக குறிப்பிடுவர். இதில் நாம் முன்னையதைப் பற்றி மட்டும் இங்கு ஆராய உள்ளோம்.
        • Like
      • 4 replies
    • "சோதிடமும் அசட்டுநம்பிக்கையும்"

      தமிழர்களுக்கு நான்கு என்ற எண்ணை நிறையவே பிடிக்கும். இதைப் பார்க்கையில் சங்க காலத்திலேயே எண் சோதிடம்- (Numerology) "பித்து" வந்துவிட்டதோ என்று தோன்றுகிறது. ஆனால் சங்க காலத்துக்குப் பின்னர் தான் நூல்களையும் பாக்களையும் தொகுக்கும் வேலைகள் துவங்கின. என்ன காரணமோ தெரியவில்லை நூல்களின் பெயர்களில் 4, 40, 400, 4000 என்று நுழைத்து விட்டார்கள். நான் மணிக் கடிகை முதல் நாலாயிர திவ்யப் பிரபந்தம் வரை சர்வமும் நாலு மயம்தான் !!

      “ஆலும் வேலும் பல்லுக்குறுதி, நாலும் இரண்டும் சொல்லுக் குறுதி” என்று சொல்லுவார்கள். ஆல, வேல மரங்களை விளக்கத் தேவை இல்லை. “நாலும் இரண்டும்” என்பது வெண்பாவையும் குறள் வகைப் பாக்களையும் குறிக்கும். நம்பிக்கை தவறில்லை அது மூடநம்பிக்கை யாகமல் இருக்கும் வரை. அளவுக்கு அதிகமாக இதுபோல சிந்திக்கும் போது நம்பிக்கையே மூடநம்பிக்கைக்கு வழிவகுப்பதாக அமைகிறது!.
        • Like
      • 4 replies
    • இதை எழுத மிகவும் அயற்சியாய்த் தான் இருக்கிறது.

      ஜீவா போன்றவர்களுக்கு இந்து மதத்தை காப்பாற்ற வேண்டிய தேவை என்ன என்பதை நான் கேட்கவில்லை ஆனால் சமுத்ரா போன்றவர்களுடைய தேவையில் இருந்து மாறுபட்டதாக அது இருக்கும் என்று புரிந்துகொள்கிறேன். அது என்னுடைய புரிதல். எல்லோரும் எதோ ஒரு புரிதலின் அடிப்படையிலேயே அடுத்த அடியை எடுத்து வைக்கிறோம்.
        • Like
      • 4 replies
    • மனவலி யாத்திரை.....!

      (19.03.03 இக்கதை எழுதப்பட்டது.2001 பொங்கலின் மறுநாள் நிகழ்ந்த ஒரு சம்பவத்தின் நினைவாக பதிவிடப்பட்டது இன்று 7வருடங்கள் கழித்து பதிவிடுகிறேன்)

      அந்த 2001 பொங்கலின் மறுநாள் அவனது குரல்வழி வந்த அந்தச் செய்தி. என் உயிர் நாடிகளை இப்போதும் வலிக்கச் செய்கிறது. அது அவனுக்கும் அவனது அவர்களுக்கும் புதிதில்லைத்தான். அது அவர்களின் இலட்சியத்துக்கு இன்னும் வலுச்சேர்க்கும். ஆனால் என்னால் அழாமல் , அதைப்பற்றி எண்ணாமல் , இனிவரும் வருடங்களில் எந்தப் பொங்கலையும் கொண்டாட முடியாதபடி எனக்குள் அவனது குரலும் அவன் தந்த செய்திகளும் ஒலித்துக் கொண்டேயிருக்கும்.
      • 1 reply
    • பாலியல் சுதந்திரமின்றி பெண்விடுதலை சாத்தியமில்லை - செல்வன்


      Friday, 16 February 2007

      காதலர் தினத்தை வழக்கமான தமது அரசியல் நிலைபாடுகளை பொறுத்து அணுகும் செயலை பல்வேறு தரப்பினரும் உற்சாகமாக செய்து வருகின்றனர்.கிரீட்டிங் கார்டுகளையும், சாக்லடுகளையும் விற்க அமெரிக்க கம்பனிகள் சதி செய்வதாக கூறி காம்ரேடுகள் இதை எதிர்த்து வருகின்றனர்.அமெரிக்க கலாச்சாரத்தை திணிக்க முயற்சி நடப்பதாக கூறி சிவசேனாவினரும் இதை முழுமூச்சில் எதிர்க்கின்றனர். தமிழ்நாட்டில் பாமக ராமதாஸ் இதை கண்டித்து அறிக்கை விட்டுள்ளார். பாகிஸ்தானிலும், அரபுநாடுகளிலும் இதை எதிர்த்து பத்வாக்கள் பிறப்பிக்கப்பட்டு அதை மீறி இளைஞர்கள் இதை கொண்டாடியதாக செய்திகள் வந்துள்ளன.
      • 20 replies
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.