Question

VB读取excel数据并插入到数据库

VB读取excel数据并插入到数据库
excel表中有8列 其中性别列为男 女
数据库中有10-20列 数据库为oracle 性别列为number 1 0
1 要讲excel中数据输入到oracle中 并且列与数据库中列一一对应
2 要讲excel中的性别转换为数据库中的1 0
如果能解决上述问题 千分不惜
也可以加我Q 单独教我
只要能实现，有源码分就不是问题

Answer 1

Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序

xlApp.Visible = False '隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(FileManually) '打开工作簿，FileManually为一个EXCEL报表文件

Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text)) '设定工作表
For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count
If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then
Exit For
End If
'将xlSheet.Cells(IRowsCount,列号)的数据插入数据库中
'转换男女可以判断xlSheet.Cells(IRowsCount,列号)="男",则=1,否则=0,然后再写入数据库

Next IRowsCount

Answer 2

超连接撒

Answer 3

利用ADO和ADOX,很简单,网上一搜一大堆