Дата обновления учетной записи Microsoft Access vba при нажатии кнопки

Вот как я создал запрос Http POST с быстрым параметром с параметрами Json и заголовками.

Создал клиент API BKCAPIClient как общий экземпляр, который будет включать в себя все типы запросов, таких как POST, GET , PUT, DELETE и т. Д.

func postRequest(url:String, params:Parameters?, headers:HTTPHeaders?, completion:@escaping (_ responseData:Result<Any>?, _ error:Error?)->Void){
    Alamofire.request(url, method: .post, parameters: params, encoding: JSONEncoding.default, headers: headers).responseJSON {
        response in
        guard response.result.isSuccess,
            (response.result.value != nil) else {
                debugPrint("Error while fetching data: \(String(describing: response.result.error))")
                completion(nil,response.result.error)
                return
        }
        completion(response.result,nil)
    }
}

Созданный класс операций, содержащий все данные, необходимые для конкретного запроса, а также содержит логику синтаксического анализа внутри блока завершения.

func requestAccountOperation(completion: @escaping ( (_ result:Any?, _ error:Error?) -> Void)){
    BKCApiClient.shared.postRequest(url: BKCConstants().bkcUrl, params: self.parametrs(), headers: self.headers()) { (result, error) in
        if(error != nil){
            //Parse and save to DB/Singletons.
        }
        completion(result, error)
    }
}
func parametrs()->Parameters{
    return ["userid”:”xnmtyrdx”,”bcode":"HDF"] as Parameters
}
func headers()->HTTPHeaders{
    return ["Authorization": "Basic bXl1c2VyOm15cGFzcw",
            "Content-Type": "application/json"] as HTTPHeaders
}

API вызовов View Controller, где нам нужны эти данные

func callToAPIOperation(){
let accOperation: AccountRequestOperation = AccountRequestOperation()
accOperation.requestAccountOperation{(result, error) in

}}
1
задан Jiggles32 13 July 2018 в 22:53
поделиться

1 ответ

Это может быть обработано несколькими разными способами, однако похоже, что вы пытаетесь найти решение VBA SQL. По существу, попробуйте следующее:

Currentdb.Execute "UPDATE tblProjects " & _
"SET tblProjects.[Last Modified] = DATE()
WHERE tblProjects.projName = " & cmbProjectName.Value & "", dbfailonerror

Это, конечно, требует, чтобы tblProjects.projName было уникальным значением для всей таблицы. В противном случае вам понадобится другое решение.

0
ответ дан Jiggles32 17 August 2018 в 12:48
поделиться
  • 1
    Я не вижу, где это помещает дату в поле Date Modified для проекта. Я думаю, мне нужно что-то вроде «UPDATE tblProjects SET tblProjects. [Last Modified] = Date WHERE tblProjects.projName = & quot; & Амп; cmbProjectName. – Pat 13 July 2018 в 17:17
  • 2
    Извините, я неправильно интерпретировал то, что вы пытались сделать там. Ответ обновляется, если на этот раз я получу то, что вы имеете в виду правильно, это должно выполнить цель, для которой вы стремитесь. – Jiggles32 13 July 2018 в 17:46
  • 3
    Спасибо! Я получил от этого работу. – Pat 13 July 2018 в 18:13
Другие вопросы по тегам:

Похожие вопросы: