【CSDN】【为什么我的树型目录里面添加的帐号节点全部相同】

drillmaster 2003-10-16 07:49:03
Option Explicit
Private strServerName As String
Private conCheckbook As Connection
Private rsCheckbook As Recordset
Private strSql As String
Dim i As Integer

Private Sub getSQLServerName()
If GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName") = "" Then
strServerName = InputBox("请输入数据库服务器名称")
SaveSetting "OnlineBankingDB", "SQL Server Name", "ServerName", strServerName
Else
strServerName = GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName")
End If
End Sub

Private Sub connectionSQLServer()
Set conCheckbook = New Connection
Set rsCheckbook = New Recordset

On Error GoTo errorhandler
Call getSQLServerName

With conCheckbook
.Provider = "sqloledb"
.ConnectionString = "user id=sa;" & _
"password=;" & _
"data source=" & strServerName & _
";initial catalog=OnlineBankingDB"
.Open
End With

Exit Sub
errorhandler:
MsgBox Err.Number & Err.Source & Err.Description
End Sub

Private Sub Form_Load()
If strServerName = "" Then getSQLServerName
Call connectionSQLServer
If rsCheckbook.State = 1 Then rsCheckbook.Close
rsCheckbook.CursorLocation = adUseClient
strSql = "select * from Customer"
rsCheckbook.Open strSql, conCheckbook, adOpenDynamic, adLockOptimistic
If rsCheckbook.RecordCount > 0 Then
rsCheckbook.MoveFirst
Do While Not rsCheckbook.EOF
TreeView1.Nodes.Add , , "key" & Trim(rsCheckbook.Fields("cAccountNumber")), Rs.Fields("cAccountNumber")
If IsNull(rsCheckbook.Fields("vCheckBookNumber")) = False Then
TreeView1.Nodes.Add "key" & Trim(rsCheckbook.Fields("cAccountNumber")), tvwChild, "key" & Trim(rsCheckbook.Fields("vCheckBookNumber")), rsCheckbook.Fields("vCheckBookNumber")
findCheckbookDetail "key" & Trim(rsCheckbook.Fields("cAccountNumber")), rsCheckbook.Fields("vCheckBookNumber")
End If
rsCheckbook.MoveNext
Loop
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
End If
End Sub

Private Sub findCheckbookDetail(key As String, checkbook As String)
Dim rsCheckbookDetail As Recordset
Set rsCheckbookDetail = New Recordset
If rsCheckbookDetail.State = 1 Then rsCheckbookDetail.Close
rsCheckbookDetail.CursorLocation = adUseClient
strSql = "select * from TransactionOfCheckBook where vInstructions='未兑' and vCheckBookNumber='" & checkbook & "'"
rsCheckbookDetail.Open strSql, conCheckbook, adOpenDynamic, adLockOptimistic
If rsCheckbookDetail.RecordCount > 0 Then
rsCheckbookDetail.MoveFirst
Do While Not rsCheckbookDetail.EOF
TreeView1.Nodes.Add key, tvwChild, "key" & Trim(rsCheckbookDetail.Fields("vCheckNumber")), rsCheckbookDetail.Fields("vCheckNumber")
rsCheckbookDetail.MoveNext
Loop
End If
Set rsCheckbookDetail = Nothing
End Sub
...全文
44 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
hacker007 2003-10-16
  • 打赏
  • 举报
回复
Option Explicit
Private strServerName As String
Private conCheckbook As Connection
Private rsCheckbook As Recordset
Private strSql As String
Dim i As Integer

Private Sub getSQLServerName()
If GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName") = "" Then
strServerName = InputBox("请输入数据库服务器名称")
SaveSetting "OnlineBankingDB", "SQL Server Name", "ServerName", strServerName
Else
strServerName = GetSetting("OnlineBankingDB", "SQL Server Name", "ServerName")
End If
End Sub

Private Sub connectionSQLServer()
Set conCheckbook = New Connection
Set rsCheckbook = New Recordset

On Error GoTo errorhandler
Call getSQLServerName

With conCheckbook
.Provider = "sqloledb"
.ConnectionString = "user id=sa;" & _
"password=;" & _
"data source=" & strServerName & _
";initial catalog=OnlineBankingDB"
.Open
End With

Exit Sub
errorhandler:
MsgBox Err.Number & Err.Source & Err.Description
End Sub

Private Sub Form_Load()
If strServerName = "" Then getSQLServerName
Call connectionSQLServer
If rsCheckbook.State = 1 Then rsCheckbook.Close
rsCheckbook.CursorLocation = adUseClient
strSql = "select * from Customer"
rsCheckbook.Open strSql, conCheckbook, adOpenDynamic, adLockOptimistic
If rsCheckbook.RecordCount > 0 Then
rsCheckbook.MoveFirst
Do While Not rsCheckbook.EOF
TreeView1.Nodes.Add , , "key" & Trim(rsCheckbook.Fields("cAccountNumber")), rsCheckbook.Fields("cAccountNumber")'请校对
If IsNull(rsCheckbook.Fields("vCheckBookNumber")) = False Then
TreeView1.Nodes.Add "key" & Trim(rsCheckbook.Fields("cAccountNumber")), tvwChild, "key" & Trim(rsCheckbook.Fields("vCheckBookNumber")), rsCheckbook.Fields("vCheckBookNumber")
findCheckbookDetail "key" & Trim(rsCheckbook.Fields("vCheckBookNumber")), rsCheckbook.Fields("vCheckBookNumber")
End If
rsCheckbook.MoveNext
Loop
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
End If
End Sub

Private Sub findCheckbookDetail(key As String, checkbook As String)
Dim rsCheckbookDetail As Recordset
Set rsCheckbookDetail = New Recordset
If rsCheckbookDetail.State = 1 Then rsCheckbookDetail.Close
rsCheckbookDetail.CursorLocation = adUseClient
strSql = "select * from TransactionOfCheckBook where vInstructions='未兑' and vCheckBookNumber='" & checkbook & "'"
rsCheckbookDetail.Open strSql, conCheckbook, adOpenDynamic, adLockOptimistic
If rsCheckbookDetail.RecordCount > 0 Then
rsCheckbookDetail.MoveFirst
Do While Not rsCheckbookDetail.EOF
TreeView1.Nodes.Add key, tvwChild, "key" & Trim(rsCheckbookDetail.Fields("vCheckNumber")), rsCheckbookDetail.Fields("vCheckNumber")
rsCheckbookDetail.MoveNext
Loop
End If
Set rsCheckbookDetail = Nothing
End Sub
yunfeng007 2003-10-16
  • 打赏
  • 举报
回复
TreeView1.Nodes.Add , , "key" & Trim(rsCheckbook.Fields("cAccountNumber")), Rs.Fields("cAccountNumber")
这一句中的Rs.Fields("cAccountNumber")是不是笔误,如果不是的话,那就是这一点,看你程序的意思好像应该是rsCheckbook.Fields("cAccountNumber")
onlineboy 2003-10-16
  • 打赏
  • 举报
回复
太长了,晕
Gelim 2003-10-16
  • 打赏
  • 举报
回复
好长啊!up先!

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