Jump to content

ADO.au3 UDF - BETA - Support Topic

mLipok

By mLipok
in AutoIt Projects and Collaboration

 Share

Recommended Posts

mLipok Universalist

mLipok

Posted
  • Author
Posted

Make a smaller testing script , only try to connect with SQL Server.
I think you have error in some other places.

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

  • Replies 611
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

mLipok
mLipok

I want to present BETA Version of my ADO.au3 UDF. This is modifed version of _sql.au3 UDF.   For that I want to thanks : ; Chris Lambert, eltorro, Elias Assad Neto, CarlH   T

mLipok
mLipok

I hope soon I find time to provide new features and examples based on the knowledge which I gather thanks to this above mentioned book.   btw. Today I also buy this one:   I hope

jchd
jchd

@FMS, Are you sure that the ID in your table is a string? ... where id = '1';   -- queries for id being the string '1' ... where id = 1;    -- queries for id being the integer 1

Posted Images

Valnurat Universalist

Valnurat

Posted
Posted (edited)

I deleted all white space before all lines and I don't get the previous error, but now I get the attached errors. :)

The code looks like this now. 

#include "ADO.au3"
#Tidy_Parameters=/sort_funcs /reel
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>



Func _Example_MSSQL()

Local $sDriver = 'SQL Server'
Local $sDatabase = 'StaffMembers' ; change this string to YourDatabaseName
Local $sServer = '400' ; change this string to YourServerLocation
Local $sUser = 'User' ; change this string to YourUserName
Local $sPassword = 'n3' ; change this string to YourPassword
Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'
_Example_1_RecordsetToConsole($sConnectionString, "Select * from SOME_TABLE")
_Example_2_RecordsetDisplay($sConnectionString, "Select * from SOME_TABLE")
_Example_3_ConnectionProperties($sConnectionString)
_Example_4_MSSQL($sServer, $sDatabase, $sUser, $sPassword, "Select * from SOME_TABLE")
EndFunc   ;==>_Example_MSSQL

 

new 9.txtFetching info...

Edited by Valnurat

Yours sincerely

Kenneth.

Valnurat Universalist

Valnurat

Posted
Posted (edited)

I tried something else. 

#include "ADO.au3"
#Tidy_Parameters=/sort_funcs /reel
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>

Global $sDriver = 'SQL Server'
Global $sDatabase = 'SM' ; change this string to YourDatabaseName
Global $sServer = 'WS0400' ; change this string to YourServerLocation
Global $sUser = 'SMU' ; change this string to YourUserName
Global $sPassword = 'pw' ; change this string to YourPassword

_Example1()

Func _Example1()
    Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'
    Local $oConnection = _ADO_Connection_Create()
    ConsoleWrite('=' & @CRLF)
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    ConsoleWrite('==' & @CRLF)
    If @error Then Return SetError(@error, @extended, $ADO_RET_FAILURE)
    _ADO_Connection_Close($oConnection)
    $oConnection = Null
EndFunc

But that didn't work either.

"C:\Users\DKSOKVK\Documents\AutoIT\Include\ADO.au3" (769) : ==> The requested action with this object has failed.:
$oConnection.Open($sConnectionString)
$oConnection^ ERROR

 

I can access my database on the $sServer = 'WS0400' when I use delphi. Then connectionstring is like this= 

Provider=SQLOLEDB.1;Password=pw;Persist Security Info=True;User ID=SMU;Initial Catalog=SM;Data Source=WS0400

I guess the "$sDriver" is the same as "Provider", right?

I then tried to change the $sDriver to Global $sDriver = 'SQL Server', but that didn't help. 

Global $sDriver = 'SQLOLEDB.1'

 

Do I do something wrong here?

Edited by Valnurat
More readable

Yours sincerely

Kenneth.

mLipok Universalist

mLipok

Posted
  • Author
Posted

For example: 

Global $sServer = '192.168.1.100\SQLExpress'

 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)

Which ADO.au3 Version you have downloaded ?

You should see: 

; #INDEX# ========================================================================
; Title .........: ADO.au3
; AutoIt Version : 3.3.10.2++
; Language ......: English
; Description ...: A collection of Function for use with an ADO database like MS SQL, MS Access ...
; Author ........: Chris Lambert, mLipok
; Modified ......: eltorro, Elias Assad Neto, CarlH
; URL ...........: http://www.autoitscript.com/forum/index.php?showtopic=180850
; Date ..........: 2016/03/18
; Version .......: 2.1.13 BETA - Work in progress
; ================================================================================

 

EDIT:
Aha.. and add this to your example:
  

; SetUP internal ADO.au3 UDF COMError Handler
_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)

 

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Valnurat Universalist

Valnurat

Posted
Posted (edited)

; #INDEX# ========================================================================
; Title .........: ADO.au3
; AutoIt Version : 3.3.10.2++
; Language ......: English
; Description ...: A collection of Function for use with an ADO database like MS SQL, MS Access ...
; Author ........: Chris Lambert, mLipok
; Modified ......: eltorro, Elias Assad Neto, CarlH
; Version .......: 2.1.5 BETA - Work in progress 2016/02/24
; ================================================================================
 

I guess I'm using a wrong one. Grrrr.

Edited by Valnurat

Yours sincerely

Kenneth.

mLipok Universalist

mLipok

Posted
  • Author
Posted

Yes, this is an prehistoric version :)

