RT
解决方案 »
- 帮我看下为什么出错啊!!
- 请问一个关于DrawText函数的问题(改变默认字体字号)
- 人生就是这么多坎!-老问题解决不了
- msadodc.ocx 文件问题,急 !!!!!!
- 怎样通过代理服务器访问远程数据库(sql sever2000)?
- 从ACCESS中读出的长二进制数据(图片),怎样写入image空间
- 如何能把一些图片文件(.bmp .jpg等)编译成swf文件
- [新手提问]ADO更新数据问题
- ??????????????????????????????
- 我想做一个调查,究竟来过VB版有多少人,请大家踊跃参与。
- 高手救我, 没有一个能完全解决这个问题?(200分)
- 请问如何使用VB连接SQL(远程)
Dim CN As New ADODB.Connection
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=Report;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from table1", CN, adOpenDynamic, adLockBatchOptimistic
Rs.MoveFirst
Do While Not Rs.EOF
Select Case Len(Trim(Rs.Fields("lno")))
Case 3
TreeView1.Nodes.Add , , "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
Case 5
TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 3), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
Case 7
TreeView1.Nodes.Add "key" & Left(Trim(Rs.Fields("lno")), 5), tvwChild, "key" & Trim(Rs.Fields("lno")), Rs.Fields("lname")
End Select
Rs.MoveNext
Loop
Rs.Close
CN.Close
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next