Student Mode Code Display

Welcome to the Fraternity!

Commenting has been enabled. You can comment on all the Code Items now.

Adodb Data Base Connection for Excel and CSV


Add This Code to My Favourite List
Enter Email

Contributed By IT Prof
Date 2016-03-12 08:27:42

'Tutorial: itprof_tut
'Author: Akash
'DB connection
'Connect DB using ADODB
'Connect to Excel or CSV using Adodb Connection

 Dim oRS,oRS_1, sQuery, sFILE_PATH
 sFILE_PATH = "C:\QTPStuff\QTPTrainingCode\DB_ExcelAndCSV\Data.xls"

 'For Connectng Excel as DB
 Print "Excel as DB"
  sQuery = "Select * from [Data$]"
  Set oRS = ExcelConnect(sFILE_PATH, sQuery)

  While Not oRS.EOF
  
    'Fetching the value for each Record
	'If Unable to find a Value then null is Returned
    sClm_1= oRS.fields.item(0)
    sClm_2= oRS.fields.item(1)
	 sClm_3= oRS.fields.item(2)

	Print sClm_1
	Print sClm_2
	Print sClm_3
    
    Call oRS.MoveNext() ' Goes to the next record
  Wend

  ' For Connecting CSV as DB

Print "CSV as DB"
  sQuery = "Select * from [Data$]"
  sFILE_PATH = "C:\QTPStuff\QTPTrainingCode\DB_ExcelAndCSV\Data.csv"
  'Set oRS = CSVConnect(sQuery,sFILE_PATH)

  While Not oRS.EOF
  
    'Fetching the value for each Record
	'If Unable to find a Value then null is Returned
    sClm_1= oRS.fields.item(0)
    sClm_2= oRS.fields.item(1)
	 sClm_3= oRS.fields.item(2)

	Print sClm_1
	Print sClm_2
	Print sClm_3
    
    Call oRS.MoveNext() ' Goes to the next record
  Wend

' Function to Connect Excel as DB
Function ExcelConnect(sSource,sQuery)

	Dim con,rs
	'Creation of Connection Object
	Set con=createobject("adodb.connection")
	
	'Creation of Recordset Object
	Set rs=createobject("adodb.recordset")
	
	 'Connecting to Excel DB
	con.open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ="&sSource&";Readonly=True" 
	
	'Executing Query
	rs.open sQuery,con 

	'retrieving the result
	Set ExcelConnect =  rs
	
	'Release objects
	Set rs= nothing
	Set con= nothing

End Function

' Function to Connect CSV as DB
Function CSVConnect(sSqlQuery,sfilePath)

  Dim con
  'Creation of Connection Object
  Set con=createobject("adodb.connection")
 
  'Creation of Recordset Object
  Set rs=createobject("adodb.recordset")
 
   'Connecting to Excel DB
  con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sfilePath & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"
 
  'Executing Query
  rs.open sSqlQuery,con 
 
  'retrieving the result
  Set CSVConnect =  rs
 
  'Release objects
  'Set rs = nothing
  'Set con= nothing

End Function

Download Above Code

Comments:


Updated by Maksguesk at 2017-04-08 20:09:23
#777AALTOPICS
http://bbs.luohe.com.cn/discuz/home.php?mod=space&uid=23715
http://homecha.com/home.php?mod=space&uid=33014
http://www.eng.kinolog.az/profile.php?lookup=54454
http://roof22.ru/user/MarkPrarf/
http://jiewuzg.cn/home.php?mod=space&uid=421
http://www.john146.us/forums/profile.php?id=312454
http://www.aro4u.com/forums/index.php?showuser=13970
http://bbs.epday.com/home.php?mod=space&uid=373983
http://kfaktiv.ru/user/MarkKib/
http://aprendaacordeon.com.br/index.php?option=com_k2&view=itemlist&task=user&id=303286
http://kubano.ru/users/Markabalp
http://forum.yas98.ir/member.php?2771-MarkMop
http://xinrz.com/home.php?mod=space&uid=28960
http://l2help.lt/user/Jasonabato/
http://love.trnetec.com/home.php?mod=space&uid=9629
http://univer.tneu.edu.ua/user/Markexopy/
http://www.iflybike.cn/home.php?mod=space&uid=54
http://tourban.ir/index.php?option=com_k2&view=itemlist&task=user&id=172159
http://www.3dygame.com/space-uid-12646.html
http://www.ticehui.org/home.php?mod=space&uid=10674
http://56.alschool.kz/user/MarkScory/
http://lnegtl.club/forum/member.php?33-Jasonviany
http://vrpyb.com/space-uid-2441.html
http://bbs.all4seiya.net/home.php?mod=space&uid=400494
http://forum.volveter.ru//index.php?/user/1390-jasonmut/
http://lw2ym.com/home.php?mod=space&uid=1334
http://0359ba.com/home.php?mod=space&uid=129012
http://bbs.168zhuang.com/home.php?mod=space&uid=48980
http://quloushang.cc/home.php?mod=space&uid=127647
http://podudbina.com/index.php/component/users/?option=com_k2&view=itemlist&task=user&id=33824
http://www.kingdomofhanover.com/tot/member.php?action=profile&uid=261925
http://www.jsczxlbc.com/home.php?mod=space&uid=4303
http://tx.zjchina.cc/space-uid-32422.html
http://lbrx.cn/home.php?mod=space&uid=13872
http://www.xiangtaicheng.com/space-uid-7042.html
http://66csw.com/space-uid-474.html
http://www.gwf50.com/home.php?mod=space&uid=5225
http://testmakebelieve.com/home.php?mod=space&uid=10235
http://blog.matrimonioper.com/index.php?option=com_k2&view=itemlist&task=user&id=350325
http://www.ninjaevolution.net/ben/profile.php?id=305142
http://drilling-master.ru/index.php?option=com_k2&view=itemlist&task=user&id=453975
http://techxue.com/space-uid-328314.html
http://www.kasystems.ru/index.php?subaction=userinfo&user=MarkHENCE
http://bbs.lh58.net/home.php?mod=space&uid=11077
http://photoblogs.ru/user/MarkMes/
http://www.at518.com/home.php?mod=space&uid=11614
http://arxiv.ehlibeyt-aka.com/index.php?subaction=userinfo&user=Markhox
http://bbs.kuizhai.com/home.php?mod=space&uid=595604&do=profile&from=space
http://sgh.ru/user/JasonGuT/
http://radiofortuna.ucoz.ru/index/8-19471
Updated by Olegsbeemo at 2017-06-18 22:04:46
Как быстро вернуть себе эрекцию

Страх — это последнее чувство, которое должен ощущать настоящий мужчина, но это только часть правды. Не смотря на то, что парни и мужчины практически ничего не боятся, есть одна тематика, которую мужчины предпочитают не поднимать вовсе! Речь ведется о потенции, мысль о ослаблении которой в состоянии припугнуть любого, даже самого бесстрашного мужика. Ужасная экологическая обстановка на планете, плохое питание и другие факторы никак не поспособствуют усилению мужского здоровья. О том как легко избежать преждевременного ослабления потенции мы расскажем в сегодняшней новости. Статья собрана по материалу с сайта <b>via-sexgra.ru</b>

Главным врагом мужской эрекции считаются вредные привычки. По информации британских исследователей, курящие мужчины занимаются любовью ориентировочно в 2 раза меньше тех, кто не курит. Никотин способствует снижению содержания активного тестостерона, это протестировано сотнями экспериментов. Для того, чтобы данный эффект проявился, достаточно выкуривать даже 1 сигарету в день. Неблагоприятно отражается на силе потенции и крепкое спиртное. Если выпивать по 50 грамм крепкого спиртного ежедневно, то спустя три года о здоровой потенции можно забыть навсегда.

Вторым врагом нормальной мужской потенции считается малоподвижный стиль жизни. От постоянного сидения у мужчин наблюдается застой крови в капиллярах малого таза, который и является частой причиной снижения силы эрекции. Для своевременного предотвращения этой патологии нужно заниматься спортом не менее 7 часов за неделю. Крайне полезно будет также время от времени отказываться от личного авто или общественного транспорта и отправиться на своим ходом. Занятия физкультурой благотворно действуют на мужское здоровье, увидеть первые положительные результаты можно уже примерно спустя полтора месяца постоянных занятий.

Сбалансированное питание может вернуть потенцию за несколько месяцев, вы можете <a href=http://via-sexgra.ru/>интернет аптеки в москве с доставкой дженерики</a> или просто есть природные продукты, что позитивно влияют на силу эрекции. Чтобы быть здоровым и сильным в постели, мужчине необходимо потреблять не менее ста грамм свежих фруктов и овощей за день, а вот красное мясо и чересчур жирная пища могут снизить уровень тестостерона в крови. По исследованиям докторов около 90 процентов парней питаются неправильно, примерно у двадцати процентов из них есть определенные проблемы с потенцией!
Updated by WessFoeboup at 2017-07-18 21:27:51
http://allocating.one

Add your comments...
Name : *      
Email : *      
The content of this field will be kept private and will not be shown publicly

Your Comment/Answer *

Enter the text present in this box : *