SQL 실행 기능을 VBA 코드로 실행 합니다.
Syntax
public long ExecuteDML(string dbmsCode, string sqlText){
}
Parameters
| Name | 동작명 | 비고 |
|---|---|---|
dbmsCode | dbms 코드 | |
sqlText | 실행할 sql문 | |
Return Value
Type: long
sql의 결과 값
SQL Insert, Update, Delete 처리를 위한 VBA 코드
Example
Sub ExcuteDML()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
mxmodule.xapi.ExecuteDML "mtxrpty", "insert into mtx_ftp values('1112','user',100, 'pw','path','attr1')"
If mxmodule.xapi.LastErrorCode <> 0 Then
MsgBox "쿼리 실행 오류 " & mxmodule.xapi.LastErrorMessage
End If
End Sub
Procedure에서 Insert, Update, Delete 처리를 위한 VBA 코드
Example
Sub ExcuteDML()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
sql = "exec pro_test1 ?, 'AAAA' " 'return 받을 Parameter로 첫번째 값을 할당한다.
mxmodule.xapi.SID = "#021"
mxmodule.xapi.ExecuteDML "mtxrpty", sql
If mxmodule.xapi.LastErrorCode <> 0 Then
MsgBox "쿼리 실행 오류 " & mxmodule.xapi.LastErrorMessage
End If
End Sub