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

Question

Private Sub Command1_Click()
Dim sql As String
Dim flag As Boolean
Dim cnn As New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '设置数据库路径
Dim cmd As New ADODB.Command
cnn.Open
Set cmd.ActiveConnection = cnn
Dim res As New ADODB.Recordset
Set res.ActiveConnection = cnn

如上文 都设置好以后，怎么写SQL语句 查询一个DB1.MDB数据库中 “病人表”这个表里是否存在“病人姓名这个字段”？非常谢谢了···

Answer 1

我自己也有一个项目需要动态添加字段，如果本字段已经存在则不添加。所以告诉你一个实用技巧来判断“用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

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

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

Answer 2

我就是学数据库的，不过扔下好几年了，还得去翻书，头痛

Answer 3

select * from DB1.MDB
where id='字段 '

追问

这个从哪张表里都没选啊···

追答

select '病人表' from DB1.MDB
where id='字段 '

追问

哪里知道是否存在该字段

追答

就看字段查询出是不是空集了...