急求这个事例:利用Dll方式完成对access库的添加修改删除再将结果保存到文本文件的事例!

急求这个事例:利用Dll方式完成对access库的添加修改删除再将结果保存到文本文件的事例!
小第在线等,,,,,急谢谢各位了

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

http://www.csdn.net/develop/read_article.asp?id=22628
类一样的表现层换成vb即可
小弟是菜鸟, asp的测试不太懂,请版主翻译成标准工程给讲一下.在下将不胜感激.
新建ASP页面，”TestWebDb1.asp”。主要用来测试GetEmployeeList()方法<HEAD> <!- 测试页 -><!- 功能：测试组件 -><!- 作者：龙卷风.NET -> <%    Dim strTopic    Dim strTitle    Dim strContents    Dim DataQuery       Dim Rs       Dim Myself       Myself=Request.ServerVariables("script_name")    Set DataQuery=Server.CreateObject("WebDb.GetInfomation")       Set Rs=Server.CreateObject("adodb.recordset")    %> <TITLE>   数据组件测试页</TITLE> <H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1> <%       Dim Flag       Flag=DataQuery.GetConn()       If Flag=false then              ResPonse.Write "数据库没有连结,请检查"              ResPonse.End       End if        Set Rs=DataQuery.GetEmployeeList()       if rs.eof then              Response.write "没有数据,请查询"              Response.end       end if     Rs.PageSize =3    Page= CLng(Request.QueryString ("Page"))     If Page < 1 Then Page = 1    If Page > Rs.PageCount Then Page = Rs.PageCount          Response.Write "<CENTER><TABLE BORDER=1 cellspacing=0 cellpadding=2>"         Response.Write "<tr BGCOLOR=silver align=center>"         Response.Write "<td>EmployeeID</TD>"         Response.Write "<td>LastName</td>"           Response.Write "<td>FirstName</td>"               Response.Write "<td>Title</a></td>"           Response.Write "<td>TitleOfCourtesy</a></td>"           Response.Write "<td>BirthDate</td>"           Response.Write "<td>HireDate</td>"           Response.Write "<td>Address</td>"           Response.Write "<td>City</td>"         Response.Write "</tr>"                Rs.AbsolutePage = Page               For iPage = 1 To Rs.PageSize                     Response.Write "<TR align=right>"                   for i=0 to Rs.fields.count-1                          Response.Write "<td>"&Rs.fields.item(i)&"</td>"                      next                     Response.Write "</TR>"                      Rs.MoveNext                      If Rs.EOF Then Exit For                next      Response.Write "</TABLE></CENTER>"%> <Form name="myform" method="get"><%If Page <> 1 Then%>     <A HREF="<%=Myself%>?Page=1">第一页</A>     <A HREF="<%=Myself%>?Page=<%=(Page-1)%>">上一页</A><%End If%>  <%If Page <> Rs.PageCount Then%>  <A HREF="<%=Myself%>?Page=<%=(Page+1)%>">下一页</A>  <A HREF="<%=Myself%>?Page=<%=Rs.PageCount%>">最后的一页</A><%End If%>页次:<FONT COLOR="Red"><%=Page%>/<%=Rs.PageCount%></FONT></Form> <%Rs.close%>  新建ASP页面，”TestWebDb2.asp”。主要用来测试GetEmployeeName()方法这个页面相对简单一些<HEAD> <!- 测试页 -><!- 功能：测试组件 -><!- 作者：龙卷风.NET -> <%    Dim DataQuery       Dim strID       Dim strResult    Set DataQuery=Server.CreateObject("WebDb.GetInfomation")%> <TITLE>   数据组件测试页</TITLE> <H1><CENTER>欢迎使用数据组件(www.ourfly.com)</CENTER></H1> <%    If Len(Request.QueryString("ID")) > 0 Then        strID = Request.QueryString("ID")               Dim Flag              Flag=DataQuery.GetConn()              If Flag=false then                     ResPonse.Write "数据库没有连结,请检查"                     ResPonse.End              End if                            strResult=DataQuery.GetEmployeeName(cint(strID))              if strResult="" then                     Response.Write "对不起,没有这个编号,请查询"                     Response.End              else                     ResPonse.Write strResult              end if       End If%> <FORM NAME="MyForm"><INPUT TYPE=TEXTBOX NAME="EmpID" SIZE=40><P> <INPUT LANGUAGE="VBScript"       TYPE="BUTTON"       VALUE="Search"       ONCLICK="window.location.href = 'TestWebDb2.asp?ID=' _               + MyForm.EmpID.Value"> </FORM></HEAD>
dim DataQuery as object
dim flag as boolean
Set DataQuery=Server.CreateObject("WebDb.GetInfomation")
Flag=DataQuery.GetConn()
If Flag=false then
   msgbox  "数据库没有连结,请检查"
   exit sub
End if
dim Rs as new adodb.recordset
Set Rs=DataQuery.GetEmployeeList()
if rs.eof then
   msgbox  "没有数据,请查询"
   exit sub
end ifset dataGrid1.datasource=rs