Rs.Open("select * from userpw", Cnn) '¶¨ÒåSQL²éѯÃüÁî×Ö·û´®
MsgBox(6)
End Sub End Class
ÒÔÉÏÄËÎҵĴúÂ룬VBÁ´½ÓSQL2005£¬µ«ÊÇÔËÐе½Cnn.Open(strCnn)ÕâÐÐʱ¾Í±¨´í -------¶à²½ OLE DB ²Ù×÷²úÉú´íÎó¡£Èç¹û¿ÉÄÜ£¬Çë¼ì²éÿ¸ö OLE DB ״ֵ̬¡£Ã»Óй¤×÷±»Íê³É¡£
¸ÃÈçºÎµ÷ÊÔ£¿ÊÇ´úÂëµÄÎÊÌ⻹ÊÇÊý¾Ý¿âµÄÎÊÌ⣿ÎÒÊÇÔ¶³ÌÁ´½ÓÊý¾Ý¿âµÄ£¬»¹ÓУ¬ÎÒÒѾÌí¼ÓÒýÓÃÁË Microsoft ADO Data Control Microsoft DataGrid Control Dim strCnn = "Provider=SQLOLEDB.1;Initial Catalog=qzsyck ;Data Source=·þÎñ´óÖÚ;User ID=SA;Password=SAµÄÃÜÂë;Integrated Security=True;Persist Security Info=False;"