topcat 姍舞之間的極度凝聚

 

	Dim cn As Object 
    Set cn = CreateObject("ADODB.Connection") 
    With cn 
        .Provider = "Microsoft.Jet.OLEDB.4.0" 
        .ConnectionString = "Data Source=D:\BACKUP\28F95.xls;Extended Properties=Excel 8.0;" 
        .Open 
    End With 
     
    Dim SQLTXT As String 
 
    'AAA代表工作表名稱 
    SQLTXT = "SELECT * FROM [AAA$] WHERE ([廠商代碼]=B0006)" 
     
    Dim rs As Object 
    Set rs = CreateObject("ADODB.RecordSet") 
    With rs 
        .CursorLocation = adUseClientBatch 
        .CursorType = adOpenDynamic 
        .LockType = adLockOptimistic 
        .ActiveConnection = cn 
    End With

 

---

以下是簽名：

• 歡迎轉貼本站的文章，不過請在貼文主旨上加上【轉貼】，並在文章中附上本篇的超連結與站名【topcat姍舞之間的極度凝聚】，感恩大家的配合。
• 小喵大部分的文章會以小喵熟悉的語言VB.NET撰寫，如果您需要C#的Code，也許您可以試著用線上的工具進行轉換，這裡提供幾個參考
  • http://converter.telerik.com/
  • http://www.carlosag.net/tools/codetranslator/
  • http://www.developerfusion.com/tools/convert/vb-to-csharp/

---

Microsoft MVP Visual Studio and Development Technologies (2005~2019/6)

topcat Blog:http://www.dotblogs.com.tw/topcat