请问怎么向数据库里面写入实时数据??

Question

那就先写入数据库啊
用addnew
然后再用查询方式读出来

Answer 1

在工程菜单的引用中选择引用Microsoft ActiveX Data Object。然后用下面的代码
dim cnn as new adodb.connection
dim rs as new adodb.recordset0D
dim strcnn as string
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=filepath"  'filepath换成数据库的路径(含文件名和扩展名)
cnn.Open strCnn
rs.open "select * from tablename",cnn 'tablename换成数据表的名称
rs.add new
rs!fieldname1=...
rs!fieldname2=...
...
'fieldname1,fieldname2换成字段名
rs.update
rs.close
set rs=nothing
cnn.close
set cnn=nothing