Autoit 连接到 Microsoft SQL 数据库

Global $Server = "127.0.0.1" ;SQL主机名称
Global $ID = "sa" ; 登入数据库主机的账号  一般都会用sa
Global $pw = "123456" ;登入数据库主机的密码
Global $DATABASE = "database_name" ;数据库名称
Global $tblname = "table_name" ;数据表名称
Global $Sql= "DRIVER={ODBC Driver 17 for SQL Server};SERVER=" & $Server & ";DATABASE=" & $DATABASE & ";UID=" & $ID & ";PWD=" & $pw & ";"
; 查询记录
Func Query_Sql($sql_cmd)
	$Err = ObjEvent("AutoIt.Error", "_errFunc") ;定义一个函数ODBCJET_ErroHandler收集对象的错误
	$conn = ObjCreate("ADODB.Connection")
	$conn.Open($Sql)

	$RS = ObjCreate("ADODB.RecordSet")
	$RS.ActiveConnection = $conn
	$RS = $conn.Execute($sql_cmd)

	While Not $RS.eof And Not $RS.bof
		If @error = 1 Then
			Return False
			ExitLoop
		Else
;~ 			ConsoleWrite($RS.Fields(0).value & @CRLF) ;找到数据返回链接
			Return $RS.Fields(0).value
		EndIf
		$RS.movenext
	WEnd
	$conn.close
EndFunc   ;==>Query_Sql

; 更新记录 
Func Update_sql($sql_cmd)
	$Err = ObjEvent("AutoIt.Error", "_errFunc") ;定义一个函数ODBCJET_ErroHandler收集对象的错误
	$conn = ObjCreate("ADODB.Connection")
	$conn.Open($Sql)

	$RS = ObjCreate("ADODB.RecordSet")
	$RS.ActiveConnection = $conn
	$RS = $conn.Execute($sql_cmd)
	$conn.close
EndFunc   ;==>Update_sql

; 新增记录
Func Insert_sql($sql_cmd)
	$Err = ObjEvent("AutoIt.Error", "_errFunc") ;定义一个函数ODBCJET_ErroHandler收集对象的错误
	$conn = ObjCreate("ADODB.Connection")
	$conn.Open($Sql)
	$RS = ObjCreate("ADODB.RecordSet")
	$RS.ActiveConnection = $conn
	$RS = $conn.Execute($sql_cmd)
	$conn.close
EndFunc   ;==>Insert_sql

Func _errFunc($oMyError)
	Local $oMyRet[4]
	$HexNumber = Hex($oMyError.number, 8)
	$oMyRet[0] = $HexNumber
	$oMyRet[1] = StringStripWS($oMyError.description, 3)
	If StringInStr($oMyRet[1], '为 null 或不是对象') = 0 Then
		MsgBox(0, "出错啦", "错误代码： " & $HexNumber & @CRLF & "脚本行号：" & $oMyError.scriptline & @CRLF & "问题描述：" & $oMyRet[1])
	EndIf
	SetError(1) ; something to check for when this function returns
	Return
EndFunc   ;==>_errFunc
​

‍