And look again at my edit in my last post.


 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

mLipok Universalist

mLipok

Posted
  • Author
Posted

So your problem is here:
  

$oADO_Error.description is:     [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'StaffMembersUser'.
$oADO_Error.windescription:     Exception occurred.

Did you use correct password ?
Do you can login to this server from this station using the ManagmentStudio ?

 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Valnurat Universalist

Valnurat

Posted
Posted (edited)

I'm login to the server from my own computer using SQL Server Management Studio and I don't have any issue with my password.

EDIT: But my username was wrong. It's working now. :lmao: Thank you.

Edited by Valnurat

Yours sincerely

Kenneth.

mLipok Universalist

mLipok

Posted
  • Author
Posted
  8 hours ago, Valnurat said: 
#include "ADO.au3"
#Tidy_Parameters=/sort_funcs /reel
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>

Global $sDriver = 'SQL Server'
Global $sDatabase = 'SM' ; change this string to YourDatabaseName
Global $sServer = 'WS0400' ; change this string to YourServerLocation
Global $sUser = 'SMU' ; change this string to YourUserName
Global $sPassword = 'pw' ; change this string to YourPassword

_Example1()

Func _Example1()
    Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'
    Local $oConnection = _ADO_Connection_Create()
    ConsoleWrite('=' & @CRLF)
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    ConsoleWrite('==' & @CRLF)
    If @error Then Return SetError(@error, @extended, $ADO_RET_FAILURE)
    _ADO_Connection_Close($oConnection)
    $oConnection = Null
EndFunc

..........

I can access my database on the $sServer = 'WS0400' when I use delphi. Then connectionstring is like this= 

Provider=SQLOLEDB.1;Password=pw;Persist Security Info=True;User ID=SMU;Initial Catalog=SM;Data Source=WS0400

I guess the "$sDriver" is the same as "Provider", right?

Expand  


So try it in the same way like in Delphi:
Just use this in function _Example1() 

Local $sConnectionString = 'Provider=SQLOLEDB.1;Password=pw;Persist Security Info=True;User ID=SMU;Initial Catalog=SM;Data Source=WS0400'

 

btw. 
Drvier and provider is not the same things:

 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

mLipok Universalist

mLipok

Posted
  • Author
Posted
  On 2/17/2017 at 8:08 PM, Valnurat said:

How do you add the content to a tabel?

Expand  

Did you solve the problem with connection ?

 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Valnurat Universalist

Valnurat

Posted
Posted

Yes, it's working now.

  

#include "ADO.au3"
#Tidy_Parameters=/sort_funcs /reel
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>

Global $sDriver = 'SQL Server'
Global $sDatabase = 'StaffMembers' ; change this string to YourDatabaseName
Global $sServer = 'ws0400' ; change this string to YourServerLocation
Global $sUser = 'SMU' ; change this string to YourUserName
Global $sPassword = 'pw' ; change this string to YourPassword

; SetUP internal ADO.au3 UDF COMError Handler
_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)

_Example1()

Func _Example1()
    Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';'
    Local $oConnection = _ADO_Connection_Create()
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then Return SetError(@error, @extended, $ADO_RET_FAILURE)
    Local $sTableName = 'SMU.ComputerAsset'
    Local $sQUERY = 'Select * from ' & $sTableName
    Local $oRecordset = _ADO_Execute($oConnection, $sQUERY)
    Local $aRecordsetArray = _ADO_Recordset_ToArray($oRecordset, False)
    Local $aRecordset_inner = _ADO_RecordsetArray_GetContent($aRecordsetArray)
    Local $iColumn_count = UBound($aRecordset_inner, $UBOUND_COLUMNS)
    For $iRecord_idx = 0 To UBound($aRecordset_inner) - 1
        ConsoleWrite('==================================================================' & @CRLF)
        For $iColumn_idx = 0 To $iColumn_count - 1
            ConsoleWrite($aRecordset_inner[$iRecord_idx][$iColumn_idx] & @CRLF)
        Next
    Next
    ; CleanUp
    $oRecordset = Null
    _ADO_Connection_Close($oConnection)
    $oConnection = Null
EndFunc

2 entries is shown in the ConsoleWrite

Yours sincerely

Kenneth.

mLipok Universalist

mLipok

Posted
  • Author
Posted

I would like to know what the issue was ?

 

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

mLipok Universalist

mLipok

Posted
  • Author
Posted
  On 2/17/2017 at 8:08 PM, Valnurat said:

How do you add the content to a tabel?

Expand   
Local $sQUERY = 'INSERT INTO ........ '
Local $oRecordset = _ADO_Execute($oConnection, $sQUERY)

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

mLipok Universalist

mLipok

Posted
  • Author
Posted (edited)
  On 2/17/2017 at 8:45 PM, Valnurat said:

I posted it #192.

Wrong username and old ADO.au3.

Expand  

Ah.. I see now, you edit this post ...
Ok.

Edited by mLipok

Signature beginning:
* Please remember: "AutoIt"..... *  Wondering who uses AutoIt and what it can be used for ? * Forum Rules *
* ADO.au3 UDF * POP3.au3 UDF * XML.au3 UDF * IE on Windows 11 * How to ask ChatGPT for AutoIt Code * for other useful stuff click the following button:

  Reveal hidden contents

Signature last update: 2023-04-24

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing
×
×
  • Create New...