Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function To Return Info From As400 Database
Hello everyone, I have this function : Function ni(ct1 As String) Dim ct2, i 'Create some variables Dim ni_descr Set ni = CreateObject("Scripting.Dictionary") ni.Add "A", "A Info" 'Add some keys and items ni.Add "B", "B Info" ni.Add "C", "C Info" ni = ni.keys ni_descr = ni.items 'Get the items For i = 0 To ni.Count - 1 'Iterate the array ct2 = claim_key(i) ni_descr = ni_descr(i) If ni= ct1 Then ni = ni_descr Exit For End If Next End Function If I call this function in my worksheet cell Range B2 by enterin formula "= ni(A2)" where A2 contains "A", it will give me "A Info". I works perfectly ok. However, it is quite very limited and I want a similar function t return information from our AS400 system database containing a hug data that is continously being updated. I tried SQL.Request functions, etc, etc, to no avail. Would appreciate any idea or help. Thanks Robi -- Robin Flore ----------------------------------------------------------------------- Robin Flores's Profile: http://www.excelforum.com/member.php...fo&userid=1557 View this thread: http://www.excelforum.com/showthread.php?threadid=27133 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Duplicate info in a database | Excel Discussion (Misc queries) | |||
Link info in one cell to info in several cells in another column (like a database) | Excel Discussion (Misc queries) | |||
Is there a function that will return info of the cursor location? | Excel Worksheet Functions | |||
Extracting info from a database | Excel Programming | |||
Database info in Word doc | Excel Programming |