AspFileDataSuit 最新成員 -> VBAMDataSet For Ms Office |
|
G01
高階會員 ![]() ![]() ![]() ![]() 發表:249 回覆:379 積分:215 註冊:2002-05-21 發送簡訊給我 |
為了完成Delphi DataSet元件組與Ms Office VBA程式進行資料交流而產生的
一個資料集控制項(ActiveX Control) 目前的版本為V5.0 完全支援由TAspFileDataSet元件所產生的資料檔,並且支援Master - Detail 資料表關聯的功能; 未來將陸續發表該控制項的各項example
目前正使用EVB測試其在PDA使用的可能性;也歡迎各位先進予以指教!! 附上一個excel檔案給予大家測試!! 以下為該檔案的 VBA 程式碼與設計時期的圖片(和Delphi的DataModule類似) Private Sub CommandButton1_Click()
Dim DataSet1 As VBAMDataSetV5
'================================
Set DataSet1 = New VBAMDataSetV5
DataSet1.AccessFile = "customer.XDB"
DataSet1.AccessUser = "Tester"
If (DataSet1.OpenDataSet = True) Then
Range("A9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("CustNo")
Range("B9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Company")
Range("C9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Addr1")
Range("D9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Addr2")
Range("E9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("City")
Range("F9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("State")
Range("G9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Zip")
Range("H9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Country")
Range("I9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Phone")
Range("J9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("FAX")
Range("K9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("TaxRate")
Range("L9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Contact")
Range("M9").Select
ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("LastInvoiceDate")
DataSet1.CloseDataSet
End If
End Sub
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |