فى الربط بين vb6 و Oracl ..... لماذا هذا الكود لا يعمل

Dim ses As OraSession

Dim database As OraDatabase

Dim dyn As OraDynaset



Private Sub Command1_Click()

Text1.Text = dyn.Fields("empno").Value

Text2.Text = dyn.Fields("ename").Value

End Sub



Private Sub Form_Load()

Set ses = CreateObject("oracleinprocserver.xorasession")

Set database = ses.OpenDatabase("orcl ", "scott/tiger", 0&)

mysql = "select * from emp"



Set dyn = database.CreateDynaset(mysql, 0&)

End Sub

General