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;"
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......