请把vb代码翻译为C#的
IfrstSchema!TABLE_NAME=Trim(strTableName)Then其中rstSchema是一个recordset的实例,我不清楚的是那个!(感叹号...
If rstSchema!TABLE_NAME = Trim(strTableName) Then
其中rstSchema是一个recordset的实例,我不清楚的是那个!(感叹号的意思)
这代码是在网上找的,用于在ADODB下检查表是否存在
On Error GoTo Error_IsExistTable
Dim Cnxn As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
Dim strCnxn As String
Set Cnxn = CurrentProject.Connection
Set rstSchema = Cnxn.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_NAME = Trim(strTableName) Then
IsExistTable = True
End If
rstSchema.MoveNext
Loop
rstSchema.Close
Cnxn.Close
Set rstSchema = Nothing
Set Cnxn = Nothing
Exit Function
Error_IsExistTable:
IsExistTable = False
If Not rstSchema Is Nothing Then
If rstSchema.State = adStateOpen Then rstSchema.Close
End If
Set rstSchema = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error_IsExistTable"
End If
End Function 展开
其中rstSchema是一个recordset的实例,我不清楚的是那个!(感叹号的意思)
这代码是在网上找的,用于在ADODB下检查表是否存在
On Error GoTo Error_IsExistTable
Dim Cnxn As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
Dim strCnxn As String
Set Cnxn = CurrentProject.Connection
Set rstSchema = Cnxn.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_NAME = Trim(strTableName) Then
IsExistTable = True
End If
rstSchema.MoveNext
Loop
rstSchema.Close
Cnxn.Close
Set rstSchema = Nothing
Set Cnxn = Nothing
Exit Function
Error_IsExistTable:
IsExistTable = False
If Not rstSchema Is Nothing Then
If rstSchema.State = adStateOpen Then rstSchema.Close
End If
Set rstSchema = Nothing
If Not Cnxn Is Nothing Then
If Cnxn.State = adStateOpen Then Cnxn.Close
End If
Set Cnxn = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error_IsExistTable"
End If
End Function 展开
4个回答
展开全部
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
! 绝对是个错误
If rstSchema.TABLE_NAME != Trim(strTableName) Then
到有可能
If rstSchema.TABLE_NAME != Trim(strTableName) Then
到有可能
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你确定你没写错?比较两个表名字是否相同吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有 翻译工具 你 下载 一个
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询