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'刷新