General information
Category:
Database DAO/RDO/ODBC/ADO
Title:
Urgent :: Want to add a column to Foxpro table
I am using Foxpro 3.0 tables,
I want to add a column, so I used .Fields.Append .CreateField
but not able add the column. It says database is readonly
The code,
Dim db As Database
Dim rss As Recordset
Dim tbldf As TableDef
Dim gk As Field
Dim noflds As Integer
Set db = OpenDatabase("d:\temp111", True, False, "Foxpro 3.0;")
'Set rss = db.OpenRecordset("exptab1", dbOpenDynaset)
Set tbldf = db.TableDefs("exptab1")
Debug.Print db.Updatable
Debug.Print tbldf.Updatable
If tbldf.Updatable Then
tbldf.Fields.Append tbldf.CreateField("vedula", dbText, 50)
End If
db.Close
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only