我正在為一個客戶在 vb.net 中制作一個軟體，他需要從它的 wordpress 網站獲取特定日期的訂單我打算制作一個資料網格視圖來顯示訂單和一個從 woocommerce 獲取資料的按鈕ui 看起來像這樣
圖片鏈接
但問題是我應該如何發出 api 請求，它會回傳一個 json 資料，以便如何在 datagrid 視圖中正確顯示它，或者有什么其他東西或更好的東西來顯示順序或做這件事。Actully 我找不到這樣的樣品作為樣品是否有任何可用的東西請告訴我。
uj5u.com熱心網友回復：
你做這樣的事情： -
您將不得不使用 woocommerce 的 REST API。. . 轉到網站的 woocommerce 后端，點擊 woocommerce->settings->advance->rest api
這將為您提供 globle.key 和 global.secret。
Public Async Sub FillDGV() 'FillDGV
'any, pending, processing, on-hold, completed, cancelled, refunded, failed and trash
Dim dic As Dictionary(Of String, String) = New Dictionary(Of String, String)() From {{"status", SrcV}}
' Dim dic As Dictionary(Of String, String) = New Dictionary(Of String, String)()From {{"status", "pending"}}
dic.Add("per_page", "100")
Dim pageNumber As Integer = 1
dic.Add("page", pageNumber.ToString())
Dim rest As RestAPI = New RestAPI(Globle.BaseURL, Globle.Key, Globle.Secret, False)
Dim wc As WooCommerceNET.WooCommerce.v2.WCObject = New WooCommerceNET.WooCommerce.v2.WCObject(rest)
Dim orderList As New List(Of WooCommerce.v2.Order)
orderList = Await wc.Order.GetAll(dic) 'Get All order which status is SrcV
dgvlist.Rows.Clear()
For Each item In orderList 'Fill Grid
Dim Name As String = item.shipping.first_name " " item.shipping.last_name " " item.billing.phone
' CreateFile(item) 'Function call to create text file
Dim shippingtotal As String
Dim shippingmethod As String
If item.shipping_lines.Count > 0 Then
shippingtotal = item.shipping_lines.Item(0).total
shippingmethod = item.shipping_lines.Item(0).method_title
Else
shippingtotal = "0.00"
shippingmethod = ""
End If
If item.coupon_lines.Count > 0 Then
Try
dgvlist.Rows.Add(item.number, item.total, Name, item.billing.email, item.shipping.address_1, item.shipping.address_2, item.shipping.city, item.shipping.state, item.shipping.country, item.shipping.postcode, item.shipping.company, shippingmethod, shippingtotal, item.date_created, item.coupon_lines.Item(0).code, item.coupon_lines.Item(0).discount, item.payment_method, item.customer_note, item.total)
Catch ex As Exception
'MsgBox(ex.Message)
End Try
Else
Try
dgvlist.Rows.Add(item.number, item.total, Name, item.billing.email, item.shipping.address_1, item.shipping.address_2, item.shipping.city, item.shipping.state, item.shipping.country, item.shipping.postcode, item.shipping.company, shippingmethod, shippingtotal, item.date_created, 0, 0, item.payment_method, item.customer_note)
' dgvlist.Rows.Add(item.number, item.total, Name, item.billing.email, item.shipping.address_1, item.shipping.address_2, item.shipping.city, item.shipping.state, item.shipping.country, item.shipping.postcode, item.shipping.company, " ", " ", item.date_created, 0, 0, item.payment_method, item.customer_note)
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End If
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/503722.html