vb 中如何用SQL语言查询是否存在某个字段

我自己也有一个项目需要动态添加字段，如果本字段已经存在则不添加。所以告诉你一个实用技巧来判断“用SQL语言查询是否存在某个字段”，方法如下：

【首先告诉你结论：首先采用SQL添加这个字段“病人姓名”、如果产生错误号="-2147217887"即表示字段存在】

Private Sub Command1_Click()  '判断一个字段“病人姓名”是否存在

   On Error GoTo Cunzai  '在这里设立一个捕获字段是否存在的错误陷阱

     Dim cnn As New ADODB.Connection

     cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '设置数据库路径

     cnn.Open

     cnn.Execute "alter TABLE [病人表] add column [病人姓名] text(20)"

     cnn.Close

     Exit Sub

Cunzai:

     If Err.Number = "-2147217887" Then MsgBox "您所要添加的“病人姓名”字段已经存在于病人表中，不能重复添加！", vbOKOnly, "警 告"

End Sub

*******************************************************************************

一定能行的，你自己好好研究研究哦。如图所示：