ایجاد جدول

[parisa_vb]

با سلام. آیا میتونم با قرار دادن یک کلید روی یک فرم به کاربر توانایی خلق جدول جدیدی با فیلدهای مشخص بدم . البته نه از طریق خود اکسس بلکه با کدنویسی.البته یه چیزایی تو سایت دیدم ولی چون اماتورم چیزی متوجه نشدم..لطفا راهنمایی کنید چون هیچی در این رابطه نمی دونم..لطفا مثال بزنید...ممنون

[lenovo]

Private Sub CreateTable()
Const strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\My Documents\db1.mdb;Persist Security Info=False"

Dim cnn As New ADODB.connection
Dim cmd As New ADODB.Command

cnn.ConnectionString = strConnection
cnn.Open

cmd.ActiveConnection = cnn
cmd.CommandText = "create table tnn1 (a varchar(10), b number)"

cmd.Execute
cnn.Close

End Subامیدوارم به دردت بخوره

[r_oscar2007]

این که ارور میده

[shaghaghi]

این که ارور میده
این نمونه کد جنبه آموزشی دارد، و شیوه اجرا را به شما نشان میدهد، اما چنانچه در عمل قصد پیاده سازی آنرا داشته باشید، می بایست مقادیری همچون مسیر دیتابیس را در strConnection مطابق مسیر فایلی که بر روی سیستم خودتان دارید، تنظیم نمایید.
اما اگر با رعایت این مورد باز هم با خطا مواجه شدید، متن پیغام خطا را عنوان نمایید.
با تشکر