* جواب سوال اول رو با چک رجستری بدست آوردم ..... (با تشکر از zerobit-ltd عزیز)
* در مورد سوال دوم : ایجاد بانک اطلاعاتی استاد عزیزمان zerobit-ltd عزیز در بالا یکسری مسیر رو دادند کد زیر رو پیدا کردم ... حالا می خوام بیبنم کجا باید این کد رو کپی کنم .... ببخشید که سوالات من پیش پا افتاده است.
Public Sub CreateDatabase()
Dim dbsNorthwind As Database
Dim tdfNew As TableDef
Dim wrkDefault As Workspace
Dim dbsDatabase As Database
Dim rstRecordSet As Recordset
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNorthwind = wrkDefault.CreateDatabase("C:\Data.mdb", dbLangGeneral, dbEncrypt)
Set dbsDatabase = OpenDatabase("C:\Data.mdb")
Set tdfNew = dbsDatabase.CreateTableDef("Table1")
With tdfNew
.Fields.Append .CreateField("Field1", dbText)
.Fields.Append .CreateField("Field2", dbText)
.Fields.Append .CreateField("Field3", dbText)
End With
dbsDatabase.TableDefs.Append tdfNew
Set rstRecordSet = dbsDatabase.OpenRecordset("Table1", dbOpenDynaset)
With rstRecordSet
.AddNew
!Field1 = "Field1::Record1"
!Field2 = "Field2::Record1"
!Field3 = "Field3::Record1"
.Update
.Close
End With
dbsDatabase.Close
End Sub
پاسخ با نقل قول
