:VB中的Treeview来连接数据库
来源:百度文库 编辑:九乡新闻网 时间:2024/04/27 18:49:22
你要的代码来了,这就是用VB中的Treeview来连接数据库了!!!
Private Sub Form_Load()
Dim cnode As Node
Dim strSql As String
dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnode As Node
'text.mdb改成你的Access数据库名
With conn
If .State = adStateClosed Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/text.mdb;Persist Security Info=False"
.Open
End If
End With
Set cnode = treeview1.Nodes.Add(, ,"one" , "根节点")
strSql = "select * from 部件表"
Set rs = OpenRecordset(strSql)
Do While Not rs.EOF
Set cnode = treeview1.Nodes.Add("one", tvwChild,"K" & rs!Name , rs!Name)
rs.MoveNext
Loop
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
Private Sub Form_Load()
Dim cnode As Node
Dim strSql As String
dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnode As Node
'text.mdb改成你的Access数据库名
With conn
If .State = adStateClosed Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/text.mdb;Persist Security Info=False"
.Open
End If
End With
Set cnode = treeview1.Nodes.Add(, ,"one" , "根节点")
strSql = "select * from 部件表"
Set rs = OpenRecordset(strSql)
Do While Not rs.EOF
Set cnode = treeview1.Nodes.Add("one", tvwChild,"K" & rs!Name , rs!Name)
rs.MoveNext
Loop
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Next
VB中的Treeview来连接数据库
VB treeview+数据库
VB treeview控件应用_数据库相关文章_数据库
VB利用ADO控件连接access数据库
VB ADO treeview代码(转)
VB和数据库2
VB 数据库操作(转)
VB和数据库
net 连接Access数据库
VBA连接数据库1
Oracle连接远程数据库
JAVA如何连接数据库
ASP连接SQL数据库
Java连接Oracle数据库
JAVA连接各种数据库
JDBC连接各种数据库方法
VBA连接数据库 - ExcelVBA - 凡心
转载:ADO连接SQL数据库
Oracle sqlplus远程连接数据库
JDBC连接各种数据库方法
连接各种数据库方式速查表
ADO Connection对象连接数据库
连接池数据库密码加密
利用ASP连接各种数据库