IamBLAM

 Profile Answers by IamBLAM 

• Feb 21st, 2008

 

Hi, Try this:

Set dbConObj = CreateObject("ADODB.Connection")

dbConObj.conncectionstring = "DSN=flight32"   ' (the DSn of ur Application)

dbConObj.open

'  give sql qu ery

' get the ouput   using msgbox or datatable functions

dbConObj.close

gampatriveni

 Profile Answers by gampatriveni 

• Apr 15th, 2008

 

Option Explicit
Dim rs,con
Set con=createobject("adodb.connection")
Set rs=createobject("adodb.recordset")
con.open "provider=oraoledb.1,server=localhost;uid=scott;pwd=tiger;db=testdata
rs.open "select * from emp",con
Do while not rs.eof
vbwindow("form1").vbedit("val1").set rs.fields("v1")
vbwindow("form1").vbedit("val2").set rs.fields("v2")
vbwindow("form1").vbbutton("add").click
rs.move next
Loop

If am wrong correct me

acmanju

 Profile Answers by acmanju Questions by acmanju

• Jul 20th, 2008

 

Using ADODB concept can able to connect Database and can fetch the data.