python access


import pyodbc
import os
import pandas as pd

from configparser import ConfigParser

desktop_path = os.path.normpath(os.path.expanduser("~/Desktop"))
config = ConfigParser()
config_file = desktop_path + "\\read_ini.ini"
config.read(config_file, 'cp932')
db_path = config.ge

Read more

VBA获取页面弹出框内容


有时候,需要获取页面弹出框(Internet Explorer_TridentDlgFrame)的内容信息,这里是VBA的解决方案,有时间更新一下Python的解决方案。

'--------------------------------------------------------------------
Option Explicit
Private Declare Function RegisterWindowMessage Lib "user32" _
 Alias "RegisterWindowMessageA" _
 (ByVal lpString As String) As L

Read more

VBA 判断Excel表是否为共有模式


 
Sub Sample_MultiUserEditing()
'ブックの共有モードと排他モードを切り替える

    Dim FileName As String
    Dim BookState As String
    Dim w As Workbook

    FileName = "C:\Documents\test01.xlsx"
    Set w = Workbooks.Open(FileName)

    '確認メッセージを非表示にする
    Application.DisplayAlerts = False

    If w.MultiUserEditing =

Read more

通过PID关闭新创建的Excel对象


问题背景

在Outlook中操作Excel,在Createbject后,进行对Excel的操作。用完之后有的时候set nothing到彻底关闭进程会有延迟。导致下次操作要花费一定的等待时间。 解决思路是,根据PID强制关闭进程。示例代码如下:

Public Declare Function GetWindowThreadProcessId Lib "user32" _
  (ByVal hwnd As Long, _
   ByRef lpdwProcessId As Long) As Long

Function KillProcess(hwnd As Long)
  Dim Curren

Read more

Test


import pyodbc import os import pandas as pd

from configparser import ConfigParser

desktop_path = os.path.normpath(os.path.expanduser("~/Desktop")) config = ConfigParser() config_file = desktop_path + "\read_ini.ini" config.read(config_file, 'cp932') db_path = config.get('baseconf', 'db_path') work_p

Read more

Access通过VBA执行SQl如何不提示确认消息


如何让Access在执行VBA时,不提示警告? 例如:正常情况下我们执行插入或删除的时候,会提示我们操作了多少行数据,但有些场景部门并不希望它提示出来,因为如果用户不点击“确认”或“取消”,代码就无法继续往下执行。 那么如何设置才能不显示提示信息呢? 有一下两种方案:

  • 执行DoCmd.SetWarnings False命令关闭系统提示和警告信息。 示例:
    Dim strSQL As String
    strSQL = "更新语句"
    '方法1
    DoCmd.SetWarnings False'不显示警告
    DoCmd.RunSQL strSQL
    DoCmd.setwarnints True'恢复显示

Read more

Pyton中如何进行日文的全角半角转换


安装第三方库

pip install jaconv

用法

import jaconv

# Hiragana to Katakana 平假名 ===> 片假名
jaconv.hira2kata(u'ともえまみ')
# => u'トモエマミ'

# Hiragana to half-width Katakana 平假名 ===> 半角片假名
jaconv.hira2hkata(u'ともえまみ')
# => u'トモエマミ'

# Katakana to Hiragana 片假名 ====> 平假名
j

Read more

解决asp无法跳转页面的方法


错误提示信息

セッション状態要求をセッション状態サーバーに対して作成できませんでした。ASP.NET 状態サービスが開始されていて、クライアントとサーバーのポートが同じであることを確認してください。サーバーがリモート コンピュータ上にある場合、HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\aspnet_state\Parameters\AllowRemoteConnection の値を調べて、このコンピュータがリモート要求を受け付けることを確認してください。サーバーがローカル コンピュータ上にあり、上記のレジストリ値が存在していないか

Read more

正确佩戴口罩的完整步骤!这样才能更有效预防感染武汉肺炎!【内附动图】


正确佩戴口罩的完整步骤!这样才能更有效预防感染武汉肺炎!【内附动图】

武汉肺炎爆发,全球多个国家和地区也开始陆续出现疑似或确诊的病例,每个人都要做好自我防护。正确佩戴口罩是预防新型肺炎的之一,关于戴口罩,这些知识一定要get!

口罩如何选?口罩如何戴?

  • 医用外科口罩:可以阻挡70%的细菌,如果去公共场所,不与病人接触,佩戴医用外科口罩就足够。
  • 医用防护口罩(N95口罩):可以阻挡95%的细菌, 如果会接触病人则应选择N95口罩。 ## 正确佩戴口罩的步骤:

    『N95』和『医用外科口罩』口罩的佩戴方法如图所示,记住佩戴前先洗手!!!

  • 『N95』口罩的佩戴方法(头戴式): 戴N95口罩方

Read more