㈠ 請教會VB的大哥，我想在bartender軟體里用VB函數截資料庫判斷一個取數值。
不知你要的VB什麼版本的，下面是VB6的最簡實現方法：
Value = "HAO:" & Format(Value, "000000/00/000000/0")
如果是VBScript，就要分別截取再來合並了：
Value = "HAO:" & Mid(Value, 1, 6) & "/" & Mid(Value, 7, 2) & "/" & Mid(Value, 9, 6) & "/" & Mid(Value, 15, 1)
你是說一個函數有AB兩個參數，傳過去然後判斷A是否為1？
function funct1(A as integer,B as integer)
if a = 1 then b=b+1
end function
'如果不是需要函數就是
if a = 1 then b=b+1
有問題再追 滿意請採納
㈡ VB如何讀取股票大盤數據，20秒更新一次，並動態的顯示到文本框中，請高手幫忙
這個要連接資料庫的。。
㈢ 如何在VB6.0中根據設置的時間查詢股票的數據，急急急。。。
不可以設置
㈣ 用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(',');
}
㈤ VB讀取資料庫方法
可以用ADODB，先定義
Dim cnn
As
New
ADODB.Connection
Dim rs
As
New
ADODB.Recordset
這兩個cnn用來連接資料庫rs用來讀取資料庫中的值，然後用循環遍歷rs將值ADD到listview裡面
修改和保存可以做成同一個按鈕保存就是遍歷listview將數據UPDATE到資料庫裡面就行！
㈥ vb轉換股票數據的問題
大智慧股票數據
每個記錄40 byte
格式
long Date 0'相對開頭偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20
不是二進制方式，使用隨機方式 Random 讀取， 讀取以後 價格 /1000 就行了
定義類型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type
Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type
用 Get 讀取記錄到 就可以了
ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1
讀取以後轉換到
dzh里就可以了
大福星數據比較好用，分中圖都可以讀取
㈦ 在VB.NET中如何使用新浪股票數據介面
基本沒有，你得和人家有合作關系
㈧ 請教會VB的大哥，我想在bartender軟體里用VB函數截取accse資料庫的數值，一共十五位，在字元中插入「/」
不知你要的VB什麼版本的，下面是VB6的最簡實現方法：
Value = "HAO:" & Format(Value, "000000/00/000000/0")
如果是VBScript，就要分別截取再來合並了：
Value = "HAO:" & Mid(Value, 1, 6) & "/" & Mid(Value, 7, 2) & "/" & Mid(Value, 9, 6) & "/" & Mid(Value, 15, 1)
㈨ VB如何從資料庫讀取指定數據
vb綁定數據方法：
通過datasource屬性綁定
比如使用資料庫控制項
datasource
控制項會出現一個下拉框
選擇需要綁定的數據控制項，然後設置datamember綁定表，datafield綁定具體欄位；也可以使用代碼綁定
例如
set
list1.datasource=adodc1.recordset
list1.refresh'刷新
㈩ 用VB 讀取通達信實時股票數據(現價，漲幅)
可以在http://stock.business.sohu.com/p/pl.php
用VB的 WebBrowser1_DownloadComplete 做。
引用Internet Controls