Excel+ADO(DAO)+SQL+Access专辑（编辑中...）

asdf1001

以下是引用soft007在2004-12-24 11:59:00的发言：

不用苦苦研究了，有捷径不走?

网上不是有个excel服务器吗，早就解决了用excel编程的问题.......

www.qinzhe.com

是不是可以推断:钱已经有人有了,你还赚钱干吗;知识已经有人掌握了,从小让你念书干吗?

zanquan

好东西,喷血感谢楼主

zb58

这么好，，，我研究！！

rogerching

其实数据库在什么地方并不重要，只要路径引用正确就可以了

4me

word +sql+acess 这样如何？

连接网络上的数据库服务器sqlserver 上的一个数据库，代码如何写？

大雪无痕

谢谢版主的好教材，

不过上面是用EXECL+ACCE做的，但我想用EXECL+SQL(服务器上)不知如何改，因为连接不一样，请老师们指点。谢谢!!!!

[此贴子已经被作者于2005-1-4 17:35:55编辑过]

大雪无痕

请问版主：我的错在哪里呢？因为我的数据是在网上取来的，所以用了SQL服务器。

Private Sub UserForm_Initialize()

Dim cnn As New ADODB.Connection

Dim rs1 As ADODB.Recordset

Dim str

DIM I

Set cnn = New ADODB.Connection

Set rs1 = New ADODB.Recordset

On Error GoTo 1000

cnn.connectionstring="driver={SQLServer};server=SER;uid=test123;pwd=test123;Database=业务数据库"

cnn.Open

str = "Select 姓名 from 档案 "

rs1.Open str, cnn

rs1.MoveLast

rs1.MoveFirst

For I = 1 To rs1.RecordCount (读取rs1.RecordCount 不成功)

ComboBox1.AddItem rs1.Fields("姓名") (在下拉中未能显示姓名、但在ACEE中能正常显示)

rs1.MoveNext

Next I

Exit Sub

1000:

End Sub

[此贴子已经被作者于2005-1-5 11:22:36编辑过]

ypcgame

very good.

lenny

收下。一会儿研究

xuchjz

excel和access关联,太好了!收藏!