الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل يمكن إضافة جدول جديد إلى قاعدة بيانات وكيف؟

مغلق
بدأه The MP في 1 أكتوبر 2004 · 5 رد · 703 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كيف أضيف جدولا إلى قاعدة بيانات من خلال الكود إي عندما اشتغال البرنامج:

كما يمكنني إضافة سجل أو حذفه. هل توجد طريقة لإضافة جدول جديد أو حذف جدول موجود؟

وشكرا لكم

#2

السلام عليكم

هذا الكود ال Sql

CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int 
   )
#3

عفواً لم اقرا سؤالك كاملاً فهذا الكود لحذف الجدول

DROP TABLE mytable

و لاضافة سجل للجدول

ALTER TABLE mytable ADD column_b VARCHAR(20) NULL

و من أجل حذف السجل

ALTER TABLE mytable  DROP COLUMN column_b
#4

و لاضافة الكود الذى قام بكتابته الاخ محمد صادق فستقوم بانشاء كائن command و تقوم بتحديد ال command text و تضع بها كود الاخ محمد و لو كان الامر يحتوى على باراميترات ستقوم بتحديد الباراميترات عن طريق الكائن parameters ثم ستقوم باضافة الباراميتير لل command

للاسف لا استخدم vb 6 الان لكن لو احببت اضع لك كود بال vb.net بسيط يوضح هذه العمليه لن تختلف كثيراً إن شاء الله

تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 2 أكتوبر 2004 في 01:35

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

#5

مرحباً

إذا كنت تستخدم ال ADO للاتصال بي قاعدة البيانات اليك الكود التالي و ارجو السماح على

الاطالة

قاعدة البيانات Sql Server 2000

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
cnn.Open "PROVIDER=MSDASQL;DRIVER={SQL SERVER};SERVER=(local);DATABASE

=Dbname;UID=sa;PWD="
With cmd
.ActiveConnection = cnn
.CommandText = "CREATE TABLE mytable (date_in datetime,user_id int)"
 .CommandType = adCmdText
End With
Set rs = cmd.Execute
cnn.Close
Set rs = Nothing
#6

يبدو اننا كتبنا الرد فى نفس اللحظه هذا ما كنت اقصده تماماً

Technical Lead Developer

My LinkedIn Profile

اللهم قنى شر الجهل و الجهلاء

( اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ ) {الأنبياء:1}

هذا الموضوع مغلق.

مواضيع مشابهة