文件名称:\vb-excel转换为mdb
文件大小:14KB
文件格式:RAR
更新时间:2015-12-20 05:30:10
vb excel
vb-excel转换为mdb Private Sub Text1_DblClick() CDlg.DialogTitle = "打开 EXCEL 文件" CDlg.Filter = "所有 EXCEL 文件|*.xls" CDlg.ShowOpen If CDlg.FileName = "" Then Exit Sub Text1.Text = CDlg.FileName If Conn.State = adStateOpen Then Conn.Close Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & CDlg.FileName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件 sql = "select * from [sheet1$]" '打开EXCEL表 rs.CursorLocation = adUseClient rs.Open sql, Conn, 3, 3 Label1.Caption = "共有记录: " & rs.RecordCount Set DataGrid1.Dat
【文件预览】:
vb-excel转换为mdb
----更多源码.url(188B)
----免费『商业源码』.url(164B)
----【源码说明】.txt(2KB)
----源码天空.htm(66B)
----『源码天空』.url(164B)
----Excel转换成mdb()
--------表格转数据库.vbp(1000B)
--------Form1.log(840B)
--------Form1.frm(8KB)
--------Oth119.ICO(766B)
--------Form1.frx(778B)
--------MSSCCPRJ.SCC(493B)
--------EXCEL TO ACCESS.vbw(44B)
--------表格转数据库.exe(28KB)
--------表格转数据库.vbw(49B)
--------工程1.vbw(49B)