I am making an AHK to create/edit/delete records in a Microsoft Access Database. I am new to AHK and have a question.
I am writing a library of functions to call upon when working with the database. I would like the function below to store the retrieved record into an array for easy access to all fields in that record.
Currently everything is simply stored into one variable: sData. Can anyone please help? It would be greatly appreciated!
Code:
GetProduct(SKU) {
sSource := "SELECT * FROM " . "Products" . " WHERE SKU = '" . SKU . "'"
sConnect := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" . "C:\Documents and Settings\TheBeadChest.com\Desktop\scripts\addtoinv\Inventory.mdb"
COM_Init()
prs := COM_CreateObject("ADODB.Recordset")
COM_Invoke(prs, "Open", sSource, sConnect)
Loop
{
If COM_Invoke(prs, "EOF")
Break
pFields := COM_Invoke(prs, "Fields")
Loop, % COM_Invoke(pFields, "Count")
pField:= COM_Invoke(pFields, "Item", A_Index-1)
, sData .= COM_Invoke(pField, "Name") . ": " . COM_Invoke(pField, "Value") . "`r`n"
, COM_Release(pField)
COM_Release(pFields)
COM_Invoke(prs, "MoveNext")
}
COM_Invoke(prs, "Close")
COM_Release(prs)
COM_Term()
}
Login
Register
FAQ
Search
