Sql Fetching in VB

[myasin78]

Hello,

I am trying to fetch an oracle table using vb app.
here is my current code.
can someone tell me what i am doing wrong.

Private Sub Command1_Click()
Dim Rs1 As New ADODB.Recordset
Dim buffer As String
Dim dbConn As New ADODB.Connection
Dim strSql As String

buffer = "DSN=yamato;UID=myasin;PWD=mypasswd"
dbConn.Open buffer

strSql = "SELECT * FROM tableName"
Rs1.open strSql
With Rs1
.MoveFirst
txtoutput.Text = Rs1.Fields(1)
End With
Rs1.Close

thanks,

 

[PHV]

Why use the .MoveFirst method ?
Anyway, what is your problem ?

 

[Tranman]

On the line:
Rs1.open strSql

you need to refer to the open connection:
Rs1.open strSql,dbConn

Then it will work OK.

At the end of the sub, you need to close both the connection and the recordset, then set them both to nothing:

Rs1.Close
dbConn.Close

Set Rs1 = Nothing
Set dbConn = Nothing

Be aware that the Fields collection starts with (0), instead of (1).

Tranman

 

[myasin78]

thank you guy,

i got it to work.