王者刺客符文怎么配:VB如何操纵数据库问题?

来源:百度文库 编辑:高考问答 时间:2024/05/13 09:23:29
客户端实现网上注册登录后,编写短信,存入到共用的数据库中。而我只负责服务器端,通过定时器查询数据库,发送新短信,再把已发送的短信存到数据库中,并记录日志。
VB串口编程我已经实现,而通过VB数据库编程实现短信数据库的读取,并将每次发送的信息存入日志数据库,实时显示短信发送情况这部分实在是不会,望会的朋友能帮下我,谢谢各位了!数据库用的是Access。

我帮你用ADO实现。

首先需要引用 Microsoft Activex Data Objects 2.X Library 。

1、不论是读取数据还是写入数据,都要连接上数据库才行。
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String

'连接数据库
'假设ACCESS数据库文件名为test.mdb,存放在本程序目录下
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
Conn.Open strConn

2、读取数据
可以使用Rs.Open 表名称 ,Conn,1,1 返回某个表的所有记录;
也可以使用 Rs.Open strSQL ,Conn,1,1 返回符合strSQL 条件(标准的SQL语句)的记录集。

可以通过 Rs!字段名 返回某个字段的值。如:Rs!DXNR 返回当前记录字段DXNR的值。

可以使用Rs.MoveFirst移动到首记录;使用MovePrevious移动到上一条记录;使用MoveNext移动到下一条记录;使用MoveLast移动到尾记录。

3、写入记录
在打开记录集后才可以写入记录,方法是:
Rs.AddNew
Rs!字段1 = XXX
Rs!字段2 = YYY
...
Rs.Update

编辑某条记录时和添加新记录一样,只是不用写Rs.AddNew语句。

4、使用完ADO对象后一定要记着释放该变量。
Set Rs=Nothing
Set Conn=Nothing

你现在应该明白怎么做了吧,然后建议你看看这个(ADO参考手册),对你数据库编程会有帮助的,下载地址是:
http://down.5ivb.net/Net/book/5ivb_166183.rar