كد ساخت فايل اكسس همراه با يك جدول داخل ان

[a.a.hosseiny]

بچه ها كمك كنيد.
من مي خوام وقتي برنامه براي اولين بار اجرا ميشه فايل اكسس و جدول و فيلد هاي آن را خودش بساز تا من بانك را همراه با فايل اجرايي نذارم.چون اطلاعات قرار از صفر وارد ان بانك بشه .

[Hossis]

طبق تحقیقاتی که عن قریبٍ بدست آمده، ساخت فایل اکسس از طریق برنامه نویسی با کدهای اسکیوال امکان نداره اما راه دیگری برای اون هست( در این رابطه عبارت زیر را در اینترنت جستجو کنید:
create access database in vb.net)
اما ساخت جدول اکسس در فایل موجود راحته
پیشنهاد میشه یک فایل اکسس خالی در کنار برنامه اجرایی خود بسازید(و مخفی کنید تا کاربر نتونه حذف کنه) و سپس از طریق کد، یک کپی از اون گرفته و جداول مورد نیاز رو در اون اضافه کنید.
من همین کار رو می‌کنم
نمونه
با استفاده از یک نمونه OLEDBCommand کد اسکیوال زیر را اجرا کنید

CREATE TABLE Friends
([FriendID] integer,
[LastName] text,
[FirstName] text,
[Birthdate] date,
[Phone] text,
[Notes] memo,
CONSTRAINT [Index1] PRIMARY KEY ([FriendID]));

[cjmoon]

اینم کد کامل ساخت بانک اکسس با کد نویسیی
فقط اول از Reference-COMکامپوننت
Microsoft ADO Ext. 2.7 for DDL and Security
اضافه کنین.



mports ADOX


Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim databaseName As String = "C:\AccessDB.mdb"

Dim tableName As String = "MyTable"




Dim cat As ADOX.Catalog = New ADOX.Catalog()

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databaseName & ";Jet OLEDB:Engine Type=5")

MessageBox.Show("Database Created Successfully")


cat = Nothing




Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & databaseName)

con.Open()




Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tabl es, New Object() {Nothing, Nothing, tableName, "TABLE"})

con.Close()




If dbSchema.Rows.Count > 0 Then

' do whatever you want to do if the table exists

Else


'do whatever you want to do if the table does not exist

' e.g. create a table

Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)

con.Open()

cmd.ExecuteNonQuery()

MessageBox.Show("Table Created Successfully")

con.Close()

End If

End Sub


End Class






لایک داشت؟:لبخندساده:






مثله برگی خشك و تنها رویه شاخه موندم اینجا می ترسم
تویه چنگ وحشی باد برم از خاطر و از یاد بپوسم
همه ی روزای من ‍‍‌، قصه ی بودن من ،
تویه آینه ی دلم
مثله شب سیاه و سرده ، مثله ابرا رنگ درده