vb6.0 如何连接SQLSERVER2000？

Question

各位兄长我问一下，VB6.0怎么连接SQLSERVER2000啊，我编ASP编习惯了，

能否像ASP一样加个头文件就连上去了。

麻烦大家告诉我详细的连接方法，最好有详细的代码。
呵呵 一楼的兄弟 麻烦您给我发个完整点的VB程序来 比如说我的数据库叫YW 里面有张表叫A，现在我要向表中插条记录（INSERT语句内容就不用写了）

我对VB结构不了解，所以不知道头文件放在哪里？所以还是看完整的程序比较好，麻烦你了！

Answer 1

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=ZHONGDING;database=aa"
conn.ConnectionTimeout = 30
conn.Open
Adodc1.RecordSource = "加药机"
Adodc1.Recordset.AddNew '新加一条记录
'编辑字段值
Adodc1.Recordset("系统时间") = Trim(Now)
Adodc1.Recordset("加药时间") = Trim(Text3.Text)
Adodc1.Recordset("累计流量") = Trim(Text6.Text)
Adodc1.Recordset("标定流量") = Trim(Text5.Text)
Adodc1.Recordset("加药路数") = Trim(Text4.Text)
'提交修改，写到数据库
Adodc1.Recordset.Update

这是连接到SQL的语句..用了ADODC控件.ADODC控件要设置DSN的.在属性选项里就有...其中连接语句中.SERVER=ZHONGDING是SQL服务器名字.
database=aa"是我建的数据库名字叫aa.在aa数据库中建立一个表..."加药机"就是我所建立的表的名字.
这段程序只有
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=ZHONGDING;database=aa"
conn.ConnectionTimeout = 30
conn.Open
Adodc1.RecordSource = "加药机"
是连接.下面的都是往数据库里写的信息.

Answer 2

俺 是一楼的。
你的E_Mail是什么，我发给你一个我作的小程序。
今天快要下班了，你在百度里给我发消息吧。我上网就发给你。
＝－－－－－－－
发给你了。
－－－－－－－－－－－－－－－－－－－
工程－引用
Microsoft ActiveX Data Objects 2....（选一个高版本的）

Set conn = New ADODB.Connection
connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"
conn.Open connStr
Set rs = New ADODB.Recordset

sql = "select * from ask_info"
rs.Open sql, conn, 1

用法和ASP一样的。
－－－－－－－－－－－－－－－－－－－－－－－－－本回答被提问者采纳

Answer 3

Integrated Security=SSPI;Persist Security Info=False;Initial Catalog="数据库";Data Source="服务器地址"