初用vb 能不能帮我一下用ado写个例子

[yu_shi_bin]

就是有dsn的那种 （只要这种 ，谢谢）为什么我一直没有成功，
例子要有查询 追加 更新 删除 谢谢，也许你们项目中有这种共同的方法，
分不够可以再给

[迈克揉索芙特]

这是一个ADO入门级的例子
http://www.code365.com/programe/vb/code/200512142126503180.htm

[yumanqing]

'连接数据库
dim con as ADODB.Connection
Set con = New ADODB.Connection
'con.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=cpy;Data Source=pubs" '" & ServerName
con.ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=" & ServerName & ";uid=sa;pwd=;database=" & datebaseName & ";"
con.ConnectionTimeout = 10
con.Open
'执行命令
strAdd = "INSERT INTO TEmployees VALUES('" & Trim(txtNo.Text) & "','" & Trim(txtWorerName.Text) & "','" & Trim(cmbDept.Text) & "','" & UCase(SaveIndex) & "','" & Trim(txtDep.Text) & "')"
con.Execute (strAdd)
'查询
Dim rctDept As ADODB.Recordset '显示部门名称
Set rctDept = con.Execute("SELECT * FROM TDept")
If Not (rctDept.EOF And rctDept.BOF) Then rctDept.MoveFirst

Do While Not rctDept.EOF
cmbDept.AddItem RTrim(rctDept.Fields("Dept").Value)
rctDept.MoveNext
Loop
end if

[yu_shi_bin]

谢谢2位 不过我要的是dsn的那种

[province_]

DSNLESS的连接速度更好