想用VB做一个监测界面 涉及SQL数据库，请各位帮忙

Question

大家好，rt，本人现由于课题需要，打算做一个监测界面，实现显示树木生长量变化的曲线、以及历史数据曲线等功能，由于以前未接触过数据库，对VB也不是很了解，故有点手忙脚乱。
具体介绍一下：
1、由于整个程序可能不太复杂，故选定VB
2、由于数据积累，（每天至少24条记录），选择SQL数据库
3、数据来源是一个.csv文件，该文件每5分钟更新一次，此部分为无线数据传输系统传到服务器上（不太清楚，不用管）；我想每一个小时添加一次数据到数据库。
现遇到问题：
VB与数据库连接出现问题，不能打开数据库，更不能把数据添加到数据库，猜测可能是哪里的设置不对，或者数据库文件的位置存放问题？
希望高手们给予解答，现谢谢大家了。

Answer 1

这个应该对你有帮助
http://wenwen.soso.com/z/q67290343.htm这个数据量其实用什么数据库问题都不大，1年不到1万条数据

Answer 2

谢谢！我看看哈，对了 
我在网上找到这样一段代码
Private Sub command1_Click ()
Dim strconn As String ' 定义连接字符串' 初始化记录集及连接
Set rstemp = CreateObject (" ADODB.Recordset")
Set conn = CreateObject (" adodb.connection")
' 打开连接，并加参数
Strconn=" Provider=SQLOLEDB.1;Persist Security Info=
False;User ID =sa;password =333666;Initial Catalog =data;Data
Source= (local)"
conn.Open strconn
' 选取Excel 数据文件，文件路径及名称记录在Com
'monDialog1.FileName 中
CommonDialog1.ShowOpen
' 写SQL 语句，数据写入SQL Server 中
strsql = " select * into tablename from OpenRowSet
( 'microsoft.jet.oledb.4.0','Excel 8.0;HDR =Yes;database = "  " ;','select * from [sheet1$] ')
where "
rstemp.Open strsql, conn, 1, 1
' 提示
MsgBox " 数据导入成功！" , vbExclamation +
vbOKOnly
' 关闭数据库连接及记录集，释放资源
conn.Close
Set conn = Nothing
rstemp.Close
Set rstemp = Nothing
End Sub
运行到红色这句rstemp.Open strsql, conn, 1, 1报错：OLE DB程序Microsoft.jet.4.0.出错，……；找了好久不知道原因

Answer 3

仔细检查下你的strsql赋值过程吧

Answer 4

如果程序换机器不能用了 你先确认你的机器可以连接到那个数据库吗
先用sql server连接那个数据源啊（数据源不是本机吧）
你先连通了数据库再说怎么insert，select等

Answer 5

这个语句我检查过，还用SQL查询器查过，显示无语法错误，数据库是我自己在自己电脑上建立的，新手，有好多不懂得，是不是我的数据库哪里设置不对呢

Answer 6

1、'select * from [sheet1$] ')
where "
-------------------------------------
where后边的条件呢？查询分析器能通过？2、database = " " 
-------------------------------------
这里连的什么？是不是要写文件名什么的？空格不对吧
是不是CommonDialog1.FileName？

Answer 7

Source= (local) 
“(local)” 决定了你连的数据库是本机的数据库，应该写数据服务的名字或者IP地址唉，貌似现在没人用VB了，也没人回答问题了:(