对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
|