2006年4月8日

让SQL传回格式化后的数值

摘要： Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)Dim Rs As ADODB.Recordset Set Rs = Conn.Execute("select str(12,10,2)") MsgBox Rs.Fields(0)End Sub 阅读全文

posted @ 2006-04-08 09:08 yzx99 阅读(191) 评论(0) 推荐(0) 编辑

象数据库一样连接EXCEL

摘要： Private Sub Command1_Click() Dim oConn As New ADODB.Connection oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Book1.xls;" & _ "Extended Properties=""Excel... 阅读全文

posted @ 2006-04-08 09:02 yzx99 阅读(168) 评论(0) 推荐(0) 编辑

导航

2006年4月8日