22-07-15, 04:33 PM
استخدمت هذا الكود
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim cat As Object = CreateObject("ADOX.Catalog")
cat.ActiveConnection = conn
cat.Tables("school2").Columns("schid2").Name = "atef"
cat = Nothing
وظهرت هذه الرسالة
Specified cast is not valid.
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim cat As Object = CreateObject("ADOX.Catalog")
cat.ActiveConnection = conn
cat.Tables("school2").Columns("schid2").Name = "atef"
cat = Nothing
وظهرت هذه الرسالة
Specified cast is not valid.