Field type function
Posted on 2002-07-19
I have a function that gets a list of field values for a table and buils a insert statement dynamically.I need to kno how to a simple way of getting the field type so that the value can be put into string quotes if it is a string and remove string quotes if it is a interger.
here is my function
Private Function GetFields(rs As Adodb.Recordset) As String
Dim fld As Adodb.Field
For Each fld In rs.Fields
'If field type interger Then
GetFields = GetFields & fld.Value & ","
'if field type is string
GetFields = GetFields & "'" & fld.Value & "',"