[求助]高手进来！

comet

VBA怎样向SQL SERVER里写数据？我怎么都连不起来，请高人指点！最好能给个例子！谢谢了！

leeyeafu

1、配置ODBC数据源：开始、设置、控制面板、ODBC数据源->添加、选择数据库提供程序（SQL Server）->配置数据库连接细节（默认数据库、用户名、密码等）->测试数据源。


2、建立ADO连接：


         Dim cn As ADODB.Connection


        Dim ConStr As String


        ConStr = "odbc;DSN=YourDSN;UId=用户名wd=密码"


         cn.Open ConStr


3、设计并执行SQL语句


Dim cmd As ADODB.Command


Dim rst As ADODB.Recordset


Set cmd.ActiveConnection = cn


cmd.CommandText = YourSQLString


rst.CursorLocation = adUseClient


rst.Open cmd


4、选择AutoCAD图形信息并写入Recordset对象，调用Recordset对象的Update方法更新数据。