vb中如何定时读取数据库数据

Ⅰ vb如何读取数据库一行数据

'读取方法：

Imports System.IO
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ListBox1.Items.Clear()
Dim StrRed As StreamReader = New StreamReader("D:111.txt", System.Text.Encoding.Default)

While Not StrRed.EndOfStream
Me.ListBox1.Items.Add(StrRed.ReadLine())
End While
StrRed.Dispose()

End Sub
End Class

Ⅱ 想用VB编一个程序读取sql数据库中的内容

不同的计算机安装SQL的连接是不同的.
关于连接总结如下:
ADODB编码连接字的实例
VB中，关于SQL数据库的连接是比较复杂的，但也有一个可以参考的学习思路，方法如下。
1、建立数据库链接
在工具条中，有一个“数据视图窗口”的工具，用它可以建立各种数据库的链接。建立链接的过程：
点击“数据视图窗口”，出现“数据视图”窗体，点击选中“数据链接”，按右键，点击“添加数据链接”，出现“数据链接属性”窗口，有四个菜单：“提供程序”、“连接”、“高级”、“所有”。
选中“提供程序”菜单，这里有许多用于链接的驱动程序，选中“Microsoft OLE DB Provider for SQL Server”，点击“下一步”。“Microsoft OLE DB Provider for SQL Server”是真正的SQL数据库连接字用的驱动程序。
当选中“Microsoft OLE DB Provider for SQL Server”，点击“下一步”，则自动进入“连接”窗体界面。这个“连接”窗体界面的内容，随前面选取的驱动程序而定。
因为前面选择的是“Microsoft OLE DB Provider for SQL Server”，所以，“连接”窗体的主要内容就是直接访问SQL数据库的相关内容的设置，如下：
在“…….服务器名称”一栏中怎么选择呢?如SQL数据库服务器安装时是选择当地默认的实例，即以本地计算机名代替的服务器，则此处应填写的内容是:(local)，或者是：本地的计算机名。估计，非本地的则可填写：服务器的IP地址或服务器名称。
在“输入登录服务器的信息”一栏中怎么选择呢?当选择“使用指定的用户名和密码”一项时，用户名与密码是在SQL服务器安装时选定的内容（值）。若不用密码及用户名登入，则连接字的密码应代之为：Integrate Security=SSPI，表示用“Windows NT 集成安全设置”之意，SQL2005是用这一项的。但实际的ADODB的连接字是不能用这个NT打开的。
在“服务器上选择数据库”一栏中怎么选择呢?当前面两项内容选择正确后，此处的内容是存在可选的，选中即可。
最后“测试连接”，显示成功。则在“数据视图”窗体的“数据链接”中将出现“Datelink1”，表示建立了以“Datelink1”为名的第1个数据库链接。当然也可以建立多个，名字将分别为“Datelink2”、“Datelink3”……
2、从已建立的数据库链接的属性中找连接字。
当选中“数据视图”窗体的“数据链接”，出现“Datelink1”，并选中“Datelink1”，按右键出现弹出菜单，选中“属性”，点击，并可看见这个链接所用到的名字“Name”，“Name”对应的值，就是连接字的主要内容。只是缺少“Password= ”与“ .ConnectionTimeout= ”，因此只要把这两向补齐，就是一个完整可用的ADODB的连接字，而且也适用于ADODC控件的字连接，即ConnectionString，但不需要双引号“”而已。

注意：在前面“数据链接属性”窗口的四个菜单“提供程序”、“连接”、“高级”、“所有”中，前面只重点介绍了“提供程序”与“连接”两项，实际上，“高级”就有ConnectionTimeout属性的选择项。而“提供程序”、“连接”、“高级”三项的选择结果，都在“所有”项中集中显示出来，而且“所有”项中，还有前三项不具有的其它的内容，因此，要注意察看与应用。

