Retrieve Column Descriptions in your ADO Client/Server Applications
May 11, 2011 Hey, Mike
Note: The code accompanying this article is available for download here.
Using the IBMDASQL provider, I want to find the field/column description/label for fields in a record set. However, all my scenarios return null. I am using IBM iSeries Access for Windows V5R3M0 service level SI30707.
Here is the Excel VBA code snippet that Andy sent in.
Sub testit() Dim con, com, rs Set con = CreateObject("ADODB.Connection") con.Open "provider=IBMDASQL;data source=AS400;", "", "" Set rs = CreateObject("ADODB.Recordset") Set com = CreateObject("ADODB.Command") Set com.ActiveConnection = con com.CommandText = "select * from QIWS.QCUSTCDT for read only" Set rs = com.Execute() Debug.Print