1. vb中我如何做到保存数据和读取数据呢求大神帮忙 下面详细介绍必好评，在线等
首先你要从数据库提取出你要放在TREEVIEW里的字段，当然仿芦扮是分类提取，然后根据提取到的字段分别绑定，中间还存在自我判断等，所需要的过程相哗袜对比较复杂，需进行多次运算，备灶飞人建议分开来写，没必要一次就全部绑定到treeview否则会加长运算时间，使用感觉会差一些，至于保存成指定格式，那就看你自己的了，因为保存成什么样的后缀文件可以自己规定，导出时你所使用的是什么控件根据控件不同，导出的方式也略有不同
提取treeview所需数据时需要分各个节点来提取，这样可以加快提取精准度，同事会让使用者感觉速度快
2. 用VB如何直接获取股票实时数据
可肢坦以通历或桐过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：
publicstring[]getStockInfo(stringstockcode)
{
//stringurl="http://hq.sinajs.cn/list="+stockcode;
团袜//stockcode某只股票的代码
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}
3. VB 文件数据的读取
1，打开你的并含rtf文件，全选差裤，复制，粘贴到一个txt文档中，我姑且命名为123.txt。这么做是因为rtf格式复杂，不如txt纯文本好控制
2，在VB工程源代码下，粘贴下面代码，测试，注意：123.txt同vb工程同级目录
Private Sub Form_Load()
Const ForReading = 1, ForWriting = 2
Dim fso, f
Dim flag ' 标识是否为Logged Points数据
Rem 采用FSO技术，读取外部文件
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 打开123.txt文件
Set f = fso.OpenTextFile(App.Path + "\123.txt", ForReading, False)
Rem 按行循环扫描整篇文档，直至文件结束
Do While f.AtEndOfStream <> True
retstring = f.ReadLine
Rem 判断是否扫描到有效数据段落，给定标识
If InStr(retstring, "Logged Points") > 0 Then
flag = True
ElseIf InStr(retstring, "Control Points") > 0 Or InStr(retstring, " Files") > 0 Then
flag = False
End If
Rem 如果是Logged Points下面的数据，并且含有Ellips height字符串，则进行解析，否则跳过整行
If flag And InStr(retstring, "Ellips height") > 0 Then
retstring = Replace(retstring, "Ellips height"虚蔽简, "")
retstring = Replace(retstring, "FIXED", "")
retstring = Replace(retstring, "Adjusted", "")
arr = Split(retstring, " ")
Debug.Print Trim(arr(4)) ' 这时可以把arr(4)复制给你的变量，这里得到66.861
End If
Loop
f.Close
Set f = Nothing
Set fso = Nothing
End Sub
4. vb读取excel数据的教程
在Excle中录入好数据以后，可能会需要用VB进行读取Excle数据，具体该如何读取数据呢?下面是我带来的关于vb读取excel数据的教程，希望阅读过后对你有所启发!
vb读取excel数扰扮据的教程：
Private Sub Form_Load()
Text1.Text = App.Path & "\123.xls"
Text2.Text = App.Path & "\123.mdb"
Text3.Text = "sheet1"
Text4.Text = "sheet1"
Data1.DatabaseName = App.Path & "\123.mdb"
End Sub
Private Sub Command1_Click()
Dim db As Database
Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String
AccessPath = Text2.Text '数据库路径
excelpath = Text1.Text '电子表格路经
AccessTable = Text4.Text '数据库内表格
sheet = Text3.Text '电子表格内工作表
Set db = OpenDatabase(excelpath, True, False, " Excel 5.0") '打开电子表格文件
SQL = ("Select * into [;database=" & AccessPath & "]." & AccessTable & " FROM [" & sheet & "$]")
db.Execute (SQL) '将电子表斗斗格导入数据库
Data1.RecordSource = "sheet1"
Data1.Refresh
DBGrid1.Refresh '显示电子表格导入到数据缓销灶库的数据
End Sub
上面的是把EXCEL读取到数据库中,你做点修改就行了.一个Data控件.
5. VB怎样读取数据库并显示出来
VB读取数据库并显示出来的方法可参考下面用控件的实现方法：
ACCESS数据库，用VB6里的Data控件，选枯察中它，设置属性：
DatabaseName属性：连接到数据库文件
RecordSource属性：连接数据表（可以用Select语句返回记录集）
然后使用辩此它的：data1.Recordset.Fields(“字段名”)，就可以返回获没灶茄得你说的内容了。
6. vb如何读取数据库一行数据
'读取方法：
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim StrRed As StreamReader = New StreamReader("D:111.txt", System.Text.Encoding.Default)
While Not StrRed.EndOfStream
Me.ListBox1.Items.Add(StrRed.ReadLine())
End While
StrRed.Dispose()
End Sub
End Class
7. VB如何从数据库读取指定数据
vb绑定数据方毁隐法：
通过datasource属性绑定
比如使用数据库控件
datasource
控件会出现一个下拉框
选择需要绑定的数据控件，然后设置datamember绑定表纤晌厅谨困，datafield绑定具体字段；也可以使用代码绑定
例如
set
list1.datasource=adodc1.recordset
list1.refresh'刷新