كود لانشاء جدول فى قاعده بيانات

السلام عليكم ورحمه الله بركاته

ده الكود انا عرفت اخترع حاجه كده يمكن تفيد اى حد

Dim dd As New ADODB.Connection
 Dim rr As New ADODB.Recordset
 Dim z As String
 Dim y As String
 Dim w As String
 Dim x As String
 z = "create table "
 y = " (invoice text(10),arrival date,departure date);"
 w = Text3.Text
 x = z + w + y
 dd.Open "Provider=Microsoft.Jet.oledb.4.0; data source=companies.mdb"
 dd.Execute x

يارب حد يستفيد منها

الشعاع المضئ كتب:

السلام عليكم ورحمه الله بركاته

ده الكود انا عرفت اخترع حاجه كده يمكن تفيد اى حد

Dim dd As New ADODB.Connection
 Dim rr As New ADODB.Recordset
 Dim z As String
 Dim y As String
 Dim w As String
 Dim x As String
 z = "create table "
 y = " (invoice text(10),arrival date,departure date);"
 w = Text3.Text
 x = z + w + y
 dd.Open "Provider=Microsoft.Jet.oledb.4.0; data source=companies.mdb"
 dd.Execute x

يارب حد يستفيد منها

شكرا لك ومثابرة ممتازة ومكلله بالنجاح

وهنا يمكنك ان تختصر كودك بشكل كبير جدا

انظر هنا

Dim dd As New ADODB.Connection
Dim rr As New ADODB.Recordset

dd.Open "Provider=Microsoft.Jet.oledb.4.0; data source=companies.mdb"
'فقط قم بمراعاة المسافات  حسب ماهي هنا 
dd.Execute "create table  " &  text3.text   & "  (invoice text(10),arrival date,departure date);"

تحياتي