比如:有个数据库data.mdb
内有四张表格:Z10名称,Z20数量,Z30供应商,Z40其他
能否只用前三个字即:Z10,Z20,Z30,Z40来确定是Z10名称,Z20数量,Z30供应商,Z40其他
即有点类似字段的模糊查询来确定表格名称再问一个,怎么判断一个数据库内是否存在一个指定的表格
内有四张表格:Z10名称,Z20数量,Z30供应商,Z40其他
能否只用前三个字即:Z10,Z20,Z30,Z40来确定是Z10名称,Z20数量,Z30供应商,Z40其他
即有点类似字段的模糊查询来确定表格名称再问一个,怎么判断一个数据库内是否存在一个指定的表格
把“Z10”作为“Z10名称 ”的别名。可以在其他地方引用别名。
-------------------------------------------------
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn As String
Dim rstSchema As New ADODB.Recordset
Dim I As Integer
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open strCnn
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
If rstSchema!TABLE_NAME = "指定的表名称" Then
MsgBox "存在指定的表!"
Exit Do
End If
End If
rstSchema.MoveNext
Loop
rstSchema.Close
adoCN.CloseEnd Sub
怎么在一个表格内确定某个指定的字段名存在,若存在则删除!
现在我可以删除,但不能判断是否存在,只能通过错误判断
感谢!
---------------------------------------------
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim strCnn As String
Dim rst As New ADODB.Recordset
Dim i As Integer
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"
adoCN.Open strCnn
rst.Open "查找的表", adoCN, adOpenDynamic, adLockOptimistic, adCmdTable
For i=0 To rst.Fields.Count-1
If rst.Fields(i).Name="指定的字段" Then
MsgBox "指定的字段存在!"
Exit For
End If
Next
rstSchema.Close
adoCN.CloseEnd Sub