急问:如何连接到数据库啊??急!!

Question

我编了一个小程序,需要将数据存在一个数据库里面:数据库的地址是(我是建在自己的机子上面的,是装的sql sever2000):
database file location:
C:\Program Files\Microsoft SQL Server\MSSQL\data\
transaction file location:
C:\Program Files\Microsoft SQL Server\MSSQL\data\
服务器的名字是:B-136C0E5F02614(windows NT)
这个服务器是我装上之后不知怎么弄给弄出来的,名字是它自己带的.然后我在这个服务器上面建了一个数据库,数据库名是:wzq.再在这个数据库里面建一个表,名字叫"当天",里面有两个字段,一个是index,还有一个字段是data.我现在就是要将数组bytReceiveByte数组里面的数据存在"当天"这个表里面:
程序如下:Public cn As ADODB.Connection.....Private Sub Cmd_DB_Click()'--就是说按下Cmd_DB这个按钮的时候就响应这个函数,这个函数用来将
                          '--bytReceiveByte()数组里面的数据存到数据库里面
Dim i As Integer
Dim r As ADODB.Recordset'---设置数据库的连接-----
Set cn = New ADODB.Connection
With cn
      .ConnectionString = "Provider=MSDASQL;Data Source=wzq"
      .Open    '<------------------出错就是指向的这一行
End With
'------------------------'----存入数据-----------
Set r = New ADODB.Recordset
For i = 0 To intReceiveLen - 1
r.Open "select * form 当天", cn, adOpenDynamic, adLockOptimistic
r.AddNew
   r!Index = i + 1
   r!Data = bytReceiveByte(i)
r.Update
r.Close
Next i
'----------------------cn.Close
End Sub
但是运行的时候会报错,报的是:[MicroSoft][ODBC Driver Manager]Data Source name not found and no default driver specified.
我想这个也不是十分的难的,我是第一次做数据库,真的不懂数据库的连接怎么做,谢谢大家指教啊.
谢谢.

Answer 1

用oledb试试.
"Provider=sqloledb;Data Source=wzq;Initial Catalog="数据库的名字";User Id=sa;Password=;"

Answer 2

放一个ADO控件，它会自动生成连接串

Answer 3

cn.ConnectionString = "Provider=MSDASQL;Driver=SQL Server;Server=B-136C0E5F02614;UID=sa;PWD=;Database=wzq;"
这样连

Answer 4

如果不会写连接的话可以新建一个ODBC 登录的窗体 然后运行一下 填一下各个选项 就会给出你连接串的写法了
百试不爽

Answer 5

dim dbpath as string
dbpath=app.path & "\数据库路径"
set conn=new connection
conn.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=服务器名;password=密码"
conn.open

Answer 6

我的网站上有操作数据库的源码，你可以看看。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习交流网站，欢迎大家访问！
http://www.j2soft.cn/