ایجاد یک دیتا بیس با پسورد و تیبل و رکوردهای آن

[MehdiLiver]

با سلام
شما با این تکه کد میتونید دیتا بیسی ایجاد کنید به همراه پسورد و فیلدها و تیبل آن ، این کد زمانی به کار میره که کاربر دیتا بیسش پاک شده باشد و این یک امتیاز هست که برنامه بتونه دیتا بیسش رو خودش از نو ایجاد کنه !

به امید روزی که ایرانی آباد و آزاد داشته باشیم



Dim ADOXCatalog As Catalog = New Catalog
Dim ADOXTable As ADOX.Table = New ADOX.Table
Dim ADOXColumn As ADOX.Column = New ADOX.Column

ADOXCatalog.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
My.Application.Info.DirectoryPath & "\Records.mdb" & _
";Jet OLEDB:Database Password=123")
With ADOXTable
.Name = "EventRecords"

With .Columns
.Append("EventDate", DataTypeEnum.adVarWChar, 50)
.Append("EventTime", DataTypeEnum.adVarWChar, 50)
.Append("EventDescription", DataTypeEnum.adVarWChar, 100)
.Append("EventCode", DataTypeEnum.adVarWChar, 10)
End With
End With
ADOXCatalog.Tables.Append(ADOXTable)
MessageBox.Show("Database Created", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)


تشکر یادتون نره ه ه ه ه ه