求助！！！VBA提取sql数据库里的数据，然后再在窗体上显示！！

zpmloveyou

说明:点击单元格，弹出窗体，点击不同的单元格，弹出窗体显示内容不一样，窗体的数据，是根据单元格里的数据从sql数据库里提出来的，急用，哪位大仙帮帮！！

zpmloveyou

另加100元奖金,会的找我，Q,Q:1666868266

兰色幻想

直接用SELECT语句从数据库中查找不就行了,给你一个连接的示例

1. Private Sub CommandButton1_Click()
   
2. Dim i%, strCn$, strSQL$, serIP$, uid$, pwd$, dbName$, mydate, sht As Worksheet 'i为整数变量。
   
3. Dim cn As Object '定义数据链接对象 ，保存连接数据库信息
   
4. Dim rs As Object '定义记录集对象，保存数据表
   
5. Dim stime As Date, etime As Date
   
6. stime = Timer
   
7. serIP = "192.168.2.1\store"
   
8. uid = "sa"
   
9. pwd = "sa"
   
10. dbName = "beyond_store"
    
11. 
    
12. Set cn = CreateObject("ADODB.Connection") '创建数据链接对象
    
13. Set rs = CreateObject("ADODB.RecordSet") '创建记录集对象
    
14. strCn = "Provider=sqloledb;Server=" & serIP & ";Database=" & dbName & ";Uid=" & uid & ";Pwd=" & pwd & "; " '数据库链接
    
15. "Data Source=OLEDB;Provider=sqloledb;Server=服务器名;Database=数据库名;Uid=用户名;Pwd=密码;"
    
16. 
    
17. mydate = Date
    
18. 
    
19. '下面的语句将读取数据表数据，并将它保存到excel工作表中
    
20. '定义SQL查询命令字符串
    
21. strSQL = "select c_barcode,c_pluno,c_adno,c_gcode,c_provider,c_name,c_basic_unit,c_model,c_pt_cost,c_price,c_price_mem,c_price_disc,c_comment from tb_gds where (c_gcode > '1000000001' and c_gcode < '79999999999') ORDER BY c_barcode"
    
22. cn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
    
23. cn.CommandTimeout = 720
    
24. rs.Open strSQL, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
    
25. 
    
26. Set sht = ThisWorkbook.Sheets("商品资料")
    
27. sht.[a2:i50000].ClearContents
    
28. sht.[a2:i50000].NumberFormatLocal = "@"
    
29. sht.[a2].CopyFromRecordset cn.Execute(strSQL)
    
30. 
    
31. rs.Close '关闭记录集
    
32. cn.Close '关闭数据库链接,释放资源
    
33. Set rs = Nothing '清空对象
    
34. Set cn = Nothing '清空对象
    
35. etime = Timer
    
36. MsgBox "费时" & Format(etime - stime, "0.00") & "秒,更新完毕！"
    
37. End Sub
    
38. 
    
39. 
    

复制代码

sfwz

zpmloveyou 发表于 2012-5-29 00:56
另加100元奖金,会的找我，Q,Q:1666868266

这个问题,论坛中有个人能解决,论坛中的名字是 XPW6061 Q号:6418968