对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)
判断数据表是否已存在: ''''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