查股票行情的vb代碼
Ⅰ 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名字。
然後放到一個結果集裡面就行。
如果需要顯示
就把結果集綁定到控制項上。