AccessVBANewbie
Registered User.
- Local time
- Today, 04:25
- Joined
- Jan 23, 2014
- Messages
- 19
I need to create a new table in current databases using ADODB whose properties are defined in a lookup table.
Public Function Create table()
Dim cnnDB As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim tblname As String
Dim qry_Issues As String
' Get connection to current database.
Set cnnDB = CurrentProject.Connection
Set myRecordSet = New ADODB.Recordset
qry_DataCheck = "SELECT RequiredFieldName, RequiredFieldDataType " & _
"FROM lk_RequiredFields;"
Set myRecordSet = cnnDB.Execute(qry_DataCheck)
If Not myRecordSet.EOF Then
myRecordSet.MoveLast
myRecordSet.MoveFirst
Do While Not myRecordSet.EOF
Debug.Print myRecordSet.Fields("RequiredFieldName ")
Debug.Print myRecordSet.Fields("RequiredFieldDataType ")
myRecordSet.MoveNext
Loop
Else
Msgbox " lookup table is empty. How can I look for something that does not exist"
End If
‘How do I make now the new table that does not exist yet with as many columns as set in lookup.
‘The new table properties are based on above table.
cnnDB.Close
Set myRecordSet = Nothing
Set cnnDB = Nothing
Exit Function
Again thank you very much for your time.
Public Function Create table()
Dim cnnDB As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim tblname As String
Dim qry_Issues As String
' Get connection to current database.
Set cnnDB = CurrentProject.Connection
Set myRecordSet = New ADODB.Recordset
qry_DataCheck = "SELECT RequiredFieldName, RequiredFieldDataType " & _
"FROM lk_RequiredFields;"
Set myRecordSet = cnnDB.Execute(qry_DataCheck)
If Not myRecordSet.EOF Then
myRecordSet.MoveLast
myRecordSet.MoveFirst
Do While Not myRecordSet.EOF
Debug.Print myRecordSet.Fields("RequiredFieldName ")
Debug.Print myRecordSet.Fields("RequiredFieldDataType ")
myRecordSet.MoveNext
Loop
Else
Msgbox " lookup table is empty. How can I look for something that does not exist"
End If
‘How do I make now the new table that does not exist yet with as many columns as set in lookup.
‘The new table properties are based on above table.
cnnDB.Close
Set myRecordSet = Nothing
Set cnnDB = Nothing
Exit Function
Again thank you very much for your time.