<p></p><p><strong><font color="#0000ff">但是有个地方不知如何处理,如果姓名为数字如502,则在查询后为空白,不知如何解决,请指教.</font></strong></p><p>代码如下:</p><p>Sub 自选图形1_单击()<br/>Application.ScreenUpdating = False<br/>Dim CNN As New ADODB.Connection<br/>Set CNN = CreateObject("adodb.connection")<br/>CNN.Open "rovider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName<br/>[h1:l65536].ClearContents<br/>Sql = "select * FROM[员工信息表$] WHERE 部门='策划部' AND 性别= '女'"<br/>[A1:E1].Copy [H1]<br/>[H2].CopyFromRecordset CNN.Execute(Sql)<br/>CNN.Close<br/>Set CNN = Nothing<br/>End Sub</p><p><strong><font color="#3300ff">1、502查询为空,是本题要考查的一个小知识点,稍后讲解</font></strong></p><p><strong><font color="#3300ff">2、字段名要求用ADO取得,不是用直接复制的方法,再思考 </font></strong></p><p><font color="#3300ff"><strong>3、</strong><font color="#000000">Dim CNN As<strong><font color="#ff0033"> New</font></strong> ADODB.Connection</font><strong> 后CNN就可以直接用了,不用再</strong><font color="#000000">Set CNN =<strong><font color="#ff0066"> CreateObject</font></strong>("adodb.connection") </font><strong>烟雨江南4/22<br/></strong></font> </p>
[此贴子已经被烟雨江南于2007-4-22 17:28:31编辑过] |