[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()

[justforit]

(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 = الاسم الجديد للعمود