how do set up tables like in access in visual basic. where do start? nothing to complicated just enough to start me off.
Printable View
how do set up tables like in access in visual basic. where do start? nothing to complicated just enough to start me off.
I use access to create tables, if you want i can send you some example code on how to create an access table via VB.
Let me know
yeah could you please send me some samples please of access migration(tables etc.) and also if you could send a sample of creating tables within vb in itself. cheers kirk
here the code to create an .mdb(named "prova") file with a table (named "table") composed of 3 fields ("f1" text,"f2" long integer, "f3" true/false).
'''''''''''''''''''''''''''''''''''''''
'REQUIRES: Reference to MS DAO in VB project
'NOTE NOTE NOTE: Code does *not* check Validity of Destination Path!!
'''''''''''''''''''''''''''''''''''''''
public Function CreatedNewDB(byval sDestDBPath as string, byval sDestDBPassword as string) as Boolean
CreatedNewDB = false
on error GoTo Err_Handler
If sDestDBPassword <> "" then
set NewDB = Workspaces(0).CreateDatabase(sDestDBPath, dbLangGeneral & ";pwd=" & sDestDBPassword)
else
set NewDB = Workspaces(0).CreateDatabase(sDestDBPath, dbLangGeneral)
End If
'Now call the functions for each table
Dim b as Boolean
b = CreatedNewTBLtable
If b = false then
CreatedNewDB = false
NewDB.Close
set NewDB = nothing
Exit Function
End If
CreatedNewDB = true
Exit Function
Err_Handler:
If Err.Number <> 0 then
'Alert & Close Objects, could be altered to Raise the error
Msgbox "error Creating Copy Database." & vbCr & Err.Number & vbCr & Err.Description
CreatedNewDB = false
NewDB.Close
set NewDB = nothing
Exit Function
End If
End Function
private Function CreatedNewTBLtable() as Boolean
Dim TempTDef as TableDef
Dim TempField as Field
Dim TempIdx as Index
CreatedNewTBLtable = false
on error GoTo Err_Handler
set TempTDef = NewDB.CreateTableDef("table")
set TempField = TempTDef.CreateField("f1",10)
TempField.Attributes = 2
TempField.Required = false
TempField.OrdinalPosition = 1
TempField.Size = 255
TempField.AllowZeroLength = false
TempTDef.Fields.Append TempField
TempTDef.Fields.Refresh
set TempField = TempTDef.CreateField("f2",4)
TempField.Attributes = 1
TempField.Required = false
TempField.OrdinalPosition = 2
TempField.DefaultValue = 0
TempTDef.Fields.Append TempField
TempTDef.Fields.Refresh
set TempField = TempTDef.CreateField("f3",1)
TempField.Attributes = 1
TempField.Required = false
TempField.OrdinalPosition = 3
TempTDef.Fields.Append TempField
TempTDef.Fields.Refresh
NewDB.TableDefs.Append TempTDef
NewDB.TableDefs.Refresh
'Done, Close the objects
set TempTDef = nothing
set TempField = nothing
set TempIdx = nothing
CreatedNewTBLtable = true
Exit Function
Err_Handler:
If Err.Number <> 0 then
'Alert & Close Objects, could be altered to Raise the error
Msgbox "error Creating Database Table: table" & vbCr & Err.Number & vbCr & Err.Description
set TempTDef = nothing
set TempField = nothing
set TempIdx = nothing
CreatedNewTBLtable = false
Exit Function
End If
End Function