19-10-23, 08:20 PM
السلام عليكم
اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود
اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود
كود :
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()