當前位置:首頁 » 交易知識 » 查股票行情的vb代碼

查股票行情的vb代碼

發布時間: 2021-03-10 04:46:30

Ⅰ VB查詢代碼

你用的控制項不夠啊,我加兩個吧
就加兩個text控制項吧
下面是代碼:
Private Sub Command1_Click() '在查詢按鈕加入的代碼
Shell "explorer.exe c:\我的程序.txt"
End Sub

Private Sub Command2_Click() '在添加按鈕加入的代碼
Open "c:\我的程序.txt" For Output As #1
Print #1, Label1.Caption
Print #1, Label2.Caption
Close #1
MsgBox "加入完畢,請查看", , "提示"

End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text

End Sub

Private Sub Text2_Change()
Label2.Caption = Text2.Text
End Sub

記得採納我的答按啊!~`呵呵

Ⅱ 查詢用vb代碼怎麼做

Private Sub cmdOK_Click()
'連接資料庫
'判斷用戶名和密碼

'如果用戶名為空
If (Trim(txtUserName.Text) = "") Then
'出警告提示
MsgBox "沒有輸入用戶名稱,請重新輸入!", vbOKOnly + vbExclamation, "警告"
'用戶名這個TXTuserName獲得焦點
txtUserName.SetFocus
End If

If (Trim(txtPassword.Text) = "") Then
'出警告提示
MsgBox "沒有輸入密碼,請重新輸入!", vbOKOnly + vbExclamation, "警告"
'用戶名這個TXTuserName獲得焦點
txtUserName.SetFocus

End If

Dim SQL As String '定義SQL為STRING類型變數
Dim Cnn As New ADODB.Connection '新建數據連接對象
Dim Rst As New ADODB.Recordset '新建記錄集對象

Cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=FADIAN.MDB;DefaultDir=" & App.path & ";" '打開資料庫,後面跟的是連接字元串
'對SQL語句賦值
SQL = "select * from User where Username='" & txtUserName.Text & "'" & " AND PASSWORD='" & txtPassword.Text & "'"
'執行SQL語句
Rst.Open SQL, Cnn

''進入下一個窗體

If Not Rst.EOF Then
'關閉本窗體
Unload Me
'顯示主窗體
FrmMDI.Show
Else
'報錯提示框
MsgBox "錯誤登錄", vbOKOnly, "登錄提示"
End If
'關閉數據集
Rst.Close
'關閉連接
Cnn.Close

End Sub

Ⅲ 查看股票行情的代碼是什麼有什麼用呢

因為股票的數量太多了,所以給每個股票編一個號。就好比學生在學校里有學號、工人在工廠里有工號、汽車有車牌號、人有身份證號一個樣。還有郵政編碼、門牌號等等。
在股票行情軟體中,如果不知道一個股票的代碼,你可以輸入股票名稱拼音字頭。

Ⅳ vb代碼查詢

dodc1.Recordset.AddNew '新增一條記錄
For i = 0 To 6
Text1(i).Enabled = True 『設置textbox控制項組的控制項都為可用
Text1(i).Text = "" 』值設置為空
Next i
Text1(0).SetFocus 『讓游標移到text1(0)上
cmdadd.Enabled = False 』按鈕CNDADD為不可用
End Sub

Ⅳ 用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 讀取通達信實時股票數據(現價,漲幅)

對rmb收入有一定幫忙嗎?.呵呵.好東東.那我也做作.

..這樣呀.那我幫你看看好了 你把你的源代碼發一專下

你的意思是某屬些控制項句柄你沒法獲取到..還是其他意思

算了.發郵箱[email protected] 源代碼.附帶說明.還有一個什麼股票軟體.一起.或者給個地址.完整一下.要不又要問你這那.
個人感覺好像沒什麼用吧..看了先

Ⅶ VB 修改一個股票行情監測腳本 到了預定的股價就啟動程序a.exe

Dim file1, file2 As String
Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text為大於這個值時 執行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text為小於這個值時 執行
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub

Private Sub Form_Load()
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代碼:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub

Ⅷ vb查詢代碼如何寫,

你用什麼資料庫?access還是sql server ?
VB操作資料庫,可以用控制項或對象

Ⅸ 用VB做查詢程序,簡單一點的

需要將結果導出來?還是只是將結果顯示就行。
用sql
select
*
from
table名字。
然後放到一個結果集裡面就行。
如果需要顯示
就把結果集綁定到控制項上。

熱點內容
陝西天誠軟體股份有限公司中標 發布:2024-11-17 23:31:44 瀏覽:985
欣旺達電池股票代碼 發布:2024-11-17 23:21:49 瀏覽:411
上市公司中的中小企業有哪些問題 發布:2024-11-17 23:12:07 瀏覽:275
電力遷移合同印花稅 發布:2024-11-17 22:53:40 瀏覽:773
保險費如何計提印花稅 發布:2024-11-17 22:50:46 瀏覽:759
多賬號股票軟體 發布:2024-11-17 22:09:30 瀏覽:829
利越集團股票 發布:2024-11-17 21:57:36 瀏覽:365
這個用股票賬戶買嘛 發布:2024-11-17 21:47:39 瀏覽:400
苗木企業印花稅免嗎 發布:2024-11-17 21:47:38 瀏覽:277
組建中國海工集團受益股票 發布:2024-11-17 21:29:10 瀏覽:83