adox删除字段问题

Question

请问，如何用adox从一个数据表（如my.mdb中表my1）中删除一个字段（如“性别”）。

Answer 1

用sqlAlter Table 表名 Drop Column field  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 
http://feiyun0112.cnblogs.com/

Answer 2

1楼可否说的明白些，从list3里选择一个表名，删除list5中所列的所有字段，是这样吗？不行呀Dim cnn As New ADODB.Connection
cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & CD1.FileName
    
For i = 0 To List5.ListCount - 1
sql = "Alter Table " & List3.List(List3.ListIndex) & " Drop Column List5.List(i)
cnn.Execute sql
Next

Answer 3

adox添加字段非常方便，应该有删除字段的功能，谁知道呀？求救

Answer 4

sql = "Alter Table " & Cstr(List3.List(List3.ListIndex)) & " Drop Column " & Cstr(List5.List(i)) 
Cstr(List5.List(i)) 列上有索引或约束的话也都会被删除掉

Answer 5

回7楼，不行，本就是字符串，何用转换？你试试，即使不循环，直接写 sql = "Alter Table my1 Drop Column 性别" ，也还是错误，怎么回事？Private Sub command5_click()
    Dim cnn As New ADODB.Connection
    cnn.Open "provider=microsoft.jet.oledb.4.0;data source=" & CD1.FileName
    
    For i = 0 To List5.ListCount - 1
        sql = "Alter Table " & CStr(List3.List(List3.ListIndex)) & " Drop Column " & CStr(List5.List(i))
        cnn.Execute sql
    Next
 End Sub