08-03-14, 11:17 AM
الصفحات : 1 2
08-03-14, 01:08 PM
شوف الكود التالي من مثال المنتدى اللي برمجته
ركز على
كود :
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 identity08-03-14, 01:37 PM
شكرا اخي الكريم ولكن سؤال اذا بدلت
tid int NOT NULL PRIMARY KEY identity
ب
[id] [int] IDENTITY(1,1) NOT NULL
صح او خطا
لان سكريبت انشاء جدول بسكول
بكون هيك مكتوب
؟
tid int NOT NULL PRIMARY KEY identity
ب
[id] [int] IDENTITY(1,1) NOT NULL
صح او خطا
لان سكريبت انشاء جدول بسكول
بكون هيك مكتوب
؟
08-03-14, 02:04 PM
انت تريد إنشاء حقل بخاصية مفتاح اساسي PRIMARY KEY وخاصية الترقيم التلقائي IDENTITY وهما خاصيتين وليسوا خاصية واحدة
استخدم الـ script التالي
(1,1) تعني البدء بالرقم 1 والزيادة بمقدار 1



استخدم الـ 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]



08-03-14, 02:31 PM
شكرا اخي الكريم ولكن السؤال عند اضافة الجدول برمجيا نكتب
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
الداتا سكول
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
الداتا سكول
08-03-14, 02:56 PM
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()



10-03-14, 03:25 PM
جزاك الله خيرا
10-03-14, 04:33 PM
اين الخطا بالكود
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
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
10-03-14, 05:13 PM
أحذف من جملة SQL في نهايتها الكلمات التالية
وسوف يعمل الكود علي ضمنتي 



كود :
TEXTIMAGE_ON [PRIMARY]



10-03-14, 05:15 PM
أحذف من جملة SQL في نهايتها الكلمات التالية
وسوف يعمل الكود علي ضمنتي 



كود :
TEXTIMAGE_ON [PRIMARY]



الصفحات : 1 2