+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس (/showthread.php?tid=47342)
اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس - mh66 - 19-10-23
السلام عليكم
اريد تغيير اسم حقل ضمن جدول باستخدام الكود التالي لكن لا يعمل
اريد تعديل الكود
كود :
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()RE: اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس - justforit - 08-11-23
(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()
TextBox2 = الاسم الجديد للعمود