在vb中用odbc读excel的数据源.txt

VB技巧问答10000例 VB技巧问答10000例

Adodc1.recordsource="select * from sheet1$" 
     ^^^^^^^^^这 必 须 是 Execl的 区 域 别 名 ,即 为 sheet1$起 一 个 数 据 库 可 以 看 到 的 名 字 
<END>    
源 码 如 下 : 
     Dim rstEmployees As ADODB.Recordset 
     Dim strOldFirst As String 
     Dim strOldLast As String 
     Dim strMessage As String 
     Dim SQL As String 
     Dim ShuLiang_Long As Long 
     
     strCnn = "DSN=News_Mouse" '数 据 源 名 
     SQL = "SELECT * FROM 新 闻 库 ;" 
     Set rstEmployees = New ADODB.Recordset 
     rstEmployees.CursorType = adOpenKeyset 
     rstEmployees.LockType = adLockOptimistic 
     rstEmployees.Open SQL, strCnn, , , adCmdText 
<END>