[ASP.NET]对Oracle数据库创建表/判断数据表是否已存在

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

对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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航