❶ 在VB怎么查询数据库中的数据啊!
1.一个简单的查询的例子:
'*定义一个连接
Dim Conn As ADODB.Connection
'*定义一个记录集
Dim mrc As ADODB.Recordset
'*分别实例化
Set Conn = New ADODB.Connection
set mrc =New ADODB.Recordset
'*定义一个连举码接字符串
dim ConnectString as string
ConnectString="provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\data\数据库名.mdb;jet oledb:database password=数据库密码"
'*打开连接
Conn1.Open ConnectString
'*定义游标位置
Conn1.CursorLocation = adUseClient
'*查询记录集(从student表中找出名子为"张三"的记录)
mrc.open "select * from student where name='张三掘答派'",Conn, adOpenKeyset, adLockOptimistic
'*现在你已经得到了你想要查询的记录集了,那就是判贺mrc
'*你可以把此记录集与DataGrid榜定,用datagrid显示你查询的记录
set me.datagrid.datasource=mrc
❷ 在VB.NET中如何使用新浪股票数据接口
基本没有,你得和人家有合作关系
❸ vb中使用表格控件浏览数据库中的数据
1、用一个ADODC1控件连盯禅让接你的数据库,在窗口中放一个
表格控件
datagrid1
2、在一事件中(比如按凯局钮单袭握击事件、窗口加载事件)设置以下语句
adodc1.recordsource="select
……"(就是你的查询语句)
adodc1.refresh
set
datagrid1.datasource=adodc1
在最后面加句结束语句:end
sub
❹ 用VB 读取通达信实时股票数据(现价,涨幅)
可以在http://stock.business.sohu.com/p/pl.php
用VB的 WebBrowser1_DownloadComplete 做。
引用Internet Controls
❺ 用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怎样读取数据库并显示出来
VB读取数据库并显示出来的方法可参考下面用控件的实现方法:
ACCESS数据库,用VB6里的Data控件,选枯察中它,设置属性:
DatabaseName属性:连接到数据库文件
RecordSource属性:连接数据表(可以用Select语句返回记录集)
然后使用辩此它的:data1.Recordset.Fields(“字段名”),就可以返回获没灶茄得你说的内容了。
❼ 在VB中的List控件里怎么读取数据库中的信息,并将其显示在这个List控件上
链接数据樱谨孙库。查询你需要显示的内容。
for 循环 使用list.AddItem "脊链晌改添加的内容" 讲需要显示的多条信息显示出来。就完成了。
❽ VB6.0中怎样使用data控件实现数据库查找功能
1、使用data控件的FindFirst方法可以实现数据库记录的查找。
2、工具:vb6。
3、具体实现方法:
a)在窗体上添加data1、dbgrid1、text1、command1、label1
b)在dbgrid1的DataSource属性里选择data1
c)实现代码如下:
PrivateSubCommand1_Click()
'查找定位记录
Data1.Recordset.FindFirst"CategoryID="&Text1.Text
DBGrid1.DataSource
EndSub
PrivateSubForm_Load()
Data1.Connect="Access2000;"'设置数据库类型
Data1.DatabaseName="C:db1.MDB"'连接数据库耐御
Data1.RecordSource="Categories"'数据库中的表
Data1.Refresh'打开数据库
EndSub
4、咐亩让注意:数据库可以使用vb6文件夹内的衡局NWIND.MDB
❾ vb如何获取数据库的数据,并修改
VB可通过结构化查询语言(SQL)访问数据库。
下面帮你写一个简单的过程,将学号以参数传给该过程:
Private Sub editmark(num as Integer)
'声明一个记录集
Dim rs As New ADODB.Recordset
'定义一态并个SQL查询串
SQLStr = "select * from student where id=" & num
'执行查询
rs.Open SQLStr, Conn, 3, 2
If Not rs.EOF Then
rs("mark")=rs("mark")-10
end if
'更新数据库
rs.update
End Sub
--------------------------------------------------------------
补充:
1、对于Conn提问者肯定明咐灶白,因为提问者已经说明连接部分可以忽略;
2、对于rs("mark")=rs("mark")-10 是可行的,因为通过过程参数的传递记录已经定位在某条记录上,还考虑什么转移;
3、我们回答提问者的问题应尽量简单可行,说明问题即帆简迹可,无需长篇大论让提问者一头雾水,长篇大论就是“敬业”吗?
--------------------------------------------------------------
最后补充:
没有关系,我们是在讨论问题嘛!
其实,对于“vb操作数据库”我相信不是我们在这里举一个简单的例子能说透的。我只是想通过这个简单的例子(越简单越易让提问者搞懂),告诉提问者用SQL可以访问并操作数据库,至于具体许多细节需要提问者熟悉一下SQL和VB提供的ADO,我想这也是提问者的真实意图。
另外,关于rs("mark")=rs("mark")-10在这个例子中肯定是可行的,因为学生的id肯定是唯一的(应该是数据表student的主键),不会有重复的id。