作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

对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

相关软件：