Opret felt i DBs tabel - kan man via ADO - eller kun DAO
Jeg prøver på at oprette et felt i en given tabel. Dette er min hensigt:MyDatabase er et object der indeholder Databaseconnection, Placeringen af db o.m.a.
Når der peges på en primaryTable i DestinationDB skal det undersøges om der findes et felt med navnet CodeProcess. Hvis ikke, så skal det laves - men hvordan?
- Her er koden op til indsættelsespunktet
_______
\' Examines if there is a CodeProcess-field:
CodeProcessfield = False
If Not rsFieldNames.EOF Then
For Each objField In rsFieldNames.Fields
Me.ComboDestinationACField.AddItem objField.Name
Me.ComboDestinationRCField.AddItem objField.Name
If objField.Name = \"CodeProcess\" Then
CodeProcessfield = True
End If
Next
Set rsFieldNames = Nothing
rsFieldNames.Close
If CodeProcessfield = False Then
\' Here I insert a field for keeping track of the processed rows in the destination table.
\'creater.CreateField \"CodeProcess\", string(50,) \' This I don\'t know how to do
Den Tabellen der skal modtage feltet er:
MyApp.DestinationDB.PrimareDestTable
Hvis det kan bruges til noget er der her de private def. variables i MyDatabase objektet:
Private mvarDBName As String \'local copy
Private mvarConnection As New ADODB.Connection \'local copy
Private mvarDBOpen As Boolean \'local copy
Private mvarADODBRecordset As ADODB.Recordset \'local copy
Private mvarPrimaryTable As String \'local copy
Private mvarSecondaryTable As String \'local copy
Private mvarField1 As String \'local copy
Private mvarField2 As String \'local copy
Private mvarField3 As String \'local copy
Private mvarField4 As String \'local copy
Håber der kan hjælpes ud fra det her...
Jeg vil meget gerne have noget hjælp ud fra ADO principperne - hvis det altså er muligt... :-)
/Søren
- newbie on the way