Command1_Click()
Me.Caption = "NAME"
Me.Cls
Dim con As ADODB.Connection (注：ADODC控件用的申明，不用ADODB，也不用Adodc。)
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SQL数据库名;Data Sure=(local);Password=密码值（注：无时不选此项）;Use Procere for preplare=1;Auto Translate=True;Packet Size = 4096;Workstation ID=（local）（注：或是局域网的机器名）;Use Encryption for Date=False;Tag With column collation when Possible=False"
con.Open
rs.Open "Select * from SQL数据库表或视图名 ", con
Me.AutoRedraw = True
rs.MoveFirst
Dim ptr As Integer
For ptr = 0 To 20
Print rs.Fields(ptr).Name, 注:Name表示是表格的列名。
Next ptr
While Not rs.EOF()
Print
For ptr = 0 To 20
Print rs.Fields(ptr).Value, 注:Value表示是表格的数值。
Next ptr
rs.MoveNext
Wend
End Sub

用ADODC方法更简单:
在窗口中建立:Command1,CAdodc1及DataDrid1,设置好CAdodc1的连接属性,见前所述.

Command1_Click()
Me.Caption = "NAME"
Me.Cls
Set DataDrid1=Adodc1
End Sub

Ⅲ VB如何从数据库读取指定数据

vb绑定数据方法：
通过datasource属性绑定
比如使用数据库控件
datasource
控件会出现一个下拉框
选择需要绑定的数据控件，然后设置datamember绑定表，datafield绑定具体字段；也可以使用代码绑定
例如
set
list1.datasource=adodc1.recordset
list1.refresh'刷新

Ⅳ VB中利用timer事件每隔一定时间连接SQL数据库，实时读取里面的数据。为什么另外的timer事件会受到影响。

二个不同的时间设计必须使用二个不同的Timer控件，例如对Picture2的时间使用Timer1控件，连接SQL数据库使用Timer2控件。

Ⅳ VB怎样读取数据库并显示出来

VB读取数据库并显示出来的方法可参考下面用控件的实现方法：

1. ACCESS数据库，用VB6里的Data控件，选中它，设置属性：
   

2. DatabaseName属性：连接到数据库文件

3. RecordSource属性：连接数据表（可以用Select语句返回记录集）

4. 然后使用它的：data1.Recordset.Fields(“字段名”)，就可以返回获得你说的内容了。

Ⅵ VB6.0如何每隔一秒读取一次excel的数据

PrivateSubForm_Load()
Timer1.Interval=1000'1000毫秒（即1秒）执行一次
Timer1.Enabled=True
EndSub

PrivateSubTimer1_Timer()
'每隔一秒要执行的操作代码写在这
EndSub

Ⅶ vb中我如何做到保存数据和读取数据呢求大神帮忙 下面详细介绍必好评，在线等

首先你要从数据库提取出你要放在TREEVIEW里的字段，当然是分类提取，然后根据提取到的字段分别绑定，中间还存在自我判断等，所需要的过程相对比较复杂，需进行多次运算，飞人建议分开来写，没必要一次就全部绑定到treeview否则会加长运算时间，使用感觉会差一些，至于保存成指定格式，那就看你自己的了，因为保存成什么样的后缀文件可以自己规定，导出时你所使用的是什么控件根据控件不同，导出的方式也略有不同
提取treeview所需数据时需要分各个节点来提取，这样可以加快提取精准度，同事会让使用者感觉速度快

Ⅷ vb如何定时读取txt每行的数据

'添加一个text 一个timerDim a(100)
Dim var1 As String
Dim i As Integer
Dim ii As Integer
Private Sub Form_Load()
Timer1.Interval = 2000
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, var1
a(i) = var1
i = i + 1
LoopEnd SubPrivate Sub Timer1_Timer()
Text1.Text = a(ii) & ii
ii = ii + 1
If ii >= i Then ii = 0
End Sub

Ⅸ VB通过ADO访问数据库，如何定时查询

mycnn对象 不需要每次都打开又关闭的~直接设置全局变量 程序启动时连接数据库
需要查询时直接操作myrst对象 能节约点时间

Ⅹ VB读取数据库方法

可以用ADODB，先定义

Dim cnn
As
New
ADODB.Connection
Dim rs
As
New
ADODB.Recordset

这两个cnn用来连接数据库rs用来读取数据库中的值，然后用循环遍历rs将值ADD到listview里面

修改和保存可以做成同一个按钮保存就是遍历listview将数据UPDATE到数据库里面就行！