vb Á¬½Ó oracleÊý¾Ý¿â»ù´¡

VB code:

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data Source=TEST;"
strQuery = "select * from aaa"
Set rs = New ADODB.Recordset
rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub



ÎÒʹÓÃÉÏÃæµÄvb´úÂëÁ¬½ÓµÄoracleÊý¾Ý¿â£¬ÄÄλÄÜ°ïæÏêϸ½âÊÍÒ»ÏÂÿһ¾äµÄº¬Òå

---

cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User Id=aaa;Password=aaa;Data    Source=TEST;"
**************
´ò¿ªÊý¾Ý¿âÁ¬½Ó

---

rs.Open strQuery, cn, adOpenStatic, adLockOptimistic
***************************************************
µÃµ½¼Ç¼¼¯

---

ÄÇЩ¾ÍÊÇ»ù±¾µÄÁ¬½ÓÊý¾Ý¿âºÍÊý¾Ý°ó¶¨µÄ´úÂë°¡