vb.net中，如何确定Access数据库中是否存在一个表
VB.NET开发Access数据库。想在Access确定某个表是否存在，如何做？如果表存在，如何得到这个表？
[解决办法]
你很幸运。我昨天写的
希望对你有用
Private Sub Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Data.Click
Dim inti As Integer
dataAceUtility = New DataUtility.AceDataCommon
Me.tablS.Items.Clear()
Try
If passText.Text = " " Then
MsgBox( "please enter pass ")
Me.passText.Focus()
ElseIf dataText.Text <> " " Then
If dataAceUtility.getAecDataConnection(Me.passText.Text, Me.dataText.Text) Then
' dataAceUtility.FnAceOleDbSchemaTable().WriteXml( "c:\app.xml ")
If dataAceUtility.FnAceOleDbSchemaTable().Rows.Count > 0 Then
For inti = 0 To dataAceUtility.FnAceOleDbSchemaTable().Rows.Count - 1
Me.tablS.Items.Add(dataAceUtility.FnAceOleDbSchemaTable().Rows(inti).Item( "TABLE_NAME ").ToString)
Next
End If
End If
Else
MsgBox( "MDB files is NULL ")
Me.dataText.Focus()
End If
Catch ex As Exception
End Try
End Sub
[解决办法]
那有那么复杂-_- 不一定要用什么adonet，简单就是好，用ado+errnumber是最简单的
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False "
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open(strConn)
rs = conn.Execute( "tablename ")
If Err.Number <> 0 Then
MessageBox.Show( "不存在此表 ")
Else
MessageBox.Show( "存在此表 ")
End If
End Sub
[解决办法]
http://blog.csdn.net/precipitant/archive/2004/09/08/98409.aspx
