VB excel数据导入 oracle ？？？

[topyyii]

如何讲VB excel数据导入 oracle 中呢？？ 而且excel中 有些数据与数据库不符 如性别 excel 中是 男 女 数据库中为 1 0
该如何完成 求高手一解。。。！~~

[鲁虾]

写sql的时候，处理一下，if else ....

[tjficcbw]

而且excel中 有些数据与数据库不符这个没关系，加一个判断，
if a="男" then
b=1
else
b=0
end if
导入 用程序打开xls,一行一行地插入oracle

[topyyii]

主要是excel数据如何导入到oracle里面呢？

[gh_li]

从Excel查找数据到DataTable,然后再把Datatable中的数导入Oracle相应的表中。
至于“如性别 excel 中是 男 女 数据库中为 1 0”，这个问题你可在从Excel查找数据到Datatable时进行处理
比如：select decode([表中性别字段],'男',1,'女',0,'不男不女') from [你的表名]
下面给出一个DataTable表中数据更新到指定的Oracle表中代码

　　'---------------------------------------------------------------
    ' 函数功能：把DataTable表中数据更新到指定的Oracle表中
    ' 参数：
    ''strTableName:orcle数据库中的表名
    ''dt:要插入的表
    ' 创建标识：[ghli][2008-07-30]
    '----------------------------------------------------------------
    Public Function DataTableToDB(ByVal strTableName As String, ByVal dt As DataTable)
        Dim dtResult As New DataTable
        Dim myCommand As OracleDataAdapter
        Dim myBuilder As OracleCommandBuilder
        Dim strCom As String = "select * from " + strTableName
        myCommand = New OracleDataAdapter(strCom, myORACLEConnection)
        myBuilder = New OracleCommandBuilder(myCommand)
        myCommand.Fill(dtResult)
        For Each rowItem As DataRow In dt.Rows
            Dim newRow As DataRow = dtResult.NewRow()
            newRow.ItemArray = rowItem.ItemArray
            dtResult.Rows.Add(newRow)
        Next
        myCommand.InsertCommand = myBuilder.GetInsertCommand
        myCommand.Update(dtResult)
        Return Nothing
    End Function

[ZengHD]

        public static DataSet ImportExcel(string file)
        {
            FileInfo fileInfo = new FileInfo(file);
            if (!fileInfo.Exists)
                return null;

            string strConn = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + file + ";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'";
            OleDbConnection objConn = new OleDbConnection(strConn);
            DataSet dsExcel = new DataSet();
            try
            {
                objConn.Open();
                //  string strSql = "select * from  [Sheet1$]";
                string strSql = "select * from  [Sheet1$]";
                OleDbDataAdapter odbcExcelDataAdapter = new OleDbDataAdapter(strSql, objConn);
                odbcExcelDataAdapter.Fill(dsExcel);
                return dsExcel;
            }
            catch (Exception ex)
            {
                throw ex;
            }
        }