查股票行情的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名字。
然后放到一个结果集里面就行。
如果需要显示
就把结果集绑定到控件上。