[محاسب يوسف]

السلام عليكم كيفية انشاء جدول برمجيا مع علم وجود حقل مفتاح
ترقيم تلقائي
بالسكول سيرفر 2008

[سعود]

شوف الكود التالي من مثال المنتدى اللي برمجته

كود :

Dim th As New SqlCommand("CREATE TABLE th(tid int NOT NULL PRIMARY KEY identity,thid varchar(100),lasttime datetime default GETUTCDATE())", con)
        If con.State = Data.ConnectionState.Closed Then
            con.Open()
        End If

        th.ExecuteNonQuery()

ركز على

كود :

tid int NOT NULL PRIMARY KEY identity

[محاسب يوسف]

شكرا اخي الكريم ولكن سؤال اذا بدلت
tid int NOT NULL PRIMARY KEY identity
ب
[id] [int] IDENTITY(1,1) NOT NULL
صح او خطا
لان سكريبت انشاء جدول بسكول
بكون هيك مكتوب
؟

[Genius Live]

انت تريد إنشاء حقل بخاصية مفتاح اساسي PRIMARY KEY وخاصية الترقيم التلقائي IDENTITY وهما خاصيتين وليسوا خاصية واحدة
استخدم الـ script التالي

PHP كود :

SET ANSI_NULLS ON
SET QUOTED_IDENTIFIER ON
CREATE TABLE [dbo].[th]([tid] [int] IDENTITY(1,1) NOT NULL,
CONSTRAINT [PK_th] PRIMARY KEY CLUSTERED ([tid] ASC)WITH
(PAD_INDEX  = OFF,
STATISTICS_NORECOMPUTE  = OFF,
IGNORE_DUP_KEY = OFF,
ALLOW_ROW_LOCKS  = ON,
ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY])
ON [PRIMARY] 


(1,1) تعني البدء بالرقم 1 والزيادة بمقدار 1

[محاسب يوسف]

شكرا اخي الكريم ولكن السؤال عند اضافة الجدول برمجيا نكتب
Dim th As New SqlCommand("CREATE TABLE th(tid int NOT NULL PRIMARY KEY identity,thid varchar(100),lasttime datetime default GETUTCDATE())", con)
If con.State = Data.ConnectionState.Closed Then
con.Open()
End If

th.ExecuteNonQuery()

ونضيف عناصر الجدول

ثم نكتب سكريبت
او كيف طريقة
الاضافة برمجيا مثلا
جدول اسمهstudent
idمفتاح رئيسي وترقيم تلقائي ويزيد1
name
note
الداتا سكول

[Genius Live]

PHP كود :

Dim A As New SqlCommand
        Dim con As New SqlConnection("جملة الاتصال")
        If con.State = ConnectionState.Open Then con.Close() 


PHP كود :

Dim sqlStatement As String = "SET ANSI_NULLS ON " & _
        "SET QUOTED_IDENTIFIER ON " & _
        "CREATE TABLE [dbo].[student]( " & _
        "[ID] [int] IDENTITY(1,1) NOT NULL, [NAME] [nvarchar](50) NULL, [Notes] [text] NULL, " & _
        "CONSTRAINT [PK_student] PRIMARY KEY CLUSTERED ([ID] ASC)WITH  " & _
        "(PAD_INDEX  = OFF, " & _
        "STATISTICS_NORECOMPUTE  = OFF, " & _
        "IGNORE_DUP_KEY = OFF, " & _
        "ALLOW_ROW_LOCKS  = ON, " & _
        "ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]) " & _
        "ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] " 


PHP كود :

A = New SqlCommand(sqlStatement, con)
        con.Open()
        A.ExecuteNonQuery()
        con.Close() 


[محاسب يوسف]

جزاك الله خيرا

[محاسب يوسف]

اين الخطا بالكود
If conn.State = ConnectionState.Open Then conn.Close()
Dim sqlStatement As String = "SET ANSI_NULLS ON " & _
"SET QUOTED_IDENTIFIER ON " & _
"CREATE TABLE [dbo].[aa]( " & _
"[ID] [int] IDENTITY(1,1) NOT NULL, [idbill] [float] NULL,[invoic] [float] NULL,[way] [nvarchar](2000) NULL,[detail] [nvarchar](2000) NULL,[qty] [float] NULL,[rate] [float] NULL,[amount] [float] NULL,[avat] [float] NULL,[vat] [float] NULL,[total] [float] NULL,[datee] [nvarchar](2000) NULL, " & _
"CONSTRAINT [PK_aa] PRIMARY KEY CLUSTERED ([ID] ASC)WITH " & _
"(PAD_INDEX = OFF, " & _
"STATISTICS_NORECOMPUTE = OFF, " & _
"IGNORE_DUP_KEY = OFF, " & _
"ALLOW_ROW_LOCKS = ON, " & _
"ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) " & _
"ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] "
A = New SqlCommand(sqlStatement, conn)
conn.Open()
A.ExecuteNonQuery()
conn.Close()
MsgBox("complete create tables")
Catch ex As Exception
MsgBox("THE Tables Are Exist ")
End Try

[Genius Live]

أحذف من جملة SQL في نهايتها الكلمات التالية

كود :

TEXTIMAGE_ON [PRIMARY]

وسوف يعمل الكود علي ضمنتي

[Genius Live]

أحذف من جملة SQL في نهايتها الكلمات التالية

كود :

TEXTIMAGE_ON [PRIMARY]

وسوف يعمل الكود علي ضمنتي