[ASP.NET]对Oracle数据库创建表/判断数据表是否已存在
2005-01-05 12:56
543 查看
对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
注:asp.net中的UCASE函数其实就是将小写英字转换成大写英字的方法
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
注:asp.net中的UCASE函数其实就是将小写英字转换成大写英字的方法
相关文章推荐
- ASP.NET判断物理路径下是否存在某文件,如果不存在则创建
- ASP.NET对文件的操作,创建文件,判断文件是否存在,判断文件是否存在删除文件夹
- asp.net(c#)判断远程图片是否存在
- ASP.net 2.0 C#判断文件夹与文件是否存在
- asp.net数据绑定判断字段值是否为空
- ASp.net判断文件或文件夹是否存在
- 判断XML文件是否存在,不存在就创建一个XMl文件,存在就在里面添加一条数据
- MS SQL Server中数据表、视图、函数/方法、存储过程是否存在判断及创建
- 判断本地系统目录下是否存在XML文件,如果不存在就创建一个XMl文件,若存在就在里面执行添加数据
- asp.net(c#) 将dbf转换为xls或wps,并将数据的列名改成中文;并判断本机是否安装office2003,2007和wps2007,2010
- ASP.NET判断URL参数是否存在
- asp.net判断文件或文件夹是否存在
- ado.net PrimaryKey 判断插入数据是否已经存在
- asp.net 判断数组是否存在某个值的方法
- 判断字符串是否存在某一字符 asp.net
- ASP.net 2.0 C#判断文件夹与文件是否存在
- asp.net 判断数组是否存在某个值的方法
- asp.net判断服务器上的目录或文件是否存在!(实例)
- ASP.NET——C#文件夹创建与文件存在判断