分类
如何选择最佳的外汇经纪商

如何在 AvaTrade 上取款

Critical product support, upgrades, and alerts on topics such as safety issues or product recalls.

Simple Sidebar

The starting state of the menu will appear collapsed on smaller screens, and will appear non-collapsed on larger screens. When toggled using the button below, the menu will change.

Make sure to keep all page 如何在 AvaTrade 上取款 content within the #page-content-wrapper . The top navbar is optional, and just for demonstration. Just create an element with the #sidebarToggle ID which will toggle the menu when clicked.

如何在 AvaTrade 上取款

Dim cnndb As New ADOX.Catalog

cnndb.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.如何在 AvaTrade 上取款 4.0; Data Source=D:\powerpoint\test.mdb"
MsgBox cnndb.ActiveConnection

With ActivePresentation.SlideShowSettings 如何在 AvaTrade 上取款
.RangeType = ppShowSlideRange
.StartingSlide = 1
.Run
End With

Answers

adox 只是變更資料庫結構使用,比如說從無中生有生出一個 mdb ,這種東西在 SQL 語法中沒有定義,所以才放在 adox 內,x 表示延申、擴充之意。

你要連 Access 的範例,在 http://support.microsoft.com/ 搜尋 ado Access 即可:

假設你的 rs 正確傳回來,你要的欄名當作字串就可以了。

All replies

adox 只是變更資料庫結構使用,比如說從無中生有生出一個 mdb ,這種東西在 SQL 語法中沒有定義,所以才放在 adox 內,x 表示延申、擴充之意。

你要連 Access 的範例,在 http://support.microsoft.com/ 搜尋 ado Access 即可:

但他是否成功連結上都沒有一個message,adox就會有,我放在powerpoint vba run過是沒有錯誤訊息,

Dim RS As ADODB.Recordset, FLD As ADODB.Field
Dim Criteria As String, Cnt As Long

' Run the command, and return a recordset.
Set RS = CNN.Execute("SELECT * FROM powerpoint WHERE ")

' This section sends 如何在 AvaTrade 上取款 the recordset results to the Immediate window.
'Debug.Print "Results" 如何在 AvaTrade 上取款 & vbCrLf & "---"
Do Until RS.EOF

For Each FLD In RS.Fields
Debug.Print FLD.Value,
Next
Debug.Print
RS.MoveNext
Loop

例如上面我下的sql SELECT * FROM powerpoint WHERE ,出來只會有一筆資料

id username filepath page

1234567 Mr.Chang /XML.ppt 4

假設你的 rs 正確傳回來,你要的欄名當作字串就可以了。

Dim cnndb As New ADOX.Catalog
Dim ttt As New ADODB.Command
Dim CNN As New ADODB.Connection
Dim RS As ADODB.Recordset, FLD As ADODB.Field
Dim Criteria As String, Cnt As Long
Dim aa As Integer

' Run the command, and return a recordset.
Set 如何在 AvaTrade 上取款 RS = CNN.Execute("SELECT * FROM powerpoint WHERE ")

' This section sends the recordset results to the Immediate window.
aa = RS("page")
RS.Close
CNN.Close

With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = aa
.Run
End With
Set cnndb = Nothing

我把你連線字串裡面的重要連線資訊改成 xxx 了,為了資料庫安全,貼上網之前,這種東西要改掉。

建議你檢查 SQL Server 內的資訊,此外,在

aa = RS("page") 先按 F9 ,左邊會出現一個棕色的圈圈,在去執行你的巨集,這時跑到這行會暫停,黃色反白表示即將執行的行號但還沒執行,改用 如何在 AvaTrade 上取款 F8 逐行執行。

對有疑問的變數,可以滑鼠停在變數上方,會有 Tooltip 跳出這個值,或反白後,按 Shift+F9 。

照璉大的方式去做都ok了,但就在用F9去把 aa = RS("page") 這行mark起來去逐行執行值也都正確,

因為我的做法是用一個vistual studio 2005寫好的網頁去開啟一個指定的powerpoint檔,但這個powerpoint的

VS2005 是編譯式,VBA 是直譯式。

不知道你互相之間怎樣更新資料庫,在各步驟請透過 SQL Server 提供的瀏覽程式檢查該資料庫的欄位是否已更新。

VS2005 是離線式,不確定你在呼叫前是否已透過 ADO.NET 完成資料庫欄位更新,這部份要看時間點,你更新的時間點跟呼叫簡報檔的時間順序,是否先完成更新才叫用簡報。

基本上不會抓到舊資料,因為資料庫都是在連線時才取得資料,不會把資料存在記憶體內,但若是你的 ADO 是共用物件,則可能在關閉 PowerPoint 專案前都共用。

你逐行執行沒問題,表示 VBA 本身沒問題,所以有問題的可能就是上面兩點。

撈出的資料和現在sql的資料是同步的沒錯,我用sql query analyzer去看也是沒錯,

手動去開啟簡報檔是看看,因為變數內容不會紀錄在簡報檔內,重新開啟資料庫連線時,也不會有此問題,ADO 是 Online 的連線方式,不會像 ADO.NET 那樣,資料還沒更新、或已更新尚未寫入資料庫。

Public Sub text()
Dim ttt As New ADODB.Command
Dim CNN As New ADODB.Connection
Dim RS As ADODB.Recordset, FLD As ADODB.Field
Dim Criteria As String, Cnt As Long
Dim aa As Integer
Dim a As New Class1

CNN.Open "Provider=SQLOLEDB;Server=xxxxxxxxxxx ;Database=PW;UID=sa;PWD=xx"

' Run the command, and return a recordset.
Set RS = CNN.Execute("SELECT * FROM powerpoint WHERE ")如何在 AvaTrade 上取款

Debug.Print RS("page")
aa = 如何在 AvaTrade 上取款 RS("page")
RS.Close
CNN.Close
'Debug.Print

With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
Debug.Print aa
.StartingSlide = Int(aa)
.Run
End With
Set cnndb = Nothing

那你這邊 Debug.Print 的值是對的還是錯的?有同時比較資料庫內的值嗎?

註:我倒是懷疑 .StartingSlide 屬性本身有記憶效應,這個是 PowerPoint 內部實做的問題,可能會有關閉時,記錄目前作用頁,在下次開啟時指到該頁,所以我要確認 aa 是對的。

你試試看在 如何在 AvaTrade 上取款 AfterPresentationOpen 事件中呼叫你的巨集看看。

璉大,我現在有個問題,範例SlideShowEnd

Private Sub App_SlideShowEnd(ByVal Pres As Presentation)
With Pres.Slides.Range(Array(1, 4)) _
.SlideShowTransition
.EntryEffect = ppEffectNone
.AdvanceOnTime = msoFalse
End With

With Pres.SlideShowSettings
.AdvanceMode = ppSlideShowManualAdvance
End With
End Sub

相同的在AfterPresentationOpen 也一樣。

Public WithEvents App As Application

Private Sub Class_Initialize()
With Pres.Slides.Range(Array(1, 5)) _
.SlideShowTransition
.EntryEffect = ppEffectNone
.AdvanceOnTime = msoFalse
End With

With Pres.SlideShowSettings
.AdvanceMode = ppSlideShowManualAdvance
End With

我在Initialize()中沒宣告ByVal Pres As Presentation 所以一定會有錯,

Dim X As New Class1
Sub InitializeApp()
With ActivePresentation.SlideShowSettings
.RangeType = 如何在 AvaTrade 上取款 ppShowSlideRange
.StartingSlide = 1
.Run