حرفه ای ها در بانک اطلاعاتی Access

[ebrahimhoze]

میخوام توی یک جدول توی بانک access یک فیلد از طریق کد نویسی در ویژوال بیسیک درست کنم

[atenaa]

Dim cn As New ADODB.Connection, cat As New ADOX.Catalog
cn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\mydb.mdb"
Set cat.ActiveConnection = cn
Dim tbl As ADOX.Table
Set tbl = cat.Tables("userpass")
tbl.Columns.Append "id", adInteger
tbl.Columns.Append "name", adVarChar, 255



البته تو قسمت Refrence گزینه
Microsoft ado ext.2.8 for dll and security رو تیک بزنید

[hamed_F]

سلام
یک روش دیگر
On Error Resume Next
Dim tdExample As TableDef
Dim fldForeName As Field
Dim fldSurname As Field
Dim fldDOB As Field
Dim fldFurtherDetails As Field
Dim dbDatabase As Database
Dim sNewDBPathAndName As String

sNewDBPathAndName = App.Path & "\db.mdb"

Set dbDatabase = OpenDatabase(sNewDBPathAndName, False, False, ";pwd=123")
'-----------------------------------------------------------------
Set tdExample = dbDatabase.TableDefs("tbl1")
With tdExample
.Fields.Append .CreateField("fld1", dbByte)
.Fields.Append .CreateField("fld2", dbInteger)
End With

Set dbDatabase = Nothing