ایجاد جدول

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

 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

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

---

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