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

qikq

谢谢兰版主，可以用了。

maok124

太好了

网事如峰

兰版主，请教您个问题，我在EXCEL里链接了一个SQL库

在我的机器上用没有问题（本人机器上装有SQL SEVER）

可是我将那个EXCEL 文件发到另一台机器上却出错

“用户wyf/guest"登陆失败

注：wyf 是我的机器上的sql服务器名

卧龙布衣

还想看，怎么没了?请多讲一讲。谢谢。

zilong

太好了。真是当代的活雷锋！

guangyp

精品，慢慢研究。

fengsy

EXCEL+SQLSERVER是一个比较好的编程框架。 SQLSERVER做服务端总库，EXCEL做客户端前台(EXCEL人人都会用，人人都能接受)。本人有3年这方面的编程经验，编写过多这样个这样的程序（局域网多用户管理软件）。EXCELHOME是我刚刚找的家园，以后多多交流。

[此贴子已经被作者于2005-5-12 10:38:50编辑过]

kzb

2、如果引用ACCESS做为单元格中数据有效性的下拉选框或控件的下拉选框如何做呀？（详见附件）

Private Sub UserForm_Initialize() Dim RS1 As Recordset Dim DB1 As Database On Error GoTo 1000 Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset) RS1.MoveLast RS1.MoveFirst For I = 1 To RS1.RecordCount ComboBox1.AddItem RS1.Fields("姓名") RS1.MoveNext Next I DB1.Close Exit Sub 1000: DB1.Close End Sub

利用1楼的例子，在UserForm2上用以下代码取得数据库中”籍贯“字段的所有数据，如果取得数据库中”籍贯“字段的唯一值代码如何写？

Private Sub UserForm_Initialize() Dim RS1 As Recordset Dim DB1 As Database On Error GoTo 1000 ComboBox3.AddItem "男" ComboBox3.AddItem "女"

Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "学生档案.MDB") Set RS1 = DB1.OpenRecordset(Name:="档案", Type:=dbOpenDynaset) RS1.MoveLast RS1.MoveFirst

For I = 1 To RS1.RecordCount ComboBox2.AddItem RS1.Fields("籍贯") RS1.MoveNext Next I DB1.Close Exit Sub

1000: DB1.Close End Sub

[此贴子已经被作者于2005-5-18 17:03:27编辑过]

kzb

等待

kzb

等待回答153楼上的问题，谢谢！