• Home
 · 
• Miscellaneous
 · 
• Create Table From Visual Basic.

Create Table From Visual Basic.

Create Table From Visual Basic.

Rate Create Table From Visual Basic.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim db As Database
Dim tb As TableDef
Private Const MY_PATH = _
"h:\civil_raj\homes\vb_raj\raj.mdb"

Private Sub Command1_Click()
Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase(MY_PATH)
If List1.Text <> "" Then
db.Execute ("DROP TABLE [" & List1.Text & "]")
db.Close
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase(MY_PATH)
For Each tb In db.TableDefs
If Left(tb.Name, 4) <> "MSys" Then
List1.AddItem tb.Name
End If
Next
End Sub