注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

宏操作sql server 2000  

2008-12-19 13:08:56|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

VBA操作SQL server 2000, 和ASP操作sql seerver 2000差不多

Private Sub CommandButton1_Click()

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim R, C, F, I As Integer
  '  Set cn = CreateObject("adodb.connection")
    Dim Sql_text, day1, linenumber, box As String
   Const ConnStr = "driver={SQL Server};server=(local);database=test;uid=sa;pwd=123456"
   cn.Open ConnStr
   ' Sql = "insert into tt(name,age)values('test',34)"
   
  ' For I = 1 To 5
    ' Name = Trim(Cells(I, 1).Value)
   '  age = Trim(Cells(I, 2).Value)
    
  '   Sql = "insert into tt(name,age)values('" & Name & "'," & age & ")"
  '   cn.Execute (Sql)
  
  ' Next
     
  '  cn.Execute (Sql)
 
  Sql = "select * from tt"
  rst.Open Sql, cn, 1
  I = 1
  Do While Not rst.EOF
    Cells(I, 1).Value = Trim(rst("name"))
    Cells(I, 2).Value = Trim(rst("age"))
    I = I + 1
    rst.MoveNext
     
   Loop
  rst.Close
 
'  rs.Open "Select * From Antigen_Peptide Where (A003_PRODUCT_NAME like '%PE%' or A003_PRODUCT_NAME like '%PS%' or A003_PRODUCT_NAME like '%PD%') and U_P_ReceiveDate is not Null and U_P_QC is Null Order By U_P_ReceiveDate Desc", conn, 1
    MsgBox ("读取成功!")


End Sub

  评论这张
 
阅读(574)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017