by imtiyazul haque (2 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 28th August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
database connection with dsn.
API Declarations
dim cn as rdoConnection
dim rs as rdoResulttest
'name it command one
'enter the code for command
'put three text box on form
private sub command1_click()
rs.movenext
fills 'for result
end sub
private sub form_load()
set env=rdoEnvironments(0)
env.cursorDriver=rdUseOdbc
env.UserName="imtiyaz"
en.password="haque"
set cn=env.openConnection("sih") 'dsn name
set rs=cn.openresulttest("select * from book",rdopendynamic,rdconcurRowver) 'this is for secuirity and dyanamic result with all rows
text1.text=rs(0)
text2.text=rs(1)
text3.text=rs(2)
end sub
sub fills()
text1.text=rs(0)
text2.text=rs(1)
text3.text=rs(2)
end sub