其实首先要搞清楚你的datagrid控件中的内容是从哪里来的,比如是绑定的是数据库中的某一张表的话你可以这样做.Option Explicit Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sSql As String Dim cnStr As StringPrivate Sub Form_Load() cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & App.Path & "\db1.mdb;Persist Security Info=False" 'db1.mdb 为你的数据库名字,目录在你的应用程序当前目录 cn.ConnectionString = cnStr cn.Open End SubPrivate Sub Command1_Click() sSql = "select 路径 from tbname" '这里的tbname 就是你数据库中的表名 rs.Open sql, cn, 3, 3 Do While rs.EOF = False Text1.Text = Text1.Text & rs("路径") ' 其实这里用list更直观点. rs.MoveNext Loop End Sub不知道这样是不是你想要的效果.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sSql As String
Dim cnStr As StringPrivate Sub Form_Load()
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\db1.mdb;Persist Security Info=False" 'db1.mdb 为你的数据库名字,目录在你的应用程序当前目录
cn.ConnectionString = cnStr
cn.Open
End SubPrivate Sub Command1_Click()
sSql = "select 路径 from tbname" '这里的tbname 就是你数据库中的表名
rs.Open sql, cn, 3, 3
Do While rs.EOF = False
Text1.Text = Text1.Text & rs("路径") ' 其实这里用list更直观点.
rs.MoveNext
Loop
End Sub不知道这样是不是你想要的效果.