Connecting to MSSQL Server to retrieve records

[Nachiket]

How do I connect to MS SQL Server using autoIT. Also fire a select query that would retrieve the records from a table in the database.

If there is some sample code available would be of great help to me

[PsaltyDS]

How do I connect to MS SQL Server using autoIT. Also fire a select query that would retrieve the records from a table in the database.

If there is some sample code available would be of great help to me

You can connect with ADO COM interface (search this forum for ADO for about a thousand threads). You can also make command line call to OSQL.exe with passing it TRANSACT SQL scripts.

[Timo]

Hi,

I still have the same problem.

@PsaltyDS: You are right, there are hundreds or thousand of threads and I'm reading and reading but I can't find a solution which I understand.

Isn't there a small tutorial or some sample scripts which will work from the start?

It would be very very nice if someone could please help us.

Thanks,

Timo

[PsaltyDS]

Hi,

I still have the same problem.

@PsaltyDS: You are right, there are hundreds or thousand of threads and I'm reading and reading but I can't find a solution which I understand.

Isn't there a small tutorial or some sample scripts which will work from the start?

It would be very very nice if someone could please help us.

Thanks,

Timo

Help you with what? Are you connecting to MSSQL, MySQL, PostgreSQL, Oracle, or SQLite? ADODB or command line query? Just kicking off a *.SQL script or trying to interact from within an AutoIt script?

This site supports AutoIt script, not SQL. You'll have to find a way to frame that as an AutoIt question. Start by defining exactly what you want your script to do. Are you up to using COM objects for ADODB access? If not, can you code your stuff as *.SQL scripts (i.e. TRANSACT) and call them from AutoIt the same way you would from a command line (i.e. OSQL.exe)? It's hard to know exactly what AutoIt help you need.

[FourLC]

Is what you want ??

Comments are in french but easy to understand !!

CODE

AutoItSetOption("MustDeclareVars",1)

Dim $oConn1

Dim $oRS1 ;For Stored Proc test !

Dim $oRS2 ; For Sql Query test !

Dim $server = "."; local server

Dim $user = "sa";The user

Dim $pass = "password";The ......... password !!!

Dim $dbname = "NorthWind";the database

Dim $adOpenForwardOnly = 0 ;Valeur par défaut. Utilise un curseur à défilement en avant. Identique à un curseur statique mais ne permettant que de faire défiler les enregistrements vers l'avant. Ceci accroît les performances lorsque vous ne devez effectuer qu'un seul passage dans un Recordset.

Dim $adOpenKeyset = 1 ;Utilise un curseur à jeu de clés. Identique à un curseur dynamique mais ne permettant pas de voir les enregistrements ajoutés par d'autres utilisateurs (les enregistrements supprimés par d'autres utilisateurs ne sont pas accessibles à partir de votre Recordset). Les modifications de données effectuées par d'autres utilisateurs demeurent visibles.

Dim $adOpenDynamic = 2 ;Utilise un curseur dynamique. Les ajouts, modifications et suppressions effectués par d'autres utilisateurs sont visibles et tous les déplacements sont possibles dans le Recordset à l'exception des signets, s'ils ne sont pas pris en charge par le fournisseur.

Dim $adOpenStatic = 3 ;Utilise un curseur statique. Copie statique d'un jeu d'enregistrements qui permet de trouver des données ou de générer des états. Les ajouts, modifications ou suppressions effectués par d'autres utilisateurs ne sont pas visibles.

Dim $adOpenUnspecified = -1

Dim $adLockBatchOptimistic =4 ;Mise à jour par lot optimiste. Obligatoire en mode de mise à jour par lots.

Dim $adLockOptimistic =3 ;Verrouillage optimiste, un enregistrement à la fois. Le fournisseur utilise le verrouillage optimiste et ne verrouille les enregistrements qu'à l'appel de la méthode Update.

Dim $adLockPessimistic =2 ;Verrouillage pessimiste, un enregistrement à la fois. Le fournisseur assure une modification correcte des enregistrements, et les verrouille généralement dans la source de données dès l'édition.

Dim $adLockReadOnly =1 ;Enregistrements en lecture seule. Vous ne pouvez pas modifier les données.

Dim $adLockUnspecified =-1

Dim $adCmdUnspecified = -1 ;Ne spécifie pas l'argument type de la commande.

Dim $adCmdText = 1 ;CommandText correspond à la définition textuelle d'une commande ou d'un appel de procédure stockée.

Dim $adCmdTable = 2 ;CommandText correspond au nom de la table dont les colonnes sont toutes renvoyées par une requête SQL générée en interne.

Dim $adCmdStoredProc = 4 ;CommandText correspond au nom d'une procédure stockée.

Dim $adCmdUnknown = 8 ;Valeur par défaut. Indique que le type de commande spécifié dans la propriété CommandText n'est pas connu.

Dim $adCmdFile = 256 ;CommandText correspond au nom de fichier d'un Recordset stocké de façon permanente.

Dim $adCmdTableDirect = 512 ;CommandText correspond au nom d'une table dont les colonnes sont toutes renvoyées.

Dim $IntRetour = 0

Dim $intNbLignes = 0

;~ Dim $Sepa = String(@TAB); for having tab for separator !

Dim $Sepa = ";" ;like CSV

Dim $strConnexion = "DRIVER={SQL Server};SERVER=" & $server & ";DATABASE=" & $dbname & ";uid=" & $user & ";pwd=" & $pass & ";"

$oConn1 = ObjCreate("ADODB.Connection")

$oConn1.open($strConnexion)

;For a test of a store proc in Master database of Micr@s@ft MsSql2000

Dim $strSqlQuerySP = "sp_oledb_database" ; a MsSql2000 stored proc of master database !

$oRS1 = ObjCreate("ADODB.Recordset")

$oRS1.open($strSqlQuerySP,$oConn1,$adOpenKeyset,$adLockOptimistic,$adCmdStoredProc)

$intNbLignes = $oRS1.recordCount

$oRS1.MoveFirst

For $i = 0 To $intNbLignes -1

ConsoleWrite($oRS1.Fields.Item(0).value & @CRLF)

$oRS1.MoveNext ; DON'T FORGET THIS OR CRASH...!!!

Next

$oRS1.close

;For a test of a simple text Query

Dim $strSqlQuerySelect = "select * from customers"

$oRS2 = ObjCreate("ADODB.Recordset")

$oRS2.open($strSqlQuerySelect,$oConn1,$adOpenStatic,$adLockOptimistic,$adCmdText)

$intNbLignes = $oRS2.recordCount ;i re-use $intNbLignes !

;For getting Fields Header Names...

For $j = 0 To $oRS2.Fields.count -1

ConsoleWrite($oRS2.Fields($j).name & $Sepa)

Next

ConsoleWrite (@CRLF);to rewind

For $i = 0 To $intNbLignes -1 ; or "For $i = 0 To ($oRS2.recordCount - 1)" if you want

For $j = 0 To $oRS2.Fields.count -1

ConsoleWrite($oRS2.Fields($j).value & $Sepa)

Next

ConsoleWrite (@CRLF);to begin the next line

$oRS2.MoveNext ; DON'T FORGET THIS OR CRASH...!!!

Next

$oRS2.close

$oConn1.close

AdoAdox3MSSql2000.au3