منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس

السلام عليكم

اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود

كود :

If S4s4 = False Then

            D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox1.Text, False, False) ', ";pwd=" & PassWord)

        End If

        If S4s4 = True Then

            D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox6.Text, False, False) ', ";pwd=" & PassWord)

        End If

        T1 = D1.OpenRecordset("zkedfat", dao.RecordsetTypeEnum.dbOpenTable)

        sql = "SELECT * FROM zkedfat ALTER TABLE rmz RENAME TO zmr"

        T1 = D1.OpenRecordset(sql, , dao.RecordsetTypeEnum.dbOpenTable)

        T1.Close()

        D1.Close()

(19-10-23, 08:20 PM)mh66 كتب : [ -> ]السلام عليكم

اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود

كود :

If S4s4 = False Then D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox1.Text, False, False) ', ";pwd=" & PassWord) End If If S4s4 = True Then D1 = DAODBEngine_definst.Workspaces(0).OpenDatabase(Aboot.TextBox6.Text, False, False) ', ";pwd=" & PassWord) End If T1 = D1.OpenRecordset("zkedfat", dao.RecordsetTypeEnum.dbOpenTable) sql = "SELECT * FROM zkedfat ALTER TABLE rmz RENAME TO zmr" T1 = D1.OpenRecordset(sql, , dao.RecordsetTypeEnum.dbOpenTable) T1.Close() D1.Close()

و عليكم السلام
لدي كود آخر يلزم اضافة :
Microsoft ActiveX Data Objects 6.1 Library
Microsoft ADO Ext. 6.0 for DDL and Security
اضفها كـ Reference

PHP كود :

       Dim cat As ADOX.Catalog
        cat = New ADOX.Catalog
        Dim dcon As New ADODB.Connection
        dcon.ConnectionString = str
        dcon.Open()
        cat.ActiveConnection = dcon
        Dim tb As New ADOX.Table
        tb = cat.Tables("tb")
        tb.Columns(TextBox1.Text).Name = TextBox2.Text
        dcon.Close() 

TextBox1 = الاسم قبل التغيير
TextBox2 = الاسم الجديد للعمود

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mh66

justforit