John Newby wrote:
Hi Craig, I have looked into the dictionary that you suggested, but
wouldn't
this be the same as the array as I would still need to know how many times
to go through the while loop to add the names of the fields? Also I
need to
get the names of the fields back out to populate a comboBox, which I
already
know how to do with an array.
item = myDict("hash")
Its pretty simple.
Use your favorite search engine to look for "scripting.dictionary" and
you will find a wealth of information on VBScript's dictionary object.
From an earlier message of yours:
' select all field names from the selected table
sqlite_cmd.CommandText = (strSQL)
' Now the SQLiteCommand object can give us a DataReader-Object:
sqlite_datareader = sqlite_cmd.ExecuteReader()
i = 0
While sqlite_datareader.Read()
'Try
fieldNames(i) = sqlite_datareader("name")
'atch es As Exception
' MessageBox.Show(es.Message)
End Try
i += 1
End While
sqlite_datareader.Close()
You are already getting the field names on the fly, why do you insist on
knowing how many fields there are?
After you populate the dictionary, you can get the count of items
(fields) by doing:
itemCount = myDict.Count
To attempt to stave off any more questions:
set fieldNames = CreateObject("Scripting.Dictionary")
sqlite_cmd.CommandText = (strSQL)
sqlite_datareader = sqlite_cmd.ExecuteReader()
i = 0
While sqlite_datareader.Read()
fieldNames.Add i, sqlite_datareader("name")
i += 1
End While
sqlite_datareader.Close()
fieldCount = fieldNames.Count
Your problem is *not* sqlite, but rather a command of VB itself. You
might want to spend some time getting up to speed on VB.
Or better yet, why don't you just pass a reference to the list box and
add them directly to it?
I'm not going to comment further on this topic as it is now QUITE far
off-topic.
--
Craig Morrison
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
http://pse.2cah.com
Controlling pseudoephedrine purchases.
http://www.mtsprofessional.com/
A Win32 email server that works for You.
