[ASP.NET]對Oracle資料庫建立表/判斷資料表是否已存在

來源:互聯網
上載者:User
asp.net|oracle|建立|資料|資料庫 對Oracle資料庫建立表:
Dim myConnectionString As String
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim myCreateSQL As String
myConnectionString = "Provider='OraOLEDB.Oracle.1';User ID=[User ID];Data Source=[Data Source];Extended Properties=;Persist Security Info=True;Password=[Password]"
myConnection = New OleDbConnection(myConnectionString)
myCreateSQL = "create table (abc varchar2(10))"
myCommand = New OleDbCommand(myCreateSQL)

myCommand.Connection = myConnection
myConnection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()

判斷資料表是否已存在:
'DataBaseName --表名
Private Function SQLExistDatabase(ByVal DataBaseName As String) As Boolean
Dim orcConnDb As OracleConnection
Dim strSelect As String
Dim odaExistDatabase As OracleDataAdapter
Dim dsExistDatabase As New DataSet

orcConnDb = New OracleConnection
orcConnDb.ConnectionString = "data source=[data source];" _
& "persist security info=False;" _
& "user id=[]user id;Password=[Password];"
orcConnDb.Open()

strSelect = "select count(*) from user_tables where table_name='" & ReplaceEN(DataBaseName) & "'"
odaExistDatabase = New OracleDataAdapter(strSelect, orcConnDb)

odaExistDatabase.Fill(dsExistDatabase)

If dsExistDatabase.Tables(0).Rows(0)(0) = 0 Then
orcConnDb.Close()
Return False
Else
orcConnDb.Close()
Return True
End If
End Function

'小寫英字轉換成大寫英字
'enString -- 字串
Private Function ReplaceEN(ByVal enString As String) As String
Dim i As Integer

For i = Asc("a") To Asc("z")
enString = enString.Replace(CChar(ChrW(i)), CChar(ChrW(i - 32)))
Next

Return enString
End Function




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。